Как пропустить выбранные ячейки в EXCEL, используя VBA,

Question

У меня есть макрос VBA, который выбирает несколько ячеек на основе, если он содержит условное форматирование. Эти клетки не все будут в одном месте на каждом листе. То, что я ищу, - это команда пропустить 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 (# строк, которые вы хотите смещать, # столбцов, которые вы хотите компенсировать). Итак, как только вы знаете, как найти нужные вам ячейки, которые, как вам кажется, уже есть, вы можете просто put.offset (0,1) переместить одну ячейку вправо.