每次点击button，就可以select下一个单元格Excel VBA

下面是我到目前为止的代码，我可以点击button，每次单击button时，单元格select将向下移动1行。我需要的是在F3上开始select，直到大约F35但是当我测距的时候，并不是一个接一个地select这些单元格。

这是我的代码：

Dim rng As Range Dim row As Range Dim cell As Range Set rng = Range("F2") rng.Select For Each row In rng.Rows For Each cell In row.Cells ActiveCell.Offset(1, 0).Select Next cell Range("G66") = ActiveCell Next row 

Answer 1

如果你有一个名为Button1的Formbutton，那么附加一个名为Button1_Click()的子Button1_Click()或者其他的，但是与附加的Sub的名字一致）并把下面的代码放在任何模块中：

 Option Explicit Dim notFirst As Boolean Dim rng As Range Sub Button1_Click() If notFirst Then If rng.row = 35 Then MsgBox "Sorry: you've already reached last valid cell in column F" Exit Sub Else Set rng = rng.Offset(1) End If Else Set rng = Range("F3") notFirst = True End If Range("G66").Value = rng.Value End Sub 

如果您有一个名为Button1的ActiveXbutton，则在其表单代码窗格中input与上面相同的代码