Cách tạo MyRange trong bảng tính:

[tuan_ph]

Chào các bạn! Khi đọc trên các trang Excel của nước ngoài mình thấy họ lập
được tên các vùng bằng các MyRange rất hay, công thức dạng (VD: =OFFSET(Sheet1!$A$2,0,0,COUNTA(Sheet1!$A$2:$A$100),COUNTA(Sheet1!$A$1:$J$1))
)
Mình cảm thấy rất hay, nhưng tạo thử thì không thể làm được.
Có bạn nào đã dùng MyRange rồi xin chỉ giúp mình với nhé. Cảm ơn các bạn nhều!!

 

[hoangminhtien]

công thức trong name mà bạn đưa ra đã có rất nhiều trên diễn đàn, bạn vào tìm kiếm với từ khóa là "name động" sẽ cho bạn rất nhiều bài viết liên quan đến công thức này

 

[tuan_ph]

Cảm ơn bạn Minh Tiến nhưng phải tạo được Range trong VBA cơ mà, để mình tìm xem có không.

 

[ThuNghi]

Cảm ơn bạn Minh Tiến nhưng phải tạo được Range trong VBA cơ mà, để mình tìm xem có không.

Đây là ví dụ, còn phải nghiên cứu nhiều

Sub TaoName()
Dim Rng As Range, dong As Integer, cot As Integer
Sheet1.Select
dong = WorksheetFunction.CountA(Range("A1:A100"))
cot = WorksheetFunction.CountA(Range("A1:J1"))
Range(Cells(1, 1), Cells(1, 1).Offset(dong - 1, cot - 1)).Name = "Rng"
End Sub

 

[ndu96081631]

Thường thì trong VBA người ta hay dùng:
Range(...).End(xlUp).Row để xác định dòng cuối cùng có dử liệu
và
Range(...).End(xlToLeft).Column để xác định cột cuối cùng có dử liệu
Tiếp theo có thể dùng Resize để xác định vùng
Ngoài ra trong 1 số trường hợp cụ thể có thể dùng:
Range(....).CurrentRegion....
cũng có thể xác định rất chính xác vùng dử liệu