범위를 다른 범위로 분할하시겠습니까? VBA

Question

Range B1:BF1이 있다고 가정해 보겠습니다.

또 다른 하나는 가변 범위(iE E1:W1)입니다.

위쪽을 아래쪽으로 나누고 싶으므로 결과는 다음과 같습니다.

B1:D1, X1:BF1

이렇게 분할된 범위를 하나의 변수에 저장할 수 있나요?

Answer 1

역순으로 작업을 하셔야 할 것 같습니다 Intersect. 불행히도 나는 그러한 작업에 대해 전혀 모릅니다.

이로써 범위를 확인하고 겹치는 부분을 확인하는 작은 코드 조각입니다. 겹치지 않으면 새 범위가 생성됩니다.

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

그게 당신이 시작하길 바랍니다.