Excel VBA 質問スレ Part77

[896 デフォルトの名無しさん (ﾜｯﾁｮｲ 2bcd-7iBv) 2022/10/18(火) 09:30:46.00 ID:O7d9QRYR0]

>>881
1:30で書けたけど・・・
これぐらい書くのにみんなどれぐらい時間かかるもんなの？

Sub foo()
最終行 = Cells(Rows.Count, 7).End(xlUp).Row
For i = 1 To 最終行
If Cells(i, 7) = "" Then
Cells(i, 6) = ""
Cells(i, 8) = ""
End If
Next
End Sub