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

【问题标题】：Creating a string from several cells in VBA从 VBA 中的多个单元格创建字符串
【发布时间】：2015-05-04 18:59:48
【问题描述】：

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

这不是一个小数据集，每个单元格有两个字符，范围通常在 A1:YA1 左右，大约 650 个单元格。

我不确定我说的是否正确，但假设每个单元格 A1:CU1 的值从 01 计数到 99。我想做这样的事情

Sub Sample()

Dim cell_values As String
cell_values = A1:CU1

并得到一个可以输出的字符串

0102030405060708091011121314...99

谢谢！

【问题讨论】：

必读：cpearson.com/excel/ArraysAndRanges.aspx

标签： arrays excel vba

【解决方案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

【讨论】：

【解决方案2】：

或者只是

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

【讨论】：