如何将单元格值设置为循环内容？

Question

我下面有这个代码。如何将单元格值设置为 = 循环该值的内容？

Sub Test2()
      ' Select cell A2, *first line of data*.
      Range("A2").Select
      ' Set Do loop to stop when an empty cell is reached.
      Do Until IsEmpty(ActiveCell)
         ' Insert your code here.
         ' Step down 1 row from present location.
         ActiveCell.Offset(1, 0).Select
      Loop
   End Sub

Answer 1

我的答案看起来更像是评论，但它太长，无法放入评论（并且无法正确格式化）。

如何循环范围

我建议您查看 Chip Pearson 页面 了解有关优化 VBA，尤其是 VBA 中的范围循环。

当您遍历范围时，您应该使用 foreach 语句，如本示例中所述：

Dim WS as Worksheet
For Each WS In Worksheets
    MsgBox WS.Name
Next WS

Dim i as Integer
For i = 1 To Worksheets.Count
    MsgBox Worksheets(i).Name
Next i

查找最后一个空单元格

您的代码似乎尝试查找最后一个空单元格。您可以轻松地使用

With ActiveWorkbook.Worksheets("Sheet1")
    .Cells(.Rows.Count,1).End(xlUp)
End With

您可以在 ozgrid 上找到更多提示（即使它们不要使用rows.count）

避免选择

如果您尝试选择循环中的每个单元格，您的代码将会非常非常慢。

你最好使用VBA的对象模型。
例如，如果您只想复制单元格的值：

不做

Range("A1").Select
Selection.Copy
Range("A2").Select
Selection.Paste

做

Range("A2").Value = Range("A1").Value