newbie coba bantu, pake VBA (yang super berantakan :) maap kalo kurang berkenan :)
'for belajar-excel '28 feb 2014 Sub gabung() Dim lastrowGab As Long Dim lastrowGab2 As Long Worksheets("DATA1").Activate Range("A4").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy 'ActiveSheet.Previous.Select Worksheets("GAB").Activate Range("a7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False lastrowGab = Worksheets("GAB").Range("A65536").End(xlUp).Row + 1 Worksheets("DATA2").Activate Range("A4").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Worksheets("GAB").Activate Range("A" & lastrowGab).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False lastrowGab2 = Worksheets("GAB").Range("A65536").End(xlUp).Row + 1 Range("A" & lastrowGab2).Select End Sub 2014-02-28 16:33 GMT+07:00 Eko Noviyanto <eko_n...@yahoo.co.id>: > > > Dear Master XL, > > Mohon bantuannya untuk file terlampir, dimana yang menjadi pertanyaan > adalah menggabungkan data dari 2 sheet menjadi 1 sheet. > > Teriimakasih atas bantuannya. > > Salam, > Nopenk > > > -- regards, Wira 鄧又銘 on desktop FireFox