从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)