Menggabungkan Beberapa Sheet Menjadi Satu Sheet di Excel
Berikut saya bagikan file excel yang digunakan untuk tutorial https://drive.google.com/uc?export=download&id=1jNIg9M0LYQxvqbS09jypZVGQVbbCm-uc Rumus Macro yang saya gunakan yaitu Sub MenggabungkanSheet() Dim wrk As Workbook 'Workbook object - Always good to work with object variables Dim sht As Worksheet 'Object for handling worksheets in loop Dim trg As Worksheet 'Gabungan Worksheet Dim rng As Range 'Range object Dim colCount As Integer 'Column count in tables in the worksheets Set wrk = ActiveWorkbook 'Working in active workbook For Each sht In wrk.Worksheets If sht.Name = "Gabungan" Then MsgBox "There is a worksheet called as 'Gabungan'." & vbCrLf & _ "Please remove or rename this worksheet since 'Gabungan' would be" & _ "the name of the result worksheet of this process.", vbOKOnly + vbExclama