使用VBA合并列无结果问题排查：将AJ至AP列合并到PN列

你的VBA代码没有输出结果，核心是几个范围和语法错误：

关键错误点 #

• 目标范围无效：第一个With块的范围是从A列最后一行数据开始扩展，和你要处理的A2:AO152无关，且该范围仅41列（A到AO），根本不存在第320列，导致合并代码完全没执行。
• 列索引错误：PN列是工作表第430列，但在仅41列的范围内调用Columns(320)超出范围，无意义。
• 公式转值语法错误：.Formula = .Value是把单元格值赋值给公式属性，逻辑错误，无法完成公式转值。

修正后的代码（公式版） #

Sub MergeColumnsToPN()
    Dim ws1 As Worksheet
    Dim lastRow As Long
    Dim targetRng As Range
    
    Set ws1 = ThisWorkbook.Sheets("Import")
    ' 动态获取AJ列最后一行数据行号，适配不同数据量
    lastRow = ws1.Range("AJ" & ws1.Rows.Count).End(xlUp).Row
    ' 定位PN列需要处理的范围
    Set targetRng = ws1.Range("PN2:PN" & lastRow)
    
    ' 应用合并公式（AJ到AP列，按需求用逗号、减号分隔）
    targetRng.FormulaR1C1 = "=RC[-394] & "","" & RC[-393] & "","" & RC[-392] & "","" & RC[-391] & "","" & RC[-390] & "","" & RC[-389] & ""-"" & RC[-388]"
    
    ' 将公式结果转为静态值
    targetRng.Value = targetRng.Value
End Sub

更稳定的VBA循环版（无需公式） #

如果不想用公式，直接用VBA循环合并数据，调试更方便：

Sub MergeColumnsToPN_VBA()
    Dim ws1 As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim mergedText As String
    
    Set ws1 = ThisWorkbook.Sheets("Import")
    lastRow = ws1.Range("AJ" & ws1.Rows.Count).End(xlUp).Row
    
    For i = 2 To lastRow
        ' 按需求合并AJ到AP列，指定分隔符
        mergedText = ws1.Cells(i, "AJ").Value & "," & _
                     ws1.Cells(i, "AK").Value & "," & _
                     ws1.Cells(i, "AL").Value & "," & _
                     ws1.Cells(i, "AM").Value & "," & _
                     ws1.Cells(i, "AN").Value & "," & _
                     ws1.Cells(i, "AO").Value & "-" & _
                     ws1.Cells(i, "AP").Value
        ' 写入对应行的PN列
        ws1.Cells(i, "PN").Value = mergedText
    Next i
End Sub

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