สอบถามการ copy ข้อมูลให้เท่ากับจำนวนแถวของ column อ้างอิง

[arpegio]

Sub Macro3()
'
' Macro3 áÁâ¤Ã
'
' Keyboard Shortcut: Ctrl+o
'
Range("A2").Select
Selection.Copy
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Range("A2:A506").Select
ActiveSheet.Paste
Range("B2").Select
Application.CutCopyMode = False
Selection.Copy
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Range("B2:B506").Select
ActiveSheet.Paste
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Range("D2:D506").Select
ActiveSheet.Paste
Columns("E:H").Select
Application.CutCopyMode = False
Selection.NumberFormat = "0.0"
Columns("I:J").Select
Selection.NumberFormat = "0"
Range("K2").Select
End Sub



ผมบันทึก macro ได้ตามนี้ครับ อยากให้คำสั่งสามารถ copy และ paste โดยอ้างอิงจากจำนวนแถวที่มีข้อมูลของ column C เช่น column มีข้อมูล 200 แถว คำสั่งก็จะทำการ copy Cell A2, B2, D2 ไปถึงแถวที่ 200 ขอความกรุณาด้วยครับ

[snasui]

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

[arpegio]

แนบไฟล์มาแล้วครับ

[snasui]

ในโอกาสถัดไปช่วยให้รายละเอียดมาด้วยว่าต้องการจะทำอะไรที่ชีตไหน จะได้สะดวกในการทำความเข้าใจครับ

ตัวอย่าง Code สำหรับการเติมค่าว่างให้เหมือนบรรทัดบนคือด้านล่างครับ

Code: Select all

Sub Macro3()
'
' Macro3 áÁâ¤Ã
'
' Keyboard Shortcut: Ctrl+o
'
    ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Select
    Selection.Formula = "=R[-1]C"
    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
    Columns("E:H").Select
    Application.CutCopyMode = False
    Selection.NumberFormat = "0.0"
    Columns("I:J").Select
    Selection.NumberFormat = "0"
    Range("K2").Select
End Sub

[arpegio]

ขอบพระคุณมากครับ ต้องขออภัยที่อธิบายไม่ละเอียดครับ