excel - 在不使用公式的情况下在 excel 中创建标识列

Question

我使用 excel 电子表格作为手动格式化数据以导入 SQL2005 的一种方式。我的问题是，在数据库中我有一个标识列，所以当我向 XLS 表添加行时，我必须手动创建标识列，因为使用公式最终会将公式导出到 SQL2005，而不是代表数字。有谁知道我可以用来将增量数字插入列的快速宏？

Answer 1

比使用循环更有效的方法如下。（假设您的身份列是 A）

Dim r As Range

Sheet1.Range("A1").FormulaR1C1 = "1"
Sheet1.Range("A2").FormulaR1C1 = "2"

Set r = Sheet1.Range("A1", Sheet1.Range("A" & Sheet1.UsedRange.Rows.Count))
Sheet1.Range("A1:A2").AutoFill Destination:= r

Answer 2

这个小循环会做到这一点。

它将添加 Col A 唯一编号，以便在访问 SQL 服务器时可以在您的 ID 字段中使用它们。

子 Increment_Numbers()

暗淡我只要

For i = 1 To 100

    Range("A1").Offset(i).Value = i

Next i

结束子