Excel - Makro untuk menyisipkan baris kosong
- Isu
- Larutan
Isu
Anda mencoba membuat makro yang akan menyisipkan satu set baris kosong ke dalam spreadsheet yang ada setelah setiap entri. Jumlah baris yang dibutuhkan akan sama untuk setiap entri spreadsheet, tetapi harus diubah setiap kali digunakan.Berikut adalah contoh ...
Saat ini:
Judul1Judul2
Judul3
Judul4
Setelah menggunakan Macro:
Judul1Judul2
Judul3
Judul4
Jumlah baris kosong bisa dari 20 - 40.
Larutan
A1 memiliki judul.Kemudian coba makro ini
simpan file asli Anda dengan aman di suatu tempat
pertama-tama lakukan pengujian makro pada data eksperimen yang telah Anda kirim
Sub tes ()Dim j As Long, r As Range
j = InputBox ("ketikkan jumlah baris yang akan diinsersikan")
Set r = Rentang ("A2")
Melakukan
Range (r.Offset (1, 0), r.Offset (j, 0)).
Set r = Sel (r.Row + j + 1, 1)
MsgBox r. Alamat
Jika r.Offset (1, 0) = "" Lalu Keluar Dari
Loop
End Sub
Terima kasih kepada venkat1926 untuk tip ini.