Question

我使用excel电子表格作为手动格式化数据以导入SQL2005的方法。我的问题是在DB中我有一个标识列，所以当我向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上添加唯一的数字，以便它们可以在您的ID字段中使用什么时候去SQL服务器。

Sub Increment_Numbers（）

Dim i As Long

For i = 1 To 100

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

Next i

End Sub

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

2 个答案: