Sabtu, 25 Mei 2019

Cara menggabungkan beberapa sheet excell menjadi satu

cara nya adalah

  1. buka file yang terdiri dari beberapa sheet
  2. tekan alt+f11 untuk membuka Microsoft Visual Basic For Applications.
  3. klik insert use Form
  4. Pilih Module
  5. Paste kode berikut
    Sub Combine()
    Dim J As Integer
    On Error Resume Next
    Sheets(1).Select
    Worksheets.Add
    Sheets(1).Name = "Combined"
    Sheets(2).Activate
    Range("A1").EntireRow.Select
    Selection.Copy Destination:=Sheets(1).Range("A1")
    For J = 2 To Sheets.Count
    Sheets(J).Activate
    Range("A1").Select
    Selection.CurrentRegion.Select
    Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
    Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
    Next
    End Sub
  6. Tekan f5 untuk menjalakan
  7. Done