현재 선택 범위 내에서 VBA 셀 선택

Question

다음을 기록하여 원래 범위의 시작 부분에서 오른쪽으로 두 개의 셀을 벗어난 범위에 수직 셀 세트를 조 변경했습니다.

Sub Macro4() 
' 
' Macro4 Macro 
' 
' Keyboard Shortcut: Option+Cmd+u 
' 
    Range("A105:A115").Select 
    Selection.Copy 
    Range("C105").Select 
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ 
     , Transpose:=True 
    ActiveWindow.SmallScroll Down:=6 
    Range("A116").Select 
End Sub 

이제 수동으로 강조 표시된 다른 셀과 관련하여이 작업을 수행하는 매크로를 실행하고 싶습니다. 어떻게 코드를 편집 할 수 있습니까? 감사.

Answer 1

이 시도 :

Dim rng As Range 
If TypeName(Selection) = "Range" Then 
    Set rng = Selection 
    rng.Copy 
    rng.Offset(0, 2).Resize(1, 1).PasteSpecial xlPasteAll, , , True 
End If 

HTH