Excel VBA技术问询：新数据追加至目标表末行及模糊匹配筛选

解决两个核心问题的方案 #

1. 实现数据追加到Sheet2末行 #

原代码用j变量手动计数定位目标行，会覆盖Sheet2原有数据。正确逻辑是先获取Sheet2的第一个空行，每复制一行后将目标行号递增，确保每次都追加到现有数据的下方。

2. 实现开头字符匹配（类似Excel Left函数效果） #

VBA里有两种简单实现方式：

• Left函数法：提取单元格内容的前N个字符（N为目标开头字符串的长度），与指定字符串对比
• Like操作符法：用通配符*匹配任意后续内容，只要开头符合就触发匹配

修改后的完整代码 #

Sub Accruals()
    Dim wsCopy As Worksheet
    Dim wsDest As Worksheet
    Dim i As Long
    Dim LastRowCopy As Long
    Dim LastRowDest As Long
    Dim matchPrefix As String
    
    ' 定义要匹配的开头字符串，后续改季度直接改这里
    matchPrefix = "Accrual Q3 2023 - "
    
    Set wsCopy = Worksheets("Sheet1")
    Set wsDest = Worksheets("Sheet2")
    
    ' 获取Sheet1数据的最后一行（基于A列）
    LastRowCopy = wsCopy.Cells(Rows.Count, "A").End(xlUp).Row
    ' 获取Sheet2的第一个空行（基于A列，Offset(1)跳转到末行下一行）
    LastRowDest = wsDest.Cells(Rows.Count, "A").End(xlUp).Offset(1).Row
    
    For i = 1 To LastRowCopy
        ' 二选一：Left函数实现开头匹配
        ' If Left(wsCopy.Cells(i, 9).Value, Len(matchPrefix)) = matchPrefix Then
        
        ' 二选一：Like操作符实现开头匹配（更简洁直观）
        If wsCopy.Cells(i, 9).Value Like matchPrefix & "*" Then
            ' 复制整行值到Sheet2的当前空行
            wsCopy.Rows(i).Copy
            wsDest.Rows(LastRowDest).PasteSpecial xlPasteValues
            ' 目标行号+1，准备下一次追加
            LastRowDest = LastRowDest + 1
        End If
    Next i
    
    ' 清除剪贴板，避免残留复制状态
    Application.CutCopyMode = False
End Sub

关键修改说明 #

• 删掉了多余的j变量，改用LastRowDest动态跟踪目标空行，彻底解决覆盖问题
• 用matchPrefix变量统一管理匹配字符串，后续换季度数据时直接修改这一行即可
• 两种匹配方式任选其一，都能实现“开头字符匹配”的需求
• 增加Application.CutCopyMode = False，避免复制完成后弹出剪贴板提示

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