Cách tách 1 vùng dữ liệu

[NguyenNgocSon]

Chào cả nhà em muốn hỏi thuộc tính .resize của Range
Gỉả sử em có vùng dữ liệu : A1:F13
Bây giờ em muốn lấy vùng: A1:F1 và A1:F13 thuộc vùng A1:F13 sử dụng .resize thì làm ntn ạ ?
Tách bằng VBA ạ ?
Cám ơn sự giúp đỡ !

 

[ndu96081631]

Chào cả nhà em muốn hỏi thuộc tính .resize của Range
Gỉả sử em có vùng dữ liệu : A1:F13
Bây giờ em muốn lấy vùng: A1:F1 và A1:F13 thuộc vùng A1:F13 sử dụng .resize thì làm ntn ạ ?
Tách bằng VBA ạ ?
Cám ơn sự giúp đỡ !

Từ A1:F13, muốn biến thành A1:F1 thì Resize như sau:
Range("A1:F13").Resize(1) ---> Resize thành 1 dòng
Còn câu này:

Bây giờ em muốn lấy vùng: A1:F1 và A1:F13 thuộc vùng A1:F13 sử dụng .resize thì làm ntn ạ ?

Chổ màu đỏ có nhầm lẩn gì không ta? Có phải bạn muốn hỏi:

Bây giờ em muốn lấy vùng: A1:F1 và A1:A13 thuộc vùng A1:F13 sử dụng .resize thì làm ntn ạ ?

Đúng không?
Nếu muốn lấy A1:A13 thì resize:
Range("A1:F13").Resize(, 1) ---> Resize thành 1 cột

 

[NguyenNgocSon]

Em lại phiền bác ndu rồi, nếu giờ em muốn lấy vùng A2:F13, vùng B1:F1 thì làm như thế nào ạ ?
Em cám ơn !

 

[ndu96081631]

Em lại phiền bác ndu rồi, nếu giờ em muốn lấy vùng A2:F13, vùng B1:F1 thì làm như thế nào ạ ?
Em cám ơn !

Vùng gốc là A1:F13
Lấy vùng A2:F13 (tức bỏ tiêu đề), ta dùng code sau:

Sub Test()
  Dim sRng As Range
  Set sRng = Range("A1:F13")
  Intersect(sRng, sRng.Offset(1)).Select
End Sub

Để lấy vùng B1:F1, dùng code sau:

Sub Test()
  Dim sRng As Range
  Set sRng = Range("A1:F13")
  Intersect(sRng, sRng.Resize(1).Offset(, 1)).Select
End Sub

-------------
Làm luôn vài thứ khác:
- Lấy vùng A2:A13:

Sub Test()
  Dim sRng As Range
  Set sRng = Range("A1:F13")
  Intersect(sRng, sRng.Resize(, 1).Offset(1)).Select
End Sub

- Lấy vùng B2:F13

Sub Test()
  Dim sRng As Range
  Set sRng = Range("A1:F13")
  Intersect(sRng, sRng.Offset(1, 1)).Select
End Sub

Vân vân và vân vân