如何在Excel VBA中刪除范圍的值

Question

我在Excel單元格“ B5”中有一個名為“ ValuesRange”的范圍。 我有四個值：分別位於單元格B6，B7，B8，B9的3、4、5、6。 鑒於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

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

startRange.Select
Selection.ClearContents

Answer 2

這是一種方法：

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