ขอสอบถามวิธีการย้ายข้อมูลที่ mark ด้วยสีเหลือง มาใส่ไว้ใน Co
Posted: Fri Aug 01, 2014 2:08 pm
ข้อมูลใน colume B เฉพาะ ที่ Mark สีเหลือง จะถูกย้ายมาอยู่ Colume C โดยเริ่มจาก ช่อง C2 แล้วลบช่องว่างสีเหลืองออกAA
แต่ปัญหาอยู่ตรงที่ จำนวนข้อมูลใน Colume C นั้นมีมากกว่า 2,000 Cell และแต่ในละวันนั้นไม่เท่ากัน ผมลองหัดทำ Macro ดู แต่ติดปัญหาในเรื่องการ Select Row ที่ไม่ต้องการนั้นมีเยอะเกินไป เลยอยากจะขออาจารย์ช่วยให้คำแนะนำด้วยครับ
ขอบพระคุณครับ
แต่ปัญหาอยู่ตรงที่ จำนวนข้อมูลใน Colume C นั้นมีมากกว่า 2,000 Cell และแต่ในละวันนั้นไม่เท่ากัน ผมลองหัดทำ Macro ดู แต่ติดปัญหาในเรื่องการ Select Row ที่ไม่ต้องการนั้นมีเยอะเกินไป เลยอยากจะขออาจารย์ช่วยให้คำแนะนำด้วยครับ
ขอบพระคุณครับ
Code: Select all
Sub Movecell1()
'
' Movecell1 Macro
'
'
Range("C2").Select
ActiveCell.FormulaR1C1 = "=R[1]C[-1]"
Range("C2:C3").Select
Selection.AutoFill Destination:=Range("C2:C22"), Type:=xlFillDefault
Range("C2:C22").Select
Columns("C:C").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Select1").Select
Range("A23").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub
ให้แนบ Code มาในไฟล์แนบด้วย เพื่อจะได้สะดวกในการทดสอบครับ