Excel VBA：单独运行正常的Remove10子过程调用后不生效求助

咱们来拆解你的Remove10子过程在被调用时失效的核心原因，以及对应的修复方案：

1. 未明确限定工作表的单元格引用 #

你的Remove10代码里，判断单元格长度时用了ThisWorkbook.Sheets("Data").Cells(i, 11).Value，但后续赋值操作直接写了Cells(i, 11).Value——这里的Cells没有指定父工作表！

当RunFullAutomation_Click执行时，活动工作表可能已经不是Data工作表（比如GetAndSetUpData过程可能切换了工作表），这时候Cells(i,11)会默认操作当前活动表，而非你要处理的Data表，自然看不到预期的修改效果。

2. 最后一行行号的取值逻辑不匹配 #

你用lr = ws.Cells(ws.Rows.Count, "T").End(xlUp).Row取的是T列的最后一行，但实际操作的是第11列（K列）。如果K列的数据行数比T列多，超出T列行数的K列单元格会被漏掉，完全没被处理。

修复后的Remove10代码 #

把所有单元格操作都绑定到指定的ws对象上，同时改用目标列（K列）来取最后一行，确保覆盖所有需要处理的单元格：

Sub Remove10()
    Dim i As Long
    Dim lr As Long
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Worksheets("Data")
    ' 改用K列（第11列）取最后一行，匹配实际操作的列
    lr = ws.Cells(ws.Rows.Count, 11).End(xlUp).Row
    
    For i = 2 To lr
        ' 所有Cells都绑定到ws对象，彻底避免活动表切换导致的错误
        If Len(ws.Cells(i, 11).Value) > 8 Then
            ws.Cells(i, 11).Value = Right(ws.Cells(i, 11).Value, 8)
        End If
    Next i
End Sub

额外优化建议 #

为了让代码更简洁易维护，也可以用With语句简化结构，进一步强化工作表的绑定：

Sub Remove10()
    Dim i As Long
    Dim lr As Long
    
    With ThisWorkbook.Worksheets("Data")
        lr = .Cells(.Rows.Count, 11).End(xlUp).Row
        For i = 2 To lr
            If Len(.Cells(i, 11).Value) > 8 Then
                .Cells(i, 11).Value = Right(.Cells(i, 11).Value, 8)
            End If
        Next i
    End With
End Sub

这样修改后，不管调用时活动工作表是什么，代码都会精准操作Data表的K列，应该就能正常工作了。

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