如何在Excel VBA中创建行数可变的格式化表格？

你遇到的问题核心在于两点：

• 未将Range对象绑定到传入的workingSheet，默认会使用当前活动工作表，导致参数生效范围错误
• 直接在范围字符串中写N会被当作普通文本，VBA不会解析为变量值

修正方案1：字符串拼接动态范围 #

通过字符串拼接将变量N融入范围地址，同时绑定到目标工作表：

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

修正方案2：用Cells构建范围（更严谨） #

这种方式避免字符串拼接的潜在问题，直接通过行列号精准定位范围：

Sub FormatTable(workingSheet As Worksheet, N As Long)
    Dim tableRange As Range
    ' 定位从A1（第1行第1列）到I列第N行的区域
    Set tableRange = workingSheet.Range(workingSheet.Cells(1, 1), workingSheet.Cells(N, 9))
    workingSheet.ListObjects.Add(xlSrcRange, tableRange, , xlYes).Name = "Vari Table"
End Sub

额外提示：给参数添加类型声明（As Worksheet、As Long），可以提前发现类型错误，提升代码稳定性。

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