Sub FormatTable(workingSheet, N)
        workingSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$I$" & N), , xlYes).Name = "Vari Table"
End Sub

我会像这样改进你的程序：

Public Function insertTable(ws As Worksheet, numberOfRows As Long, nameOfTable As String) As ListObject
    Dim rg As Range
    Set rg = ws.Range("$A$1:$I$" & numberOfRows)
    
    Dim lo As ListObject
    Set lo = ws.ListObjects.Add(xlSrcRange, rg, , xlYes)
    
    lo.Name = nameOfTable
    
    Set insertTable = lo
End Function

您问题的基本解决方案：你必须用一个字符串来添加数字。

• • 重要提示**：始终通过引用工作表本身对区域使用 * explicit * 引用。否则，将引用活动工作表，而该工作表不需要是您传递给函数的工作表。在这种情况下，您的当前代码将引发错误。

这个函数返回创建的ListObject--以防您需要它来执行进一步的操作。