Excel Forum

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

Code: Select all

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