如何在Google Sheets中自动化变更事件触发的Flatten函数（针对B、C列已用范围）

一、解决FLATTEN引用已用范围及#REF错误 #

你遇到的#REF错误大概率是因为A列目标区域有被占用的单元格（比如A列原本有数据，FLATTEN的溢出结果无法覆盖），或者公式引用逻辑有问题。以下是两种可靠的实现方式：

方式1：动态数组公式（无需VBA） #

如果你的Excel支持动态数组（365/2021版本），推荐用TOCOL替代FLATTEN（功能更灵活），自动忽略空单元格并按B列在前、C列在后的顺序合并：

=TOCOL(B:C,1)

如果一定要用FLATTEN，可以结合COUNTA锁定B、C列的已用非空范围，避免引用整列空值：

=FLATTEN(B1:INDEX(B:B,COUNTA(B:B)), C1:INDEX(C:C,COUNTA(C:C)))

注意：输入公式前要确保A列目标区域完全空白，否则溢出会触发#REF错误。

方式2：VBA精准指定已用范围 #

若需要更灵活的控制，用VBA自动获取B、C列最后一行有数据的行号：

Dim lastRowB As Long, lastRowC As Long
lastRowB = Cells(Rows.Count, "B").End(xlUp).Row
lastRowC = Cells(Rows.Count, "C").End(xlUp).Row

这段代码能自动适配B、C列的数据增减，无需手动调整范围。

二、实现工作表变更时自动执行 #

借助工作表的Worksheet_Change事件，只要当前标签页的单元格内容发生变更，就自动更新A列的合并内容，步骤如下：

1. 右键点击当前工作表的标签页（比如Sheet1），选择查看代码。
2. 在弹出的VBA编辑器中，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义变量
    Dim lastRowB As Long, lastRowC As Long
    Dim rangeB As Range, rangeC As Range
    
    ' 避免循环触发事件
    Application.EnableEvents = False
    
    ' 获取B、C列的已用范围
    lastRowB = Cells(Rows.Count, "B").End(xlUp).Row
    lastRowC = Cells(Rows.Count, "C").End(xlUp).Row
    Set rangeB = Range("B1:B" & lastRowB)
    Set rangeC = Range("C1:C" & lastRowC)
    
    ' 清空A列旧内容并复制新内容
    Range("A:A").ClearContents
    rangeB.Copy Destination:=Range("A1")
    rangeC.Copy Destination:=Range("A" & lastRowB + 1)
    
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

3. 关闭VBA编辑器回到Excel，现在修改当前工作表的任何单元格，A列都会自动更新为“先B列内容、再C列内容”的格式。

代码说明： #

• Application.EnableEvents = False：防止复制操作再次触发变更事件，避免死循环。
• 自动适配B、C列的数据行数，无论数据新增还是删除都能正常工作。

内容的提问来源于stack exchange，提问作者Fekra Business.Solutions