Dividir intervalo por outro intervalo entre ele? VBA

Question

Digamos que eu tenha o intervalo B1:BF1

E outro, Faixa Variável (ou seja, E1: W1)

Quero dividir o Superior pelo inferior, para que o Resultado fique assim

B1:D1, X1:BF1

É possível salvar um intervalo dividido como esse em uma variável?

Answer 1

Eu acho que você tem que fazer alguma Intersectoperação inversa. Infelizmente não conheço nenhuma operação desse tipo.

Este é um pequeno trecho de código que verificará os intervalos e verá onde eles se sobrepõem. Se eles não se sobrepuserem, criará um novo intervalo.

Sub Test()

Dim Rng1 As Range, Rng2 As Range, Rng3 As Range, Cl As Range

With ThisWorkbook.Sheets("Sheet1")
    Set Rng1 = .Range("B1:BF1")
    Set Rng2 = .Range("E1:W1")
    For Each Cl In Rng1
        If Intersect(Rng2, Cl) Is Nothing Then
            If Not Rng3 Is Nothing Then
                Set Rng3 = Union(Rng3, Cl)
            Else
                Set Rng3 = Cl
            End If
        End If
    Next Cl

Debug.Print Rng3.Address
End With

End Sub

Espero que isso ajude você a começar.