VBA Выбор диапазона несмежных динамических столбцов

Question

У меня есть 6 групп данных, которые динамически основаны на днях недели и меняются каждый месяц.Все начинаются на R6 и группы разделены пустым столбцом.Я хотел бы выбрать их все в качестве диапазона для форматирования (границы, выравнивание и т. Д.), Но не форматировать пустые столбцы, которые разделяют их.Я новичок в VBA и ценю вашу помощь.

Sub Macro3()

Dim d_hend As Object, d_qend As Object, d_zend As Object, d_aiend As Object, 
d_arend As Object, d_bdend As Object
Dim d_all1 As Range, d_all2 As Range, d_all3 As Range, d_all4 As Range, 
d_all5 As Range, d_all6 As Range

Set d_hend = Range("H6").End(xlDown)
Set d_qend = Range("Q6").End(xlDown)
Set d_zend = Range("Z6").End(xlDown)
Set d_aiend = Range("AI6").End(xlDown)
Set d_arend = Range("AR6").End(xlDown)
Set d_bdend = Range("BD6").End(xlDown)

Set d_all1 = Range("A6", d_hend)
Set d_all2 = Range("J6", d_qend)
Set d_all3 = Range("S6", d_zend)
Set d_all4 = Range("AB6", d_aiend)
Set d_all5 = Range("AK6", d_arend)
Set d_all6 = Range("AT6", d_bdend)
Set d_all = Range("Range("d_all1"), Range("d_all2"), Range("d_all3"), 
    Range("d_all4"), Range("d_all5"), Range("d_all6")")

End Sub

Answer 1

Вы были очень, очень близки:

Sub Macro3()

    Dim d_hend As Range, d_qend As Range, d_zend As Range, d_aiend As Range, d_arend As Range, d_bdend As Range
    Dim d_all1 As Range, d_all2 As Range, d_all3 As Range, d_all4 As Range, d_all5 As Range, d_all6 As Range, d_all As Range

    Set d_hend = Range("H6").End(xlDown)
    Set d_qend = Range("Q6").End(xlDown)
    Set d_zend = Range("Z6").End(xlDown)
    Set d_aiend = Range("AI6").End(xlDown)
    Set d_arend = Range("AR6").End(xlDown)
    Set d_bdend = Range("BD6").End(xlDown)

    Set d_all1 = Range("A6", d_hend)
    Set d_all2 = Range("J6", d_qend)
    Set d_all3 = Range("S6", d_zend)
    Set d_all4 = Range("AB6", d_aiend)
    Set d_all5 = Range("AK6", d_arend)
    Set d_all6 = Range("AT6", d_bdend)
    Set d_all = Union(d_all1, d_all2, d_all3, d_all4, d_all5, d_all6)

    d_all.Interior.ColorIndex = 27

End Sub