엑셀 한 칸 건너뛰며 행선택 하기

엑셀 한 칸 건너뛰며 행선택하는 매크로 입니다.

네이버 검색해보니 짝수행, 홀수행 선택 하는 매크로만 있어서 올립니다. 실제로 업무에 적용해보면 시작행 위치가 지정되는게 필요해서 조금 수정하였습니다.

 

Sub 행선택_시작지정()

 

Dim first As Long

Dim last As Long

 

first = InputBox("시작할 행 번호를 입력하세요", , "2")

last = InputBox("선택할 마지막 행 번호를 입력하세요", , "100")

 

Dim r As Range

   

Set r = Rows(first)

r.Select

 

Do While first <= last

Set r = Union(r, Rows(first))

r.Select

first = first + 2

Loop

 

End Sub