VBA宏需求：基于‘Sequence’定位行并插入标签（含跳过逻辑）

以下是满足你需求的VBA代码，解决了原宏因格式问题定位不准的问题：

Sub InsertLabelsAfterSequence()
    Dim ws As Worksheet
    Dim findRange As Range
    Dim firstFind As String
    Dim targetRow As Long
    Dim i As Integer
    
    ' 遍历工作簿内所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 精准查找单元格内容完全为"Sequence"的单元格
        Set findRange = ws.Cells.Find(What:="Sequence", LookIn:=xlValues, LookAt:=xlWhole)
        
        If Not findRange Is Nothing Then
            firstFind = findRange.Address ' 记录首个匹配位置，防止无限循环
            
            Do
                targetRow = findRange.Row + 1 ' 获取"Sequence"所在行的下一行
                
                ' 检查目标行前9列是否无任何内容（忽略格式影响）
                If WorksheetFunction.CountA(ws.Rows(targetRow).Resize(1, 9)) = 0 Then
                    ' 插入指定标签，可自行修改标签文本
                    For i = 1 To 9
                        ws.Cells(targetRow, i).Value = "Label" & i
                    Next i
                End If
                
                ' 查找下一个"Sequence"匹配项
                Set findRange = ws.Cells.FindNext(findRange)
                
            Loop While Not findRange Is Nothing And findRange.Address <> firstFind
        End If
    Next ws
End Sub

关键逻辑说明 #

• 全工作表遍历：覆盖工作簿中所有工作表，确保没有遗漏
• 精准文本匹配：LookAt:=xlWhole确保只匹配单元格内容完全等于"Sequence"的项，LookIn:=xlValues跳过格式干扰，只检查单元格实际值
• 避免循环死锁：记录首个匹配的单元格地址，循环到该地址时终止，防止无限循环
• 可靠空行判断：用CountA统计目标行前9列的非空单元格数量，等于0则判定为无内容，彻底解决格式（如带格式的空单元格）导致的误判
• 灵活标签插入：循环赋值可直接修改标签文本，适应不同需求

与原宏的核心差异 #

原宏依赖首空行定位，极易受隐藏行、格式化空单元格影响；新方案直接以"Sequence"文本为锚点，逻辑更稳定，同时通过CountA准确识别真实空行，避免格式干扰。

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