매크로 관련

Question

안녕하세요.

매크로 관련 질문드립니다.

하단 sample sheet에 순서대로 있고 매크로 sheet 에

	목표
첫번째	딸기	사과	망고	파인애플
두번째	포도	바나나	가	나
세번째	다	라	마	바
네번째	사	아	자	차
다섯번째	카	타	파	하
여섯번째	갸	냐	댜	랴
.	.
.	.
.	.

위와 같이 나오게끔 만들게 하고싶은데

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A2,B2,C2,D2").Select
Selection.Replace What:="2", Replacement:="3", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A2,B2,C2,D2").Select
Selection.Replace What:="3", Replacement:="4", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A2,B2,C2,D2").Select
Selection.Replace What:="4", Replacement:="5", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

이런식으로 계속 반복해서 짜보았는데 안됩니다....어렵네요..

고수님들 부탁드립니다.

감사합니다.

dung**** · Answer

도움이 되셨으면 좋겠네요.

Sub practic()

Dim j As Long

Sheets("sample").Select
ActiveSheet.Rows("1:1").Select
Selection.Delete

For j = 1 To ActiveSheet.Range("A1").CurrentRegion.Rows.Count / 4 + 1 Step 1
ActiveSheet.Cells(j * 4 - 3, 1).Select
ActiveSheet.Range(Selection.Offset(0, 0), Selection.Offset(3, 0)).Select
Selection.Copy
ActiveSheet.Cells(j, 8).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Next j

End Sub