สอบถามผู้รู้ครับ เรื่อง การเขียนโค๊ดคัดลอก

[teclub2006]

เข้าเรื่องเลยนะครับ พอดีต้องการเขียนโค้ด คัดลอก ข้อมูลไปยังอีก Sheet ซึ่งผมได้ลองเขียนแล้ว

ปัญหาคือ ผมไม่อยากให้บรรทัดที่ซ่อนติดมาด้วยครับ

อันที่จริงมีปัญหาอีกสองข้อแต่เอาอันนี้ก่อนดีกว่า ครับ

ขอบคุณล่วงหน้านะครับ

Sheet1 คือหน้าข้อมูล
Sheet2 คือหน้าที่เอาข้อมูลไปวาง

[snasui]

ไม่พบ Code ในไฟล์แนบครับ

[teclub2006]

Code: Select all

Sheets("Sheet2").Select
    
    Range("A2:C2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    
    Sheets("Sheet2").Select
    
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

ขอโทษด้วยนะครับที่ไม่ได้แนบโค้ดไปด้วย

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sheets("Sheet2").Select
    
    Range("A2:C2").Select
    Range(Selection, Selection.End(xlDown)).SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    
    Sheets("Sheet2").Select
    
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

[teclub2006]

ช่วยอธิบายในส่วนของ SpecialCells หน่อยครับ พยายามทำความเข้าใจครับ

[snasui]

.SpecialCells(xlCellTypeVisible) เทียบได้กับกดแป้น F5 แล้วเลือก Special แล้วเลือก Visible cell only ซึ่งเป็นการเลือกเฉพาะเซลล์ที่มองเห็น (ไม่เลือกเซลล์ที่ซ่อน) ครับ

[teclub2006]

ขอบคุณครับ