Sub test2()
Sheets("¤u§@ªí2").Activate '³]·í«e¤u§@ªí¬° ¤u§@ªí2
For i = 0 To 2
With Sheets("¤u§@ªí1")
.Range(.Cells(i + 2, 2), .Cells(i + 2, 6)).Copy ' ¤u§@ªí1 ½Æ»s
Cells(i * 9 + 2, 2).PasteSpecial xlPasteValues, xlNone, False, True ' ¤u§@ªí2(³Q¬Ù²¤) ¶K¤W
End With
Next
End Sub