Dear Mr Nang Agus,bisa sekalian diberikan keterangan scriptnya, biar saya dapat memahaminya. Option Explicit Sub kopi() Dim baris As Long, tinggi As Integer, x As Integer Dim wadah As String tinggi = Range("c1000000").End(xlUp).Row For x = tinggi To 7 Step -1 If Cells(x, 1).Value = 0 Then wadah = Cells(x, 3).Value & wadah Cells(x, 3).Value = "" If Cells(x, 5).Value <> 0 Then baris = Cells(x, 5).Value Cells(x, 5).Value = "" End If Else wadah = Cells(x, 3).Value & wadah Cells(x, 3).Value = wadah wadah = "" Cells(x, 5).Value = baris End If Next x End Sub
terima kasih,ASL To: belajar-excel@yahoogroups.com From: belajar-excel@yahoogroups.com Date: Mon, 25 May 2015 13:07:02 +0700 Subject: Re: [belajar-excel] Menyatukan 2 atau 3 baris menjadi 1 baris data Mohon maaf ada yang ketinggalan untuk kolom E, mungkin cekripnya begini: Option Explicit Sub kopi() Dim baris As Long, tinggi As Integer, x As Integer Dim wadah As String tinggi = Range("c1000000").End(xlUp).Row For x = tinggi To 7 Step -1 If Cells(x, 1).Value = 0 Then wadah = Cells(x, 3).Value & wadah Cells(x, 3).Value = "" If Cells(x, 5).Value <> 0 Then baris = Cells(x, 5).Value Cells(x, 5).Value = "" End If Else wadah = Cells(x, 3).Value & wadah Cells(x, 3).Value = wadah wadah = "" Cells(x, 5).Value = baris End If Next x End Sub 2015-05-25 12:52 GMT+07:00 Nang Agus <nanga...@gmail.com>: Mungkinkah macro begini? Option Explicit Sub kopi() Dim baris As Integer, tinggi As Integer, x As Integer Dim wadah As String tinggi = Range("c1000000").End(xlUp).Row For x = tinggi To 7 Step -1 If Cells(x, 1).Value = 0 Then wadah = Cells(x, 3).Value & wadah Cells(x, 3).Value = "" Else wadah = Cells(x, 3).Value & wadah Cells(x, 3).Value = wadah wadah = "" End If Next x 2015-05-25 10:11 GMT+07:00 Ahmad Syaifullah Lubis syaiful...@hotmail.com [belajar-excel] <belajar-excel@yahoogroups.com>: Dear BeExceller, Saya mendapatkan data yang cukup membuat saya kewalahan, di mana data2nya biasanya hanya 1 baris, tetapi terkadang ada 2 atau 3 baris, sehingga saya kerepotan dalam menyatukannya menjadi 1 baris.Mohon diberikan macro yang bisa mengatasi masalah saya tsb. terima kasih, ASL