Excel技术问询：引用列更新时如何自动添加空白行？

方法1：Power Query无代码动态更新 #

适合不熟悉编程的用户，可实现半自动刷新：

• 点击数据选项卡，选择获取数据>自表格/区域，分别导入Client Reference Sheet和Contract Info的表格（勾选「我的表格有标题」）。
• 在Power Query编辑器中，保留Client Reference Sheet查询的客户名列，点击合并查询>将查询作为新查询合并，选择Contract Info查询，匹配依据设为客户名，合并类型选「左外部」。
• 展开合并后的列，仅保留日期、产品列，新增客户对应的这些列会显示为null。
• 点击关闭并上载，将结果加载到工作表（建议备份原数据后覆盖原Contract Info），右键查询选择属性，勾选「打开文件时刷新数据」。
• 当Client Reference Sheet新增客户后，点击数据选项卡的刷新全部，Contract Info会自动新增对应行，A列填充客户名，其他列留空。

方法2：VBA实时自动新增行 #

需要实时触发更新时使用，步骤如下：

1. 右键Client Reference Sheet标签，选择「查看代码」，粘贴以下VBA代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wsContract As Worksheet
    Dim newClient As String
    Dim lastRowRef As Long, lastRowContract As Long
    Dim i As Long
    Dim exists As Boolean
    
    Set wsContract = ThisWorkbook.Worksheets("Contract Info")
    
    ' 仅处理A列的内容变更
    If Not Intersect(Target, Me.Columns("A")) Is Nothing Then
        Application.ScreenUpdating = False
        lastRowRef = Me.Cells(Me.Rows.Count, "A").End(xlUp).Row
        
        For Each cell In Target
            If cell.Row <= lastRowRef And cell.Value <> "" Then
                newClient = cell.Value
                exists = False
                lastRowContract = wsContract.Cells(wsContract.Rows.Count, "A").End(xlUp).Row
                
                ' 检查客户是否已存在于Contract Info
                For i = 2 To lastRowContract
                    If wsContract.Cells(i, "A").Value = newClient Then
                        exists = True
                        Exit For
                    End If
                Next i
                
                ' 不存在则新增行
                If Not exists Then
                    wsContract.Cells(lastRowContract + 1, "A").Value = newClient
                    wsContract.Range(wsContract.Cells(lastRowContract + 1, "B"), wsContract.Cells(lastRowContract + 1, "C")).ClearContents
                End If
            End If
        Next cell
        Application.ScreenUpdating = True
    End If
End Sub

2. 将文件保存为「启用宏的工作簿（.xlsm）」，之后在Client Reference Sheet的A列新增客户时，Contract Info会自动在末尾添加对应空白行，A列填充客户名，其他列留空。

优化现有引用公式 #

你当前的VLOOKUP公式可简化为更高效的版本：

• Excel 365/2021及以上：

=XLOOKUP('Client Reference Sheet'!A2, 'Client Reference Sheet'!$A:$A, 'Client Reference Sheet'!$A:$A, "")

• 旧版Excel：

=IFERROR(VLOOKUP(A2, 'Client Reference Sheet'!$A:$A, 1, FALSE), "")

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