ｖｂａ エクセル

質問

2行目から、最終行までEmptyにしたいのにならないです。

1行目はフィールド行なのに、そのままにしたいのですが
2行目から最終行は空白にしたいです。

なので

Sub TEST()

With Sheets("log")

lastRow = .Cells(.Rows.Count, "b").End(xlUp).Row
LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column

.Range(.Cells(2, LastCol), .Cells(lastRow, LastCol)) = Empty
End With

End Sub

としたのですが、何も起こりません。

lastRowは１００、LastColは５なのですが、
このマクロを実行しても何も起こらないです。

なぜでしょうか？

回答No.5

watabe007

>2行目から、最終行までEmptyにしたい
全てのフィールドの２行目からなら
>.Range(.Cells(2, LastCol), .Cells(lastRow, LastCol)) = Empty
　　　　↓
　.Range("A2", .Cells(lastRow, LastCol)).Value = Empty

回答No.4

mar00

No.2、3です。
勘違いしていました。

回答を無視して下さい。

回答No.3

mar00

No.２です。
間違えていました。

Sub TEST()

With Sheets("Sheet1")

lastRow = .Cells(Rows.Count, "b").End(xlUp).Row
LastCol = .Cells(1, Columns.Count).End(xlToLeft).Column

.Range(.Cells(2, 2), .Cells(lastRow, LastCol)) = Empty
End With

End Sub

です。

回答No.2

mar00

Sub TEST()

With Sheets("Sheet1")

lastRow = .Cells(Rows.Count, "b").End(xlUp).Row
LastCol = .Cells(1, Columns.Count).End(xlToLeft).Column

.Range(Cells(2, 2), Cells(lastRow, LastCol)) = Empty
End With

End Sub

にすればいいと思います。

回答No.1

kittensillabub

確認しては無いですが、セル範囲に値を代入するなら .valueが必要かと。

.Range(.Cells(2, LastCol), .Cells(lastRow, LastCol)).value = Empty