VBA代码需执行两次才生效的问题排查求助

问题现象 #

• 首次运行触发Error 9（下标越界）：仅完成E列内容复制到K列，未执行去重操作，也无法进入循环
• 第二次运行无报错：可正常去重并执行后续循环逻辑
• 额外发现：若在去重前选中目标区域，首次运行能完成去重，但仍需第二次运行才能进入循环

核心原因 #

问题出在**FinalRowK的取值时机错误**：你在复制E列内容到K列之前就获取了K列的最后行号，此时K列要么是空的，要么只有旧数据，导致后续去重、循环使用的都是错误的行号。

• 首次运行时，K列无数据，FinalRowK会返回1（空列的End(xlUp)默认定位到第一行），复制E列后，去重区域仅包含K1单元格，等于没执行去重；后续循环区域是反向的无效范围（从K2到K1），循环直接跳过，且尝试访问无效工作表时触发下标越界。
• 第二次运行时，K列已有第一次复制的数据，FinalRowK取到正确行号，流程恢复正常。

修正后的代码 #

Sub Distribuir()
    Dim FinalRowE As Integer
    Dim FinalRowK As Integer
    Dim Cell As Range
    Dim TabList As Range
    Dim RawList As Range
    Dim UnDuplicateList As Range
    Dim WS As Worksheet
    
    ' 指定目标工作表，避免依赖活动工作表
    Set WS = ActiveSheet ' 可替换为具体表名，比如Set WS = ThisWorkbook.Sheets("你的表名")
    
    ' 获取E列最后数据行号
    FinalRowE = WS.Cells(WS.Rows.Count, "E").End(xlUp).Row
    Set RawList = WS.Range(WS.Cells(FinalRowE, "E"), WS.Cells(1, "E"))
    
    ' 复制E列内容到K列
    RawList.Copy WS.Range("K1")
    
    ' 复制完成后，重新获取K列最新的最后行号
    FinalRowK = WS.Cells(WS.Rows.Count, "K").End(xlUp).Row
    
    ' 定义去重区域并执行去重
    Set UnDuplicateList = WS.Range(WS.Cells(1, "K"), WS.Cells(FinalRowK, "K"))
    UnDuplicateList.RemoveDuplicates Columns:=1, Header:=xlNo       
    
    ' 定义循环区域（从K2开始到最后一行）
    Set TabList = WS.Range(WS.Cells(2, "K"), WS.Cells(FinalRowK, "K"))
    For Each Cell In TabList
        If Cell.Value <> "" Then
            ' 增加错误处理，避免工作表不存在导致的报错
            On Error Resume Next
            ThisWorkbook.Sheets(Cell.Value).Visible = True
            On Error GoTo 0
        End If
    Next
End Sub

关键修改说明 #

1. 调整FinalRowK取值时机：必须在复制E列到K列之后再获取K列行号，确保拿到最新有效数据的行号
2. 绑定工作表对象：所有单元格操作都关联到指定的WS对象，避免依赖活动工作表引发的意外问题
3. 增加错误处理：在设置工作表可见性时加入错误捕获，防止因Cell.Value对应的工作表不存在而触发下标越界

内容的提问来源于stack exchange，提问作者Francisco Augusto Varela Aguir