Snasui Excel Forum

choinat wrote: Fri May 10, 2019 9:59 am ต้องการรวมข้อมูลอ่ะครับ แต่ที่ทำอยู่เอามาทุกตารางเลย ถ้าต้องการแต่คอลัม P จะต้องเพิ่มตรงไหนครับ

Code: Select all

Sub Button1_Click()

    Sheets("MTD").Select
    Columns("P:P").Select
    Count1 = Application.CountA(Columns(1))
    Rows("1:" & Count1).Select
    Selection.Copy
    Sheets("DEP").Select
    Count1 = Application.CountA(Columns(1))
    Cells(Count1 + 1, 1).Select
    ActiveSheet.Paste
    Cells(Count1 + 1, 1).Select
    Application.CutCopyMode = False

    Sheets("JADHAI").Select
    Columns("P:P").Select
    Count1 = Application.CountA(Columns(1))
    Rows("1:" & Count1).Select
    Selection.Copy
    Sheets("DEP").Select
    Count1 = Application.CountA(Columns(1))
    Cells(Count1 + 1, 1).Select
    ActiveSheet.Paste
    Cells(Count1 + 1, 1).Select
    Application.CutCopyMode = False



End Sub