VBA清除一定范圍或單元格中的內容

Question

如何清除以參考單元格開頭的列和行？

我用了

For x = 1 To 20 
    Sheets(1).Columns(x).ClearContents
Next x

但是我希望能夠清除以A6行為參考點的所有行和列的內容。 我不能使用范圍，因為數據是動態的，並且在插入數據時會發生變化。 數據來自csv

Answer 1

由於您的問題是“我希望能夠清除以A6行為參考點的所有行和列的內容”。 然后這是一個使用SpecialCells(xlLastCell)襯墊

ActiveSheet.Range("A6", ActiveCell.SpecialCells(xlLastCell)).Clear

Answer 2

如果您的范圍從A6開始並且連續， Row 6沒有空白，而在Column A沒有空白，則可以這樣設置范圍：

'Create variables
Dim wb as Workbook
Dim ws as Worksheet
Dim rng as Range

'Initialize variables
set wb = ActiveWorkbook
set ws = ActiveSheet
lastrow = ws.Range("A6").End(xlDown).Row
lastcol = ws.Range("A6").End(xlToRight).Column

'Set the range
set rng = ws.Range(Cells(6,1),Cells(lastrow,lastcol))

'Clear contents
rng.ClearContents

這使用Range對象的Range.End屬性。 基本上就像單擊A6並在鍵盤上按ctrl+right Right，然后返回范圍。

注意：如果范圍內有差距，您將無法獲得正確的結果。