Sama2 pak.
Kalau mau pake function juga bisa.
Copas Code ini di Module1 juga
Function No_Blank(lrng As Range)
Dim A(), X()
Dim n As Long, r As Long
ReDim A(1 To lrng.Cells.Count)
For n = 1 To UBound(A)
A(n) = lrng.Cells(n)
If Not A(n) = "" Then
r = r + 1: ReDim Preserve X(1 To r): X(r) = A(n)
End If
Next n
No_Blank = WorksheetFunction.Transpose(X)
End Function
Cara menjalankan Functionnya:
- Sorot sel B2 ke bawah (sebanyak baris data)
- Ketik =No_Blank(E2:E21) kemudian akhiri dengan menekan tombol CSE (array
formula).
- Tanda #N/A menyatakan baris akhir data telah terlampaui.
Salam,
HK
On Monday, 23 December 2013, 14:00, Rahmat Suprianto <andiksa...@gmail.com>
wrote:
makasih pak hk.. ini forum sangat bermanfaat sekali guna meningkatkan
kecerdasan bangsa dan negara....
hehehe (kok sampek banagsa dan negara)
intinya makasih pak...
2013/12/23 hendrik karnadi <hendrikkarn...@yahoo.com>
>
>Macro dalam file terlampir adalah modifikasi dari function LOUV warisan mba
>Siti.
>
>Macronya seperti ini :
>Sub NoBlank()
> Dim lrow As Long
> Dim lrng As Range
> Dim n As Long, r As Long
> Dim X()
> lrow = Cells(Rows.Count, "E").End(xlUp).Row
> Set lrng = Range("E2").Resize(lrow)
> For n = 1 To lrng.Rows.Count
> If Not lrng(n) = "" Then
> r = r + 1: ReDim Preserve X(1 To r): X(r) = lrng(n)
> End If
> Next n
> Range("B2").Resize(r) = WorksheetFunction.Transpose(X)
>End
Sub
>
>
>
>File terlampir.
>
>
>Salam,
>HK
>
>
>
>
>
>
>
>On Monday, 23 December 2013, 12:02, Rahmat Suprianto <andiksa...@gmail.com>
>wrote:
>
>
>dh
>
>salam be-excel
>
>bagaimana membuat macro ntuk menjaring ikan yang terpisah seperti file
>terlampir
>
>
>
>wasalam
>
>
>Andik Syarif
>
>***** Mods *****
>Yang diinginkan oleh sdr Andik adalah mengumpulkan data
>dalam 1 tabel dengan menghilangkan data yang kosong
>******************
>
>
>
