Archive for the ‘VB’ Category

1. Buka VBA Project (ALT-F11) 2. Tulis skrip makro dibawah ini : Sub loopcopydata() For i = 1 To 100 ‘Melakukan copy data kebawah sebanyak 100 x Selection.Copy ActiveCell.Offset(1, 0).Select ActiveSheet.Paste ActiveCell.Offset(-1, 1).Select Selection.Copy ActiveCell.Offset(1, 0).Select ActiveSheet.Paste ActiveCell.Offset(0, -1).Select Next i End Sub