이런 식으로 해보십시오. tyhis가 작동하려면 일련의 3이 동일하게 유지되는 것이 중요합니다.
Sub SingleRow()
Range("A2").Select
Do
Selection.Cut
ActiveCell.Offset(-1, 1).Select
ActiveSheet.Paste
ActiveCell.Offset(1, -1).Select
ActiveCell.EntireRow.Select
ActiveCell.EntireRow.Delete
ActiveCell.Cut
ActiveCell.Offset(-1, 2).Select
ActiveSheet.Paste
ActiveCell.Offset(1, -2).Select
ActiveCell.EntireRow.Select
ActiveCell.EntireRow.Delete
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Value = "" And ActiveCell.Offset(-1, 0).Value = ""
End Sub
테스트를 거쳤으며 트릭을해야합니다.
=IF(MOD(ROW(),3)=1,OFFSET($A1,COLUMN()-2,0),"")
3 열을 오른쪽으로 드래그 한 다음 데이터의 끝까지 드래그하십시오.