如何实现Sheet2填充B列后自动将A、B列数据同步至Sheet1新增行？

完全可行，下面给你两种实用的实现方式：

方法一：VBA工作表变更事件（推荐，精准触发） #

这是最直接的实现方式，当Sheet2的B列单元格被编辑填充时，自动把对应行的A、B列数据追加到Sheet1的末尾：

1. 打开你的Excel文件，按Alt + F11打开VBA编辑器
2. 在左侧工程窗口里找到Sheet2，双击打开它的代码窗口
3. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只处理B列的单元格变更，且排除多单元格选中的情况
    If Target.Column = 2 And Target.Cells.Count = 1 Then
        ' 检查当前单元格是否已填充内容（非空）
        If Target.Value <> "" Then
            Dim lastRow As Long
            ' 找到Sheet1的最后一行空行
            lastRow = ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1
            ' 复制当前行的A、B列到Sheet1的对应位置
            ThisWorkbook.Sheets("Sheet1").Cells(lastRow, 1).Value = Target.Offset(0, -1).Value ' A列
            ThisWorkbook.Sheets("Sheet1").Cells(lastRow, 2).Value = Target.Value ' B列
        End If
    End If
End Sub

4. 保存文件为「启用宏的工作簿」格式（.xlsm）

注意：如果后续Sheet2的B列被清空，这段代码不会自动删除Sheet1里对应的行——如果需要这个功能，可以在代码里加额外的判断逻辑。

方法二：动态数组公式（无需宏，适合禁用宏的环境） #

如果你的Excel版本支持动态数组（Office 365/2021及以上），可以用公式实现自动同步：

在Sheet1的A1单元格输入公式：

=FILTER(Sheet2!A:B, Sheet2!B:B<>"")

这个公式会自动提取Sheet2中所有B列非空的行的A、B列数据，并且实时更新——只要Sheet2的B列有新内容填充，Sheet1就会自动新增对应的行。

局限性：这种方式是「实时同步所有符合条件的行」，如果Sheet2的B列内容被删除，Sheet1里对应的行也会消失；而且无法保留Sheet1中手动添加的其他行（如果有的话），适合Sheet1完全依赖Sheet2同步数据的场景。

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