Excel VBA非相邻动态柱的选择范围

我有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

---

你非常非常接近：

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

---

你非常非常接近：

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