如何从整数数组创建前缀为G的新字符串数组？

针对你在VBA里的需求，我整理了两种最实用的实现方式，先直接上代码，再给你拆解细节：

1. 数组来自工作表区域：用Evaluate一行搞定 #

如果你的dfArray是直接从单元格区域（比如命名区域dff）获取的，这是最简洁的写法，不用写循环：

Dim dfArray As Variant
Dim dfArray2 As Variant

' 先把区域数据读入数组（注意不用Set，数组是Variant类型，Set仅用于对象赋值）
dfArray = Range("dff").Value
' 直接生成带前缀的字符串数组
dfArray2 = Evaluate("""G"" & " & Range("dff").Address)

2. 数组在内存中：高效遍历生成 #

如果你的数组是程序生成的内存数组（不是来自工作表），直接遍历内存数组的效率更高，避免和工作表交互的开销：

Dim dfArray As Variant
Dim dfArray2 As Variant
Dim i As Long, j As Long

' 示例：初始化一个一维/二维整数数组
dfArray = Array(101, 102, 103, 104) ' 一维数组
' dfArray = Range("A1:B3").Value ' 二维数组（VBA从区域获取的数组默认是二维）

' 先初始化目标数组的大小
If IsArray(dfArray) Then
    ' 处理二维数组的情况
    If UBound(dfArray, 2) > LBound(dfArray, 2) Then
        ReDim dfArray2(LBound(dfArray) To UBound(dfArray), LBound(dfArray, 2) To UBound(dfArray, 2)) As String
        For i = LBound(dfArray) To UBound(dfArray)
            For j = LBound(dfArray, 2) To UBound(dfArray, 2)
                dfArray2(i, j) = "G" & CStr(dfArray(i, j))
            Next j
        Next i
    ' 处理一维数组的情况
    Else
        ReDim dfArray2(LBound(dfArray) To UBound(dfArray)) As String
        For i = LBound(dfArray) To UBound(dfArray)
            dfArray2(i) = "G" & CStr(dfArray(i))
        Next i
    End If
End If

为什么你原来的写法没生效？ #

你写的Set dfArray2 = ["G" & dff]有两个关键问题：

1. Set关键字用错了：Set是用来赋值对象（比如Range、Collection）的，数组属于Variant类型，直接赋值就行，不需要加Set；
2. 简写语法错误：[]是Evaluate的简写，但这里的语法不成立，不能直接用["G" & dff]生成数组，必须把区域地址作为参数传入Evaluate。

补充：你尝试的For Each循环正确写法 #

如果坚持想用For Each，可以借助Collection中转（适合一维数组）：

Dim elem As Variant
Dim tempCol As Collection
Dim dfArray2() As String
Dim i As Long

Set tempCol = New Collection
dfArray = Array(1, 2, 3, 4)

' 遍历原数组添加前缀
For Each elem In dfArray
    tempCol.Add "G" & CStr(elem)
Next elem

' 把Collection转成最终数组
ReDim dfArray2(1 To tempCol.Count)
For i = 1 To tempCol.Count
    dfArray2(i) = tempCol(i)
Next i

内容的提问来源于stack exchange，提问作者sybb