vba - 在 VBA (Excel) 中，A 列如何插入一个 ID 标题，后跟 1-X 直到它到达代表数据最高行的空单元格？

Question

我正在尝试创建一个将插入一列的宏，该列将成为电子表格 (A) 中的第一列，同时将所有原始列向右移动一列。

然后，我需要第一列来创建标题“ID”，每个标题都以数字方式计算行数:

[一个]

编号

1

2

3

我只希望编号在到达电子表格中的最后一个相关行后停止。我能够通过在录制宏时执行我通常会执行的任务来生成以下 VBA，并最终得到以下结果:

Sub InsertID()
'
' InsertID Macro
' Add first column to be 1-##
'
' Keyboard Shortcut: Ctrl+Shift+N
'
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "ID"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("A2:A3").Select
    Selection.AutoFill Destination:=Range("A2:A522")
    Range("A2:A522").Select
    Range("A1").Select
End Sub

显然，这不适用于我的情况。我使用的模板只有 521 行。这个数字将是一个变量，通常可以由原始列 A 中的行数确定(在运行此宏之后现在是列)。

我已经广泛研究了如何为特定列中的行数创建一个变量，但是即使它看起来很简单，也无法找到具有足够相似参数的问题。

提前致谢

Answer 1

尝试这个...

Sub CreateIDColumn()
lr = ActiveSheet.UsedRange.Rows.Count
Columns(1).Insert
Range("A1").Value = "ID"
Range("A2:A" & lr).Formula = "=ROW()-1"
Range("A2:A" & lr).Value = Range("A2:A" & lr).Value
End Sub