ขอสอบถามวิธีการย้ายข้อมูลที่ mark ด้วยสีเหลือง มาใส่ไว้ใน Co

[namachi69]

ข้อมูลใน colume B เฉพาะ ที่ Mark สีเหลือง จะถูกย้ายมาอยู่ Colume C โดยเริ่มจาก ช่อง C2 แล้วลบช่องว่างสีเหลืองออกAA

แต่ปัญหาอยู่ตรงที่ จำนวนข้อมูลใน 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

[snasui]

ให้แนบ Code มาในไฟล์แนบด้วย เพื่อจะได้สะดวกในการทดสอบครับ