Question

方法range作用于对象global时失败

这是我写的一段代码，主要是想插入一行E，然后在E行用left区取D列前6位工号，再填充至该行最后一列，总是显示方法range作用于对象global时失败..请大神指点一二，谢谢
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("E2").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],6)"
Dim c As Range
Set c = Worksheets("新入网-当日").Range("D1048576").End(xlUp).Offset(0, 1)
Selection.AutoFill Destination:=Range("E2:c")

Answer 1

首先：对单元格的引用
Range("Ak").Value
要改为这样：
Range("A" & Cstr(k)).Value

Range("A(k + 1)").
改为这样：
Range("A" & Cstr(k + 1)).

同样
Rows("(k+1):(k+1)").Select
改为
Rows(CStr(k + 1) & ":" & CStr(k + 1)).Select