Question

在A栏中，我有一个包含5个名字的列表 - 我希望在B栏中创建不同的团队并将其命名为Team_1，Team_2等等

这是我尝试过的语法......

Function AutoFill()
  Dim KCLR As Long
  KCLR = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
  Range("B2").Select
  ActiveCell.FormulaR1C1 = "Team_1"
  Selection.AutoFill Destination:=Range("B2:" & KCLR)
End Function

然而，在Selection.AutoFill Destination:=Range("B2:" & KCLR)行上我收到错误

范围（＆＃34; B2：＆＃34;＆amp; KCLR）=方法＆＃39;范围＆＃39;对象＆＃39; _Global＆＃39;失败

如果需要，我需要做什么才能成功AutoFill？

Answer 1

Selection.AutoFill Destination:=Range("B2:" & KCLR)应为Selection.AutoFill Destination:=Range("B2:B" & KCLR)，因为KCLR正在返回一个数字。

Answer 2

关注@ harun24hr回答，为了更好的编码实践，请避免使用Select，ActiveCell和Selection，并使用完全限定的Range。

见下面的例子：

Function AutoFill()

  Dim KCLR As Long

  KCLR = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
  Range("B2").FormulaR1C1 = "Team_1"
  Range("B2").AutoFill Destination:=Range("B2:B" & KCLR)

End Function

Excel VBA自动填充列

2 个答案: