Excel - Makro untuk mengatur dan mengisi otomatis rentang

Isu

Saya telah mencatat makro untuk Excel dan bagian dari kode adalah untuk membuat kolom indeks yang mengisi sel dengan jumlah baris (yaitu A2 = 1, A3 = 2, dll.) Berdasarkan data dalam Kolom B).

• Makro direkam dan bekerja dengan sempurna, namun ketika saya mencoba menggunakannya pada file lain, makro mengalami masalah karena setiap file tidak memiliki jumlah baris yang diisi yang sama untuk dihitung.
• Bagaimana saya bisa memodifikasi kode di bawah ini untuk menyesuaikan dengan file Excel apa pun yang saya buka terlepas dari berapa banyak baris data yang ada?

 Kolom ("A: A"). Pilih Seleksi. Masukkan Geser: = xlToRight, CopyOrigin: = xlFormatFromLeftOrAbove Range ("A1"). Pilih ActiveCell.FormulaR1C1 = "Indeks" Kolom ("B: B"). Pilih Seleksi. Salinan Kolom ("A: A"). Pilih Selection.PasteSpecial Paste: = xlPasteFormats, Operasi: = xlNone, _ SkipBlanks: = False, Transpose: = False Application.CutCopyMode = False Range ("A2"). Pilih ActiveCell.FormulaR1C1 = "1" Rentang ("A3"). Pilih ActiveCell.FormulaR1C1 = "Rentang 2" ("A2: A3"). Pilih Seleksi. Tujuan Isi Otomatis: = Rentang ("A2: A295324") Rentang ("A2: A295324") .Memilih 

Larutan

Coba kode berikut:

 Sub test () Dim lRow As Long Columns ("A: A"). Pilih Selection.Insert Shift: = xlToRight Range ("A1"). Nilai = "Index" Range ("A2"). Value = 1 Range (" A3 "). Nilai = 2 Rentang (" A2: A3 "). Pilih lRow = Rentang (" B "& Rows.Count) .End (xlUp) .Row Selection.AutoFill Destination: = Range (" A2: A "& lRow) End Sub 

Terima kasih TrowaD untuk tip ini.