Как удалить значения диапазона в Excel VBA

Question

У меня есть диапазон в Excel с именем "ValuesRange", расположенный в ячейке "B5".У меня есть четыре значения: 3,4,5,6, расположенные в ячейках B6, B7, B8, B9 соответственно.Учитывая, что В10 всегда пусто.как можно удалить четыре значения по одному?Вот код, который я использовал:

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