Làm thế nào để lấy Range chỉ có 1 cột từ một Range có nhiều cột?

[bivily]

Trong VBA làm thế nào để mình lấy chỉ có 1 cột từ một Range có nhiều cột? Ví dụ mình có một Range "B15:F50". Bây giờ mình muốn dùng hàm Match đối với cột thứ 2 trong Range nói trên (tức là "C15:C50"). Mình loay hoay từ sáng giờ mà chưa được. Xin được chỉ giáo!

PS. Hàm này tương tự như trong Excel =Offset("B15:F50",0,1,,1)

Cám ơn mọi người.

 

[hungpecc1]

Trong VBA làm thế nào để mình lấy chỉ có 1 cột từ một Range có nhiều cột? Ví dụ mình có một Range "B15:F50". Bây giờ mình muốn dùng hàm Match đối với cột thứ 2 trong Range nói trên (tức là "C15:C50"). Mình loay hoay từ sáng giờ mà chưa được. Xin được chỉ giáo!

PS. Hàm này tương tự như trong Excel =Offset("B15:F50",0,1,,1)

Cám ơn mọi người.

Tham khảo cú pháp sau :

Dim rng As Range
Set rng = [Vùng Range tham chiếu ].Resize(, 1).Offset(, n - 1)<----------- n số thứ tự cột trong Range

Áp dụng :

Dim rng As Range
Set rng = [B1:F50].Resize(, 1).Offset(, 2 - 1)

 

[SA_DQ]

Bạn thử theo cách sau, xem đúng í bạn không!?

Sub GPE()

 Dim Rng As Range, sRng As Range

 Set Rng=Range("B15:F50")

 Set sRng=Rng(2).Resize(Rng.Rows.Count)

 MsgBox sRng.Address,,"OK?"

End Sub

 

[VetMini]

Nếu chỉ lấy một cột thì dùng thuộc tính columns của range

set cot2 = Range("B15:F50").Columns(2)

 

[bivily]

Cám ơn các bạn đã nhiệt tình giúp đỡ. Mình đã áp dụng thành công cách Resize.