#3
Post
by NuchLeeFay » Sun Jul 21, 2024 7:51 pm
ขอบคุณมากๆๆครับ
ตอนนี้ ได้ แบบนี้ แต่ มันดู ต้องทำต่อเนื่องจากแต่ละตำแหน่งไปเรื่อยๆๆ ดูแล้ว มันยาวมากๆๆ ครับ
Sub A_NewEGG()
'
' A_NewEGG Macro
'
'
ActiveCell.Activate
ActiveCell.Offset(-2, 0).Activate
Selection.Copy
ActiveCell.Offset(2, 0).Activate
ActiveSheet.Paste
ActiveCell.Offset(-1, 0).Activate
Selection.Copy
ActiveCell.Offset(1, 1).Activate
ActiveSheet.Paste
ActiveCell.Offset(-2, -16).Activate
Selection.Copy
ActiveCell.Offset(2, 17).Activate
ActiveSheet.Paste
ActiveCell.Offset(-2, -7).Activate
Selection.Copy
ActiveCell.Offset(2, 8).Activate
ActiveSheet.Paste
ActiveCell.Offset(-2, -7).Activate
Selection.Copy
ActiveCell.Offset(2, 8).Activate
ActiveSheet.Paste
ActiveCell.Offset(-2, -7).Activate
Selection.Copy
ActiveCell.Offset(2, 8).Activate
ActiveSheet.Paste
ActiveCell.Offset(-1, -20).Activate
Selection.Copy
ActiveCell.Offset(1, 21).Activate
ActiveSheet.Paste
ActiveCell.Offset(-1, -11).Activate
Selection.Copy
ActiveCell.Offset(1, 12).Activate
ActiveSheet.Paste
ActiveCell.Offset(-1, -11).Activate
Selection.Copy
ActiveCell.Offset(1, 12).Activate
ActiveSheet.Paste
ActiveCell.Offset(-1, -11).Activate
Selection.Copy
ActiveCell.Offset(1, 12).Activate
ActiveSheet.Paste
ActiveCell.Offset(0, -9).Activate
End Sub