Menggabungkan Beberapa Sheet Menjadi 1 Sheet di Excel

Kode macro excelnya seperti ini:

Sub Merge_Sheets()

Dim startRow, startCol, lastRow, lastCol As Long
Dim headers As Range

'Set Master sheet for consolidation
Set mtr = Worksheets("Master")

Set wb = ThisWorkbook
'Get Headers
Set headers = Application.InputBox("Select the Headers", Type:=8)

'Copy Headers into master
headers.Copy mtr.Range("A1")
startRow = headers.Row + 1
startCol = headers.Column

Debug.Print startRow, startCol
'loop through all sheets
For Each ws In wb.Worksheets
     'except the master sheet from looping
     If ws.Name <> "Master" Then
        ws.Activate
        lastRow = Cells(Rows.Count, startCol).End(xlUp).Row
        lastCol = Cells(startRow, Columns.Count).End(xlToLeft).Column
        'get data from each worksheet and copy it into Master sheet
        Range(Cells(startRow, startCol), Cells(lastRow, lastCol)).Copy _
        mtr.Range("A" & mtr.Cells(Rows.Count, 1).End(xlUp).Row + 1)
           End If
Next ws

Worksheets("Master").Activate

End Sub

Referensi: https://www.exceltip.com/cells-ranges-rows-and-columns-in-vba/consolidatemerge-multiple-worksheets-into-one-master-sheet-using-vba.html

The following two tabs change content below.

• Bio
• Latest Posts

mahisaajy

PMG Ahli Muda, Direktorat Data dan Komputasi at BMKG

Seorang pemuda yang mempunyai hobi menulis, membaca, dan bermusik. Tertarik dengan bidang ilmu komputer untuk memecahkan beberapa persoalan. Sejak tahun 2018 bekerja di BMKG di Direktorat Data dan Komputasi. Blog tentang Teknologi: Mahisadev.com

Latest posts by mahisaajy (see all)

• Kotlin untuk Java Developer: Perbandingan Sintaks Java ke Kotlin dan Panduan Lengkap - August 23, 2026
• Kesalahan yang Harus Dihindari Saat Membuat Aplikasi Mobile - August 19, 2026
• 7 Android Emulator Terbaik untuk Mobile Developer dan Testing Aplikasi - August 18, 2026