การ copy ข้อมูลเว้นบรรทัด ให้ไปเรียงต่อกัน

[tananpong]

สวัสดีครับผมอยากนำข้อมูลซึ่งเว้น 2 บรรทัดในcolumn A ให้ไปเรียงต่อกันโดยไม่เว้นบรรทัดใน Column E ทำยังไง รบกวนแก้ไข code ให้หน่อยนะครับ

Code: Select all

Sub CopyData()

Dim i As Single, j As Single, LastRow As Single
For i = 2 To 11 Step 3
    Cells(i, 1).Select
    Selection.Copy
    Cells(i - 1, 5).Select
    ActiveSheet.Paste

Next i

End Sub

[puriwutpokin]

ปรับตามนี้ครับ

Code: Select all

Sub CopyData()
Dim i As Single, j As Single, LastRow As Single
For i = 2 To 11 Step 3
    Cells(i, 1).Select
    Selection.Copy
    Cells(i - 1, 5).End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
Next i
End Sub

[tananpong]

สวัสดีครับผมอยากนำข้อมูลซึ่งเว้น 2 บรรทัดในcolumn A ให้ไปเรียงต่อกันโดยไม่เว้นบรรทัดใน Column E ทำยังไง รบกวนแก้ไข code ให้หน่อยนะครับ

Code: Select all

Sub CopyData()

Dim i As Single, j As Single, LastRow As Single
For i = 2 To 11 Step 3
    Cells(i, 1).Select
    Selection.Copy
    Cells(i - 1, 5).Select
    ActiveSheet.Paste

Next i

End Sub

ได้แล้วครับ ขอบพระคุณมากครับ