VB EXCEL 插入列之后，然后我想赋值，居然会出问题。

Question

...
前面代码省略了    rng.Columns(1).Insert     '在第一列前面插入一列
For j = 1 To m                '然后我的本意是在新插入的列上面填充序号
   rng.Rows(1).cells(j, 1) = j
Next j
运行出来居然不可以，变成填充第2列了。有没有高手解释一下怎么做啊，这个似乎缺一个刷新，总不是要重新关闭文件再打开吧？？

Answer 1

rng.cells(j, 1) = j
去掉"Rows(1)."试试

Answer 2

这个意思嘛？？ 假设数据从第2行开始，编号在第一行
Option Explicit
Sub test()
    Dim j%
    Application.ScreenUpdating = False
    Columns(1).Insert 
    For j = 1 To Cells(2, Columns.Count).End(xlToLeft).Column 
        Cells(1, j) = j
    Next
    Application.ScreenUpdating = True
End Sub