从VBA中的多个单元格创建字符串

时间:2015-05-04 18:59:49

标签: arrays excel vba

可能是一个新手问题,但有没有一种很好的方法可以汇集/连接一系列单元格中的值并将其设置为字符串?

它不是一个小数据集,每个单元格有两个字符,范围通常在A1:YA1附近,类似650个单元格。

我不确定我是否正确说了什么,但是让我们说每个单元格A1:CU1的值从01到99.我想做像这样的东西

Sub Sample()

Dim cell_values As String
cell_values = A1:CU1

并获取一个输出

的字符串
  

0102030405060708091011121314 ... 99

谢谢!

2 个答案:

答案 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)