Excel - Một macro để đặt và tự động điền một phạm vi

Vấn đề

Tôi đã ghi lại một macro cho Excel và một phần của mã là tạo một cột chỉ mục lấp đầy ô với số đếm hàng (tức là A2 = 1, A3 = 2, v.v.) dựa trên dữ liệu trong Cột B).

• Macro được ghi lại và hoạt động hoàn hảo, tuy nhiên khi tôi cố gắng sử dụng nó trên một tệp khác, macro sẽ gặp vấn đề vì mỗi tệp không có cùng số lượng hàng được điền.
• Làm cách nào tôi có thể sửa đổi mã bên dưới để điều chỉnh cho bất kỳ tệp Excel nào tôi mở bất kể có bao nhiêu hàng dữ liệu?

 Cột ("A: A"). Chọn Lựa chọn. Thay đổi: = xlToRight, CopyOrigin: = xlFormatFromLeftOrA Trên Phạm vi ("A1"). Chọn ActiveCell.FormulaR1C1 = "Index" Cột Các cột ("A: A"). Chọn Lựa chọn Phạm vi "1" ("A3"). Chọn ActiveCell.FormulaR1C1 = "2" Phạm vi ("A2: A3"). Chọn Lựa chọn. Điểm đến của Di động: .Lựa chọn 

Dung dịch

Hãy thử đoạn mã sau:

 Kiểm tra phụ () Dim lRow As Cột dài ("A: A"). Chọn Lựa chọn. Thay đổi trong phạm vi: = xlToRight Range ("A1"). Value = "Index" Phạm vi ("A2"). Value = 1 Range (" A3 "). Giá trị = 2 Phạm vi (" A2: A3 "). Chọn lRow = Phạm vi (" B "& Rows.Count) .End (xlUp) .Row Lựa chọn.AutoFill Destination: = Range (" A2: A "& lRow) Kết thúc phụ 

Cảm ơn TrowaD cho mẹo này.