如何刪除Excel中的範圍值VBA

Question

我在位於單元格「B5」的excel中名爲「ValuesRange」。我有四個值：3,4,5,6分別位於單元格B6，B7，B8，B9。鑑於B10始終是空白的。怎麼能一個一個地刪除這四個值？以下是我使用的代碼：

Dim startRange as Range 


Set startRange= Range("ValuesRange").offset.(1,0) 

While Not IsEmpty(startRange) 
startRange.value= " " 
startRange=startRange(1,0) 
Wend 

此代碼不起作用。它所做的是刪除第一個值（3），然後將其替換爲第4個值，並在無限循環中繼續這樣做。 請幫我解決這段代碼。 非常感謝！

Answer 1

這裏有一種方法：

Public Function ClearCellsBelowValuesRange() 
Dim Rng As Excel.Range, offset As Integer 
    Set Rng = ThisWorkbook.Worksheets("Sheet1").Range("ValuesRange") 
    offset = 1 
    Do 
     Rng.offset(offset, 0).Value = "" 
     offset = offset + 1 
    Loop Until IsEmpty(Rng.offset(offset, 0).Value) 
End Function 

Answer 2

如果你只想刪除值，你可以嘗試：

startRange.Select 
Selection.ClearContents