MÌNH CÓ BẢNG TÍNH GỒM 16 SHEETS (ĐỊNH DẠNG VÀ DỮ LIỆU NHƯ NHAU). CỘT U TRONG CÁC SHEET ĐỂ ĐÁNH SỐ TT. MÌNH LÀM SUB NÀY ĐỂ ĐÁNH SỐ TT TẤT CẢ CÁC SHEET TRONG 1 LẦN NHƯNG KHÔNG CHẠY ĐƯỢC, XIN GIÚP ĐỠ HOẶC CÓ CÁCH NÀO ĐÁNH SỐ TT ĐƠN GIẢN HƠN KHÔNG:
Sub INSERT_STT()
Sheets(1).Select
Sheets(Array((1), (2), (3), (4), (5), (6), _
(7), (8), (9), (10), (11), (12), (13), _
(14), (15), (16))).Select
Sheets(1).Activate
Range("U2").Select
ActiveCell.FormulaR1C1 = "1"
Range("U3").Select
ActiveCell.FormulaR1C1 = "2"
Range("U2:U3").Select
Selection.AutoFill Destination:=Range([U2], [U2].End(xlDown))
End Sub
Sub INSERT_STT()
Sheets(1).Select
Sheets(Array((1), (2), (3), (4), (5), (6), _
(7), (8), (9), (10), (11), (12), (13), _
(14), (15), (16))).Select
Sheets(1).Activate
Range("U2").Select
ActiveCell.FormulaR1C1 = "1"
Range("U3").Select
ActiveCell.FormulaR1C1 = "2"
Range("U2:U3").Select
Selection.AutoFill Destination:=Range([U2], [U2].End(xlDown))
End Sub