VBA循环起始位置错误 未从第2行启动问题排查

需求说明 #

• 从工作表第2行开始，逐行将C列及右侧填充区域的标签值，与同行B列的名称值拼接后输出
• 示例截图：

现存问题 #

已实现目标标签行高亮逻辑，但编写标签选取、拼接逻辑时，调试发现内层循环未按预期从第2行开始执行，反而从第13行启动。

现有代码 #

Sub MakeFullNames()
Application.DisplayAlerts = False
Dim WB1 As Workbook, WS4 As Worksheet, Nombres As Range, NewNames As Range
Dim tmpArray() As String, Nombre As String, TagNumber As Long, Tags As Range
Dim Tag As String, LastRow As Long, i As Long, j As Long
Set WB1 = ActiveWorkbook
Set WS4 = WB1.Worksheets("Output_List")
Set Nombres = WS4.Range("B:B")
Set NewNames = WS4.Range("N:N")

With WS4
    LastRow = .Range("A" & .Rows.Count).End(xlUp).Row

    For i = 2 To LastRow
        Nombre = .Range("B" & i)
        TagNumber = .Range("A" & i).End(xlToRight).Column
        Set Tags = .Range(Cells(i, 3), Cells(i, TagNumber))
        For j = 1 To TagNumber - 2
            Tag = Tags.Columns(j).Value
            'Debug.Print Tag
        Next j
        
    Next i
End With

Application.DisplayAlerts = True
End Sub

当前暂未实现名称与标签的拼接逻辑，仅需排查For J循环未从第2行启动、反而从第13行开始运行的原因。

问题根因 #

1. 列边界计算逻辑错误：TagNumber = .Range("A" & i).End(xlToRight).Column的逻辑是从A列对应单元格向右查找连续非空区域的边界，若前12行A列到右侧标签列之间存在空单元格，End(xlToRight)会直接跳转到整行最右侧的非空单元格（甚至直接跳到工作表最后一列XFD，列号16384），导致内层j循环的上限值异常偏大，前12行的内层循环会执行巨量无意义迭代，调试时就会表现为循环直接从第13行开始。
2. 单元格对象未加工作表限定：Set Tags = .Range(Cells(i, 3), Cells(i, TagNumber))中的Cells没有绑定WS4工作表，若代码运行时激活的不是Output_List工作表，会直接读取错误工作表的单元格范围，进一步导致列数计算失真。

修复方法 #

• 调整标签区域右边界的计算逻辑：从当前行最右侧列向左查找第一个非空单元格，避免End(xlToRight)的跳位问题
• 所有单元格对象前添加工作表限定，避免跨表取数错误
• 增加空行判断：若当前行C列及右侧无标签内容，直接跳过该行减少无效计算
  核心修复代码如下：

With WS4
    LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 2 To LastRow
        Nombre = .Range("B" & i).Value
        ' 从行最右侧向左定位最后一个非空单元格，作为标签区域右边界
        TagNumber = .Cells(i, .Columns.Count).End(xlToLeft).Column
        ' 无有效标签时跳过当前行
        If TagNumber >= 3 Then
            ' With块内单元格前加. 绑定WS4工作表
            Set Tags = .Range(.Cells(i, 3), .Cells(i, TagNumber))
            For j = 1 To Tags.Columns.Count
                Tag = Tags.Columns(j).Value
                ' 后续可在此处添加名称+标签的拼接逻辑
            Next j
        End If
    Next i
End With

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