从VBA中的几个单元格创build一个string

可能是一个新手问题，但有没有一种很好的方法来汇集/连接一系列单元格的值，并将其设置为一个string？

这不是一个小的数据集，每个单元格都有两个字符，范围通常在A1：YA1左右，比如650个单元格。

我不知道我是否正确地说了什么，但是让我们说每个单元格A1：CU1有一个从01到99的值。我想要做这样的事情

Sub Sample() Dim cell_values As String cell_values = A1:CU1 

并得到一个将输出的string

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)