如何让这段Excel VBA的For Each循环代码正常运行？

原代码无法正常运行的核心问题有两个：字符串未正确拼接循环变量，以及占位符未替换为实际名称，以下是具体修正方案：

1. 修正Range地址的字符串拼接 #

原代码中Range("q50:q57")里的q是固定文本，并非循环变量q。需要用&运算符将循环变量与行号部分拼接成正确的单元格地址：

Range(q & "50:" & q & "57")

2. 替换占位符为实际名称 #

把Workbooks(xxx)中的xxx替换为目标工作簿的完整名称（比如"销售数据.xlsx"），Worksheets(yyy)中的yyy替换为目标工作表的名称（比如"月度汇总"）。如果操作的是当前代码所在的工作簿，也可以用ThisWorkbook代替Workbooks("xxx")。

3. 完整修正后的代码 #

Sub MergeColumns()
    Dim arr As Variant
    Dim q As Variant
    Dim targetWB As Workbook
    Dim targetWS As Worksheet
    
    ' 定义列标识数组
    arr = Array("H", "J", "L", "N", "P", "R", "T", "U", "V", "X", "Z", "AB", "AD", "AF", "AH")
    
    ' 指定目标工作簿和工作表（替换为你的实际名称）
    Set targetWB = Workbooks("你的工作簿名称.xlsx")
    Set targetWS = targetWB.Worksheets("你的工作表名称")
    
    ' 遍历数组合并单元格
    For Each q In arr
        targetWS.Range(q & "50:" & q & "57").Merge
    Next q
End Sub

4. 可选的错误处理（避免运行时错误） #

如果担心工作簿或工作表不存在，可以添加判断逻辑，防止代码报错中断：

Sub MergeColumnsWithCheck()
    Dim arr As Variant
    Dim q As Variant
    Dim targetWB As Workbook
    Dim targetWS As Worksheet
    
    arr = Array("H", "J", "L", "N", "P", "R", "T", "U", "V", "X", "Z", "AB", "AD", "AF", "AH")
    
    ' 检查工作簿是否打开
    On Error Resume Next
    Set targetWB = Workbooks("你的工作簿名称.xlsx")
    On Error GoTo 0
    If targetWB Is Nothing Then
        MsgBox "目标工作簿未打开，请先打开该工作簿！"
        Exit Sub
    End If
    
    ' 检查工作表是否存在
    On Error Resume Next
    Set targetWS = targetWB.Worksheets("你的工作表名称")
    On Error GoTo 0
    If targetWS Is Nothing Then
        MsgBox "目标工作表不存在，请检查名称！"
        Exit Sub
    End If
    
    For Each q In arr
        targetWS.Range(q & "50:" & q & "57").Merge
    Next q
End Sub

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