しん
2024/10/29 (火) 18:33:16
f87c1@9fff4
>>途中のデータ行の 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に変更しています。
通報 ...