VBA多次调用RowsAction子过程仅首次生效，疑因变量修改？

我来帮你捋捋这个问题——你两次调用RowsAction子过程调整不同工作表里的表格列宽，但只有第一次生效，第二次没反应，这大概率和你提到的变量修改有关，但更可能是RowsAction内部的逻辑或者参数传递后的执行问题。先从你给出的代码片段入手分析：

你的调用代码片段 #

Set targetSh = owb.Sheets("INPUT_INSTRUMENT")
Set resizeSh = owb.Sheets("Info")
tablename = "Table5"
Call RowsAction(targetSh, resizeSh, tablename)

Set resizeSh = owb.Sheets("Review")
tablename = "Table17"
Call RowsAction(targetSh, resizeSh, tablename)

可能的原因及排查方向 #

• 参数传递是否正确
  先确认第二次赋值的resizeSh和tablename确实指向了正确的对象。可以在每次调用前加调试输出，验证参数：

  Set resizeSh = owb.Sheets("Review")
  tablename = "Table17"
  Debug.Print "准备处理：工作表=" & resizeSh.Name & "，表格=" & tablename ' 打开立即窗口（Ctrl+G）查看输出
  Call RowsAction(targetSh, resizeSh, tablename)
  

  如果输出不对，那可能是工作表名称拼写错误，或者表格名称不对。

• RowsAction内部逻辑的问题
  你只贴了子过程的开头，大概率问题出在这个过程的内部：

  1. 是否正确引用了传入的表格：比如子过程里是不是写死了表格名称（比如硬编码Table5），而不是用传入的tablename变量？如果是这样，第二次调用还是会处理Table5，自然没效果。
  2. 列宽调整的逻辑是否适配不同表格：比如如果子过程里固定调整第1、2列的宽度，但Table17的列结构和Table5不一样（比如列数更少，或者你想调整的列不是前两列），那看起来就像没生效。
  3. 是否有错误被隐藏：如果子过程开头加了On Error Resume Next，那即使第二次调用时出现错误（比如Table17不存在、工作表引用失效），代码也会跳过执行，你根本看不到错误提示。建议去掉这个语句，让错误暴露出来，直接定位问题。
  4. 对象释放问题：虽然VBA有自动垃圾回收，但如果子过程里声明了ListObject之类的对象，最好在过程结束前释放：Set tbl = Nothing，避免对象引用混乱。

修复示例（假设RowsAction的正确逻辑） #

如果RowsAction是用来同步targetSh的列宽到resizeSh的表格，那正确的写法大概是这样：

Sub RowsAction(ByRef targetSh As Worksheet, resizeSh As Worksheet, tablename As String)
    Dim tbl As ListObject
    Dim targetCol As Range
    Dim tblCol As ListColumn
    
    ' 先确认表格存在
    On Error Resume Next
    Set tbl = resizeSh.ListObjects(tablename)
    On Error GoTo 0
    If tbl Is Nothing Then
        MsgBox "表格 " & tablename & " 在工作表 " & resizeSh.Name & " 中不存在！"
        Exit Sub
    End If
    
    ' 示例：同步targetSh前N列的宽度到表格的对应列
    For i = 1 To tbl.ListColumns.Count
        Set targetCol = targetSh.Cells(1, i) ' 假设targetSh的列和表格列一一对应
        tbl.ListColumns(i).Width = targetCol.Width
    Next i
    
    ' 释放对象
    Set tbl = Nothing
    Set targetCol = Nothing
End Sub

总结 #

先通过调试输出确认参数传递正确，然后检查RowsAction内部是否正确使用了传入的变量，有没有隐藏错误，基本就能定位到问题所在了。

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