ขออนุญาตสอบถามปัญหาเรื่อง code สำหรับ copy ข้อมูลแล้วมีแถสส่วนคลลัมม์ติดมาด้วย

[9KiTTi]

ผมมีปุ่มสำหรับนำเข้าไฟล์(ตามตัวอย่าง) มาใส่ และหลังจากนั้นจะมี code สำหรับ copy ข้อมูลจากชีท OP มาวางในชีท main ช่อง A2 แต่ติดที่มีแถว A1 ซึ่งเป็นหัวคอลัมม์มาด้วย ขอแนวทางแก้ไขด้วยครับ

Code: Select all

Sub copyunit()
    Dim s As Worksheet
    Dim M As Worksheet
    Set M = Sheets("Main")
    Dim lr As Long
For Each s In Worksheets
    If s.Name <> M.Name Then 'ชื่อต้องไม่ซ้ำ
        s.Range("A1:AR1").Copy
        lr = M.Range("C24").End(xlUp).Row + 1
        Do While lr < 2
            lr = lr + 2
        Loop
        M.Range("A" & lr).PasteSpecial Paste:=xlPasteValues
    End If
Next s
    Application.CutCopyMode = False
    Worksheets("Main").Activate
End Sub

[puriwutpokin]

แบบนี้หรือเปล่าครับ
ปรับตรงนี้ครับ

Code: Select all

   If s.Name <> M.Name And s.Name <> "OP" Then   

[9KiTTi]

แบบนี้หรือเปล่าครับ
ปรับตรงนี้ครับ

Code: Select all

   If s.Name <> M.Name And s.Name <> "OP" Then   

ใช้งานได้แล้ว ขอบพระคุณมากครับ