Как сделать динамический диапазон в VBA

Question

Ниже у меня есть код, который отправляет персональное SMS-сообщение и включает в себя имя. Я получил эту часть на работу. Теперь мне просто нужно сделать так, чтобы мой диапазон был динамическим и двигался вниз по соответствующему столбцу, пока не останется ни одного сообщения. В его текущем состоянии, это будет только сообщение от первого лица. Я пытался найти учебники по динамическому диапазону, циклы и т. Д., Но они были слишком сложны, чтобы я мог их понять, или потребовали бы от меня переписать то, что у меня уже есть.

Private Sub btnSend_Click()


   Dim contactNumberRange As Range
   Dim messageRange As Range
   Dim clientNameRange As Range
   Dim phoneCell As Range
   Dim messageCell As Range
   Dim nameCell As Range


   Set contactNumberRange = Range("D2") //Need to make this range dynamic
   Set messageRange = Range("E2") //This too
   Set clientNameRange = Range("A2") //This aswell


   For Each phoneCell In contactNumberRange
    For Each messageCell In messageRange
     For Each nameCell In clientNameRange
      SendMessage FROMPHONE, nameCell.Value, phoneCell.Value, messageCell.Value
     Next
    Next
   Next





 Me.Hide
End Sub

Answer 1

Вам просто нужно изменить диапазоны с помощью переменной последней строки.

Кроме того, квалифицируйте эти диапазоны с помощью таблицы!

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")

Dim LR As Long
LR = ws.Range("A" & ws.Rows.Count).End(xlUp).Row

Set contactNumberRange = ws.Range("D2:D" & LR)
Set messageRange = ws.Range("E2:E" & LR)
Set clientNameRange = ws.Range("A2:A" & LR)

For Each phoneCell In contactNumberRange
    For Each messageCell In messageRange
        For Each nameCell In clientNameRange
            SendMessage FROMPHONE, nameCell.Value, phoneCell.Value, messageCell.Value
        Next nameCell
    Next messageCell
Next phoneCell