Excel - makro untuk mencari sel dan menambah baris baru

Isu

Saya ingin mencipta makro yang akan melihat contoh lajur A dan mencari nombor terakhir yang dimasukkan kemudian menambah baris di bawahnya dan melakukan ini setiap kali ia berlari.

Penyelesaian

Anda boleh menggunakan makro ini:

 Sub Insert_Row () Dim n As Integer n = Sel (Rows.Count, 1) .End (xlUp) .Row Rows (n) .Select Selection.Insert Shift: = xlUp End Sub 

Catatan

Terima kasih kepada aquarelle untuk tip ini di forum.