如何调整VBA代码适配公式引用数据的列合并需求？

• 手动复制外部工作表数据到当前表时，现有合并多列到A列的VBA代码可正常运行；但通过公式导入数据时，代码会将列中所有带公式的单元格（含空值）合并到A列，导致A列出现大量仅含公式的空单元格。
• 待合并列包含表头，数据行数随工作簿动态变化。

修改后的VBA代码 #

Sub MergeColumnsToA()
    Dim col As Range
    Dim targetRow As Long
    Dim dataRange As Range
    
    ' 初始化目标行：A列第一个空行（跳过表头）
    targetRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    ' 遍历除A列外的所有列
    For Each col In ActiveSheet.UsedRange.Columns
        If col.Column <> 1 Then
            ' 仅获取当前列中常量值单元格（跳过空公式单元格），同时排除表头行
            On Error Resume Next
            Set dataRange = col.Range(col.Cells(2, 1), col.Cells(Rows.Count, 1)).SpecialCells(xlCellTypeConstants)
            On Error GoTo 0
            
            ' 如果有有效数据，复制到A列目标位置
            If Not dataRange Is Nothing Then
                dataRange.Copy ActiveSheet.Cells(targetRow, 1)
                targetRow = targetRow + dataRange.Cells.Count
            End If
        End If
    Next col
End Sub

代码说明 #

• 改用SpecialCells(xlCellTypeConstants)筛选出仅含常量值的单元格，直接跳过返回空值的公式单元格，避免无效数据导入
• 自动定位A列第一个空行作为起始目标位置，无需手动查找
• 排除每列的表头行，防止表头被重复合并到A列
• 动态计算目标行位置，适配不同行数的数据集

内容的提问来源于stack exchange，提问作者MD for Me