Xác định cột cuối cùng trong 1 khối

[hoanglocphat]

Nhờ các bạn xác định cột cuối cùng kể từ ô O1
Mình có code như sau

Sub CopyCongThuc()
Dim i As Long
Application.Calculation = xlAutomatic
i = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
Range("O2").Copy ActiveSheet.Range("O3:Q" & i)
Range("O3:Q" & i).Value = Range("O3:Q" & i).Value
MsgBox "Da copy xong"
End Sub

hiện nay câu lệnh: Range("O3:Q" & i) mình phải sửa = tay
Nếu phát sinh thêm "tiêu đề 5 và tiêu đề 6" ở lần lượt cột R & S
Thì code trên phần Range("O3:Q" & i) thì phải sửa thành Range("O3:S" & i)
Bây giờ có các nào xác định được cột cuối để cho code tự động (mà không chỉnh bằng tay)
Cảm ơn các bạn

 

[ptm0412]

Bạn đã biết xài End(xlUp), vậy hãy tìm hiểu và xài End(xlToRight) và End(xlToLeft)