求助：用公式将两组起始于第7行的列区域数据合并至目标列

问题分析 #

核心问题是B:K列存在公式生成的“伪空”单元格，此前的合并逻辑误将这些空行计入，导致有效数据被推至1000多行以外。以下提供两种针对性解决方案：

方案1：Excel 365/2021内置函数（无代码） #

利用TOCOL函数直接合并两列非空数据，自动跳过空单元格（包括公式产生的空值）：

• 在AX7单元格输入公式：

  =TOCOL(Q7:Q1000, AT7:AT1000, 1)
  

• 在AY7单元格输入公式：

  =TOCOL(R7:R1000, AU7:AU1000, 1)
  

• 在AZ7单元格输入公式：

  =TOCOL(S7:S1000, AV7:AV1000, 1)
  

说明：TOCOL的第三个参数1表示忽略空值；若数据行数超过1000，可将1000替换为实际最大行号（如10000）。

方案2：VBA宏（兼容全版本Excel） #

若使用旧版Excel（无TOCOL函数），可通过VBA直接筛选非空数据合并，彻底规避公式干扰：

1. 按Alt + F11打开VBA编辑器
2. 插入新模块，粘贴以下代码：

   Sub MergeTargetColumns()
       Dim ws As Worksheet
       Set ws = ActiveSheet ' 如需指定工作表，改为Sheets("你的工作表名")
       
       ' 定义源列与目标列映射
       Dim colPairs As Variant
       colPairs = Array( _
           Array("Q", "AT", "AX"), _
           Array("R", "AU", "AY"), _
           Array("S", "AV", "AZ") _
       )
       
       Dim pair As Variant, destRow As Long, lastRow As Long, i As Long
       
       For Each pair In colPairs
           destRow = 7 ' 目标列起始行
           ' 处理第一组源列
           lastRow = ws.Cells(ws.Rows.Count, pair(0)).End(xlUp).Row
           For i = 7 To lastRow
               If ws.Cells(i, pair(0)).Value <> "" Then
                   ws.Cells(destRow, pair(2)).Value = ws.Cells(i, pair(0)).Value
                   destRow = destRow + 1
               End If
           Next i
           ' 处理第二组源列
           lastRow = ws.Cells(ws.Rows.Count, pair(1)).End(xlUp).Row
           For i = 7 To lastRow
               If ws.Cells(i, pair(1)).Value <> "" Then
                   ws.Cells(destRow, pair(2)).Value = ws.Cells(i, pair(1)).Value
                   destRow = destRow + 1
               End If
           Next i
       Next pair
   End Sub
   

3. 返回Excel，按Alt + F8运行宏MergeTargetColumns

关键注意点 #

• 若需保留源单元格格式，可将代码中的.Value替换为.Copy和.PasteSpecial xlPasteAll
• 运行宏前建议备份文件，避免意外修改

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