可能是一个新手问题,但有没有一种很好的方法可以汇集/连接一系列单元格中的值并将其设置为字符串?
它不是一个小数据集,每个单元格有两个字符,范围通常在A1:YA1附近,类似650个单元格。
我不确定我是否正确说了什么,但是让我们说每个单元格A1:CU1的值从01到99.我想做像这样的东西
Sub Sample()
Dim cell_values As String
cell_values = A1:CU1
并获取一个输出
的字符串0102030405060708091011121314 ... 99
谢谢!
答案 0 :(得分:0)
Here's something to get you started:
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
答案 1 :(得分:0)
或者只是
X = Join(Application.Transpose(Application.Transpose(Range("A1:CU1"))), vbNullString)