如何设置Excel宏将新数据粘贴至下一个空行？（附高级筛选代码）

要让高级筛选的结果自动粘贴到目标工作表的下一个空行，核心是动态计算目标区域的起始位置，而非固定使用Range("A1:V1")。以下是具体实现方法：

核心思路 #

先定位目标工作表中关键列（示例用A列，可按需调整）最后一行有数据的行号，再将筛选结果的起始位置设为该行的下一行。

修改后的宏代码示例 #

Sub AdvancedFilterToNextEmptyRow()
    ' 指定源工作簿（替换为你的源工作簿名称）
    Dim sourceWB As Workbook
    Set sourceWB = Workbooks("源数据工作簿.xlsx")
    
    ' 指定目标工作表（替换为你的目标工作表名称）
    Dim targetWS As Worksheet
    Set targetWS = ThisWorkbook.Sheets("筛选结果表")
    
    ' 计算目标表A列最后非空行的行号
    Dim lastRow As Long
    lastRow = targetWS.Cells(targetWS.Rows.Count, "A").End(xlUp).Row
    
    ' 适配空表/非空表情况
    If lastRow = 0 Then
        lastRow = 1
    Else
        lastRow = lastRow + 1
    End If
    
    ' 执行高级筛选，结果粘贴到计算好的空行起始位置
    sourceWB.Sheets("源数据工作表").Range("A:V").AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=targetWS.Range("Z1:Z2"), _
        CopyToRange:=targetWS.Range("A" & lastRow & ":V" & lastRow), _
        Unique:=False
End Sub

关键说明 #

1. 替换名称：将代码中的源数据工作簿.xlsx、源数据工作表、筛选结果表替换为你实际的工作簿和工作表名称。
2. 表头处理：
   • 若目标表已提前设置好表头（无需重复粘贴），可删除空表判断代码，直接写lastRow = lastRow + 1。
   • 若需要随筛选结果复制表头，保留空表判断即可。
3. 列调整：如果判断空行的关键列不是A列，将代码中的"A"改为对应列的字母即可。

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