Excel VBA：如何在For循环中为每个匹配结果分配独立变量？

问题原因 #

VBA不允许直接通过字符串拼接变量名的方式赋值，你尝试的xDat & d = ...写法不符合语法规则，因此报错。另外原代码里用If Not wsElog2.Range("H" & i) Is Nothing Then判断单元格是否有值也是错误的——Range对象永远不会是Nothing，判断单元格内容是否为空应该用值比较。

方案1：使用数组（推荐） #

数组是处理这类批量存储需求的最优选择，代码简洁且易维护：

Dim xDat(1 To 5) As String ' 定义最多存5个元素的数组
Dim d As Integer
d = 1

For i = 186 To 235
    ' 检查H列单元格是否非空
    If Trim(wsElog2.Range("H" & i).Value) <> "" Then
        If d <= 5 Then ' 限制最多存储5个结果
            xDat(d) = wsElog2.Range("C" & i).Text
            d = d + 1
        End If
    End If
Next i

' 后续使用示例：调用第一个结果
' MsgBox xDat(1)

方案2：用Select Case匹配单独变量 #

如果一定要用独立变量，可以通过Select Case对应每个计数：

Dim xDat1 As String
Dim xDat2 As String
Dim xDat3 As String
Dim xDat4 As String
Dim xDat5 As String
Dim d As Integer
d = 1

For i = 186 To 235
    If Trim(wsElog2.Range("H" & i).Value) <> "" Then
        Select Case d
            Case 1: xDat1 = wsElog2.Range("C" & i).Text
            Case 2: xDat2 = wsElog2.Range("C" & i).Text
            Case 3: xDat3 = wsElog2.Range("C" & i).Text
            Case 4: xDat4 = wsElog2.Range("C" & i).Text
            Case 5: xDat5 = wsElog2.Range("C" & i).Text
        End Select
        If d < 5 Then d = d + 1 ' 达到5个后停止计数
    End If
Next i

' 后续使用示例
' MsgBox xDat1 & vbCrLf & xDat2

关键提示 #

• 判断单元格是否为空时，用Trim(.Value) <> ""可以过滤掉仅含空格的情况。
• 数组方案扩展性更强，后续若需存储更多结果，只需修改数组上限即可，无需新增变量。

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