如何用VBA向最后有值列的右侧空白列添加数据？

原代码的核心问题是定位到了最后一列而非其右侧的空白列，同时部分公式的行偏移和字符串拼接存在错误，以下是修正后的完整方案：

问题点拆解 #

• 原代码Set lrngCol = Cells(1, LastCol)指向的是最后一个有数据的列，而非右侧空白列，应改为LastCol + 1
• lrngCol.Offset(2, 0)会定位到第3行，不符合你要插入E1、E2的需求，需调整偏移量
• 公式中的字符串拼接存在语法错误，比如FILTER里的空字符串写法有误

修正后的VBA代码 #

Dim LastCol As Long
Dim lrngCol As Range
Dim ws1 As Worksheet ' 需先给ws1赋值，比如Set ws1 = ThisWorkbook.Sheets("Sheet1")

' 定位最后一个有数据的列（覆盖所有行数据，避免仅检查第1行遗漏）
LastCol = ws1.Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

' 指向最后一列右侧的空白列第1行
Set lrngCol = ws1.Cells(1, LastCol + 1)

' 在空白列第1行写入拼接公式（修正字符串拼接语法）
lrngCol.Formula = "=CONCATENATE(""Test Name "", " & rng1.Offset(-1, 4).Address(External:=False) & ")"

' 在空白列第2行写入SORT+UNIQUE+FILTER公式（修正空字符串判断，调整行偏移）
lrngCol.Offset(1, 0).Formula2 = "=SORT(UNIQUE(FILTER(H2:H100, H2:H100<>"""")))"

关键说明 #

• 改用Cells.Find定位最后一列：相比仅检查第1行，该方法能适配任意行有数据的场景，避免定位错误
• LastCol + 1确保每次都指向最后数据列的右侧空白列，实现每次运行宏插入新列的目标
• 公式中用""表示单个双引号，修正原代码中多余引号导致的语法错误
• Offset(1, 0)将第二个公式定位到第2行，匹配你示例中E2的需求
• 必须确保ws1已正确指定目标工作表，避免跨表引用错误

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