Создание строки из нескольких ячеек в VBA

Question

Возможно, новичок вопрос, но есть ли хороший способ объединить/объединить значения из диапазона ячеек и установить это как строку?

Это не маленький набор данных, каждая ячейка имеет два символа, а диапазон обычно равен A1: YA1, что-то вроде 650 ячеек.

Я не уверен, если я что-нибудь правильно говорит, но, скажем, каждую ячейку A1: CU1 имел значение, подсчитанное от 01 до 99. Я хотел бы сделать что-то вроде этого

Sub Sample() 

Dim cell_values As String 
cell_values = A1:CU1 

и получить строку, которая будет выводить

0102030405060708091011121314 ... 99

Спасибо!

Answer 1

Вот что-то, чтобы вы начали:

Public Sub foo() 
    Dim cell_values() As Variant 
    cell_values = Sheet1.Range("A1:G1") 

    Dim result As String 

    Dim r As Long, c As Long 
    For r = 1 To UBound(cell_values, 1) 
     For c = 1 To UBound(cell_values, 2) 
      result = result + cell_values(r, c) 
     Next 
    Next 

    Debug.Print result 

End Sub 

Answer 2

Или просто

X = Join(Application.Transpose(Application.Transpose(Range("A1:CU1"))), vbNullString)