如何使用 VBA 跳过 EXCEL 中的选定单元格，

Question

我有一个 VBA 宏，它根据是否包含条件格式来选择多个单元格。这些单元格不会在每个 sheet 上都位于同一位置。我正在寻找的是将 activecell 跳过到该范围内的下一个单元格的命令。与在突出显示的范围上按 TAB 键相同

目前我正在使用 sendkeys，如下所示，但这很混乱，并且不断在 vba 代码的下一行添加制表符空格（因此是“____Loop”）

ActiveCell.SpecialCells(xlCellTypeAllFormatConditions).Select

Do Until Recount = Count
Recount = Recount + 1
Application.SendKeys "{TAB}", True
    Loop

如有任何建议，我们将不胜感激

Answer 1

以下是循环遍历范围的方法：

Dim rng As Range, c As Range

Set rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllFormatConditions)
For Each c In rng
    c.Select
Next c

虽然不清楚您的代码的目的是什么。什么是 Count 和 Recount？

Answer 2

获取选定单元格的列表并循环遍历它们

Sub loopThroughCells()
    Dim r as Range
    Set r = Application.Selection
    For i = 0 to r.length
        MsgBox(r.value)
    Next i
End Sub

假设选择了三个值为 1、2 和 3 的单元格。在运行上面的宏中，您将得到分别具有值 1、2 和 3 的消息框。

Answer 3

如果您只需要选项卡按钮的命令，只需使用.offset（#of rows you want to offset, #of columns you want to offset）。因此，一旦您知道如何找到您需要的单元格（您似乎已经有了），那么您可以 put.offset(0,1) 将一个单元格向右移动。

如何使用 VBA 跳过 EXCEL 中的选定单元格，

How to skip through selected cells in EXCEL, using VBA,

vba

excel

sendkeys