📝 Запись значений диапазона в обычную переменную

Чтобы вывести на экран значения диапазона методом Debug.Print, необходимо записать эти значения в обычную строковую переменную (не массив). Но массив тоже будем использовать, так как циклы в массивах работают быстрее, чем в диапазонах ячеек.

📌 Пример кода

Sub Primer()
    Dim rng As Range, r&, c&, ar, i1&, i2&, txt$

    Set rng = Worksheets("Лист4").Range("A1:F40")

    With rng
        r = .Rows.Count
        c = .Columns.Count
        ar = .Value
    End With
    
    For i1 = 1 To r
        For i2 = 1 To c
            txt = txt & ar(i1, i2)
                If i2 = c Then
                    txt = txt & vbNewLine
                Else
                    txt = txt & "; "
                End If
        Next
    Next
       
    Debug.Print txt
End Sub

Отображение на экране будет построчным, как в исходном диапазоне. Элементы диапазона будут разделены друг от друга точкой с запятой и пробелом.

#VBA #ExcelVBA #Диапазон #Значение #Переменная #DebugPrint