Question

下面是我到目前为止的代码我能够单击该按钮，每次单击该按钮时，单元格选择将向下移动1行。我需要的是在F3上开始选择并选择向下直到大约F35，但是当我测距时它不会逐个选择单元格。

这是我的代码：

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

如果您有一个名为sock.close()的{{1}}按钮，则将其附加一个名为Form的子（或其他任何内容，但与附加的Sub的名称一致）并放置以下代码在任何模块中：

Button1

如果您有一个名为Button1_Click()的{{1}}按钮，则在其工作表代码窗格中编写与上面相同的代码

每次单击Excel VBA时，都可以选择下一个单元格

1 个答案: