嘿，我一眼就揪出问题所在啦！你的代码之所以运行后毫无效果，核心问题出在For循环的语法逻辑错误上——虽然VBA没报语法错，但循环根本没执行起来。

错误根源 #

你写的循环语句：

For i = 2 To i = (newtablecolumn + finalcolumn - 1)

不符合VBA For循环的标准语法。VBA会把i = (newtablecolumn + finalcolumn - 1)当成一个布尔判断表达式：也就是检查当前i的值是否等于计算出来的85。但循环启动时i的初始值是2，这个判断结果必然是False，而在VBA里False等价于数值0。

这就导致你的循环实际上变成了：

For i = 2 To 0

起始值（2）大于结束值（0），循环直接跳过，自然不会执行任何列的格式设置操作。

修正后的代码 #

把循环里多余的i =去掉，写成标准的For循环格式即可：

Dim i As Long
For i = 2 To (newtablecolumn + finalcolumn - 1)
    Columns(i).NumberFormat = "#,##0_ ;[Red]-#,##0"
Next i

额外检查点（避免其他潜在问题） #

• 确认变量值正确性：可以在循环前添加Debug.Print newtablecolumn + finalcolumn - 1，打开立即窗口（Ctrl+G）查看输出是否为85，确保变量赋值没有偏差。
• 指定目标工作表：如果当前激活的不是你的数据集所在工作表，Columns(i)会作用在错误的表上。建议明确指定工作表，比如：

  ThisWorkbook.Worksheets("你的数据集表名").Columns(i).NumberFormat = "#,##0_ ;[Red]-#,##0"
  

• 检查工作表保护：如果目标工作表或列处于保护状态，格式设置操作会被阻止，需要先取消保护（Worksheets("表名").Unprotect）再执行格式设置。

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