vba - VBA为数据集中的新数据创建唯一的ID号

Question

我正在尝试为位于 B:AB 列中的数据集中的新数据填写 A 列中的 ID 号

数据集包含现有数据（已具有唯一 ID），新数据将添加到 B:AB 列中。

问题：在 AI 列中要添加一个 unique_id #，其中 uniqe_id= 单元格高于 +1

数据集中已有的数据我使用 C 列作为我的基础来确定最后一个包含数据的单元格。我使用 A 列作为我的基础来确定第一个没有数据的单元格。

我的代码：

Sub Copy_ID_Down()
With Sheets("data_output").Columns("A")

Dim LastPopulatedRow As Long
Dim FirstPopulatedRow As Long
Dim ColA AS Range 

Application.ScreenUpdating = False

LastPopulatedRow = Range("C" & Rows.Count).End(xlUp).Row
FirstPopulatedRow = Range("A" & Rows.Count).End(xlDown).Row


Set ColA = Range(“A” & FirstPopulatedRow & LastPopulatedRow)

ColA.Select

With Selection.SpecialCells(xlCellTypeBlanks)
.FormulaR1C1 = "=R[-1]C+1"
.Value = .Value

Application.ScreenUpdating = True

End With
End With
End Sub

标签： vbadataset