Microsoft Access 掲示板

>>途中のデータ行の K 列の値が Empty 値 / 空文字列 であるため、全てのデータ行を網羅し切る前にループ処理が終了している。

For～Nextで検証しましたが、更新されませんでした。

I列は、

Sub 単価()
Dim ws_2 As Worksheet
Set ws_2 = Worksheets("転送用シート")
maxR = Cells(Rows.Count, "A").End(xlUp).Row
maxR2 = ws_2.Cells(Rows.Count, "A").End(xlUp).Row

hajimeGyo = ActiveCell.Row
hajimeRetu = ActiveCell.Column

Range(Cells(hajimeGyo + 1, hajimeRetu), Cells(maxR, ActiveCell.Column)).Copy
ws_2.Cells(2, "I").PasteSpecial xlPasteValues

For i = 2 To maxR2


If ws_2.Cells(i, "I") = "" Then
ws_2.Cells(i, "I") = 0

End If
Next i

End Sub

このようになコードです

2024/10/1を202410に変更しています。