Excel - Makro untuk memasukkan baris kosong

• Isu
• Penyelesaian

Isu

Anda cuba membuat makro yang akan memasukkan satu set baris kosong ke hamparan sedia ada selepas setiap entri. Jumlah baris yang diperlukan akan sama untuk setiap penyertaan spreadsheet, tetapi perlu diubah setiap kali ia digunakan.

Berikut adalah contoh ...

Pada masa ini:

 Tajuk1
Tajuk2
Tajuk3
Tajuk4 

Selepas menggunakan Makro:

 Tajuk1
Tajuk2
Tajuk3
Tajuk4

Jumlah baris kosong boleh pergi dari 20 - 40.

Penyelesaian

A1 mempunyai tajuk.

Kemudian cuba makro ini

menyimpan fail asal anda dengan selamat di suatu tempat

pertama lakukan ujian makro dalam data eksperimen yang telah anda hantar

 Ujian subjek ()
Dim J As Long, r As Range
j = InputBox ("taipkan bilangan baris yang akan dilemparkan")
Tetapkan r = Julat ("A2")
Lakukan
Julat (r.Offset (1, 0), r.Offset (j, 0)). EntireRow.Insert
Tetapkan r = Sel (r.Row + j + 1, 1)
MsgBox r.Address
Jika r.Offset (1, 0) = "" Kemudian Exit Do
Loop
Sub Akhir

Terima kasih kepada venkat1926 untuk tip ini.