SMALL

    Cells.Find(What:="찾을셀Text", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate

' 현재셀 변수저장

Set nowAddress = Range(ActiveCell.Address)

' 위로한칸이동 (저장할셀로이동)

nowAddress.Offset(-1,0).Select

' 저장할 셀(변수)

Dim adrSave String

adrSave = ActiveCell.Address

 

exam  ) 변수사용시

- Range("A7:" & adrSave)

'  (& 추가)이런식으로 들어간다

LIST
블로그 이미지

SeoHW

,
SMALL
         
         
         
         
         

 

위표 만큼 지정 하는 VBA 소스입니다

 

ActiveCell.Range(Cells(1,1), (Cells(5,5)).Select

LIST
블로그 이미지

SeoHW

,
SMALL

vba 시작부분에
Application.DisplayAlerts = False

끝부분에 
Application.DisplayAlerts = true

LIST
블로그 이미지

SeoHW

,