Coba prosedur :
Public Sub MySisip()
Dim rng As Range, lRows As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic
With Sheet1
lRows = 2 * .Range("a1").CurrentRegion.Rows.Count
.Range("f2").Resize(lRows).Formula =
"=IF(b2<>b1,IF(LEN(b2),N(F1)+1,1),IF(LEN(b2),F1,N(F1)+1))"
.Range("f2").Resize(lRows).Value = .Range("f2").Resize(lRows).Value
.Range("a1").CurrentRegion.Sort .Range("f1"), xlAscending,
Header:=xlYes, Orientation:=xlSortColumns
.Range("f2").EntireColumn.ClearContents
End With
End Sub
Prosedur di atas memanfaatkan fitur sort.
Wassalam,
Kid.
2013/1/12 Dede Suparman <[email protected]>
> **
>
>
> Dear All,
> jangan bosen ya, kasus pertama sudah selesai eehh ada lg.
> dengan "tombol merah (SISIP)" semua data dipisahkan dengan baris kosong.,
> yang jadai kasus nya, apakah bisa item yang sama nya tidak dipisah,sudah
> saya otak_atik ndak bisa.Mohon bantuannya,File Terlampir.
>
> SABUN
>
> SHAMPOO
>
> COLOGNE
> COLOGNE
>
> VITAMIN
> VITAMIN
> VITAMIN
>
> KARBOL
> KARBOL
> KARBOL
>
> salam,
> Dede Suparman
>
>
>
re-sisip baris.xlsm
Description: Binary data
