Dear Hadiat, Biarkan pekerjaan berulang dan menjemukan dilakukan oleh komputer melalui macro yang kita perintahkan. Silakan coba macro berikut ini:
Sub Macro1()
'
' Macro1 Macro
' menambah baris
'
' Keyboard Shortcut: Ctrl+q
'
While ActiveCell.Value <> "" ' lakukan selama sel masih berisi
Selection.EntireRow.Insert ' insert row (renggangkan dr
baris di atasnya)
ActiveCell.Offset(2, 0).Select ' pindah ke baris berikutnya
Wend
End Sub
Pada file lampiran silakan gunakan Ctrl-Q untuk menjalankan macro
Semoga membantu
= eka =
Berbagi sebisa mungkin
eka - Menambah rows selang satu baris.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
