如何使用VBA将ID号附加到每行的末尾？

Question

我有一个包含大约3450个项目的工作表。我使用数据透视表使用过滤器显示此信息的图表。问题是“结果”部分中存在重复值。我希望这些包含在图表中，因此我需要为每行应用ID。是否有一个脚本可以将序号（1,2,3，...）添加到列O？

Answer 1

这设置为在工作表编号1上工作，您可以将其更改为您需要的工作表。它也从列O的第一行开始。

Sub Add_to_O()
LRow = Sheets(1).Range("O" & Rows.Count).End(xlUp).Row

For I = 1 to LRow
  Sheets(1).Range("O" & I).value = Sheets(1).Range("O" & I).value & I
Next I
End Sub