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

我的回答将更好地看一看评论,但太长了(不能适当格式)。

How to loop over a range

我建议大家看一下Chip Pil page ,了解最佳利用VBA,特别是在VBA的牧场。

当你随身穿透镜时,你便使用<条码>每个说明,例如:

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

Finding the last empty cell

你的法典似乎试图找到最后的空洞。你们可以轻而易举地这样做。

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

可在 ozgrid 上找到一些更小的提纲。 (即使未使用<代码>rows.count)

Avoiding Selects

页: 1 页: 1 选择每个囚室。

You d better use the object model of VBA.
For instance, if you only want to copy the value of a cell:

www.un.org/Depts/DGACM/index_spanish.htm Don t do

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

<><>><>>>>

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

How to loop over a range

Finding the last empty cell

Avoiding Selects

友情链接