셀선택 매크로 문의 합니다.

자문 자답이 되었네요

Sub 셀선택()
Dim ws As Worksheet
Dim selectedRange As Range
Dim i As Integer

' 현재 활성화된 시트를 가져옴
Set ws = ActiveSheet

' 규칙적인 범위를 선택
For i = 0 To 4200 Step 22
' 현재 선택된 범위와 새로운 범위를 합침
If selectedRange Is Nothing Then
Set selectedRange = ws.Range("B6:D16, I6:K16").Offset(i, 0)
Else
Set selectedRange = Union(selectedRange, ws.Range("B6:D16, I6:K16").Offset(i, 0))
End If
Next i

' 선택한 범위를 강조 표시
If Not selectedRange Is Nothing Then
selectedRange.Select
End If
End Sub

@짜장좋아 님 샘플과 함께 무얼하고 싶은지 질문해보세요..~

@짜장좋아 님 Range의 Address를 받아와서 아래처럼 작성해보십시오.

RngAddress = RngAddress & "," & selectedRange.Address

Range(RngAddress).Select