Cách chỉ lấy cái dòng được filter vào mảng???

[Quy Vu]

Chào các anh chị
Em có một file như file đính kèm, giờ em chỉ muốn lấy những dòng được chọn rồi đưa vào mảng thì làm như nào ạ
em chọn theo Selection thì nó lấy cả những dòng bị ẩn
em cám ơn!
kết quả e để ở sheet1 ạ

Sub test_mang()
Dim Arr, Rng, i, Tarr, maxrow, maxcol
     Set Rng = Selection
     Arr = Rng.Value
     maxrow = UBound(Arr, 1)
     maxcol = UBound(Arr, 2)
     ReDim Tarr(1 To maxrow, 1 To maxcol)
Sheets("Sheet1").Range("A1").Resize(maxrow, maxcol) = Arr

End Sub

 

[hungpecc1]

Chào các anh chị
Em có một file như file đính kèm, giờ em chỉ muốn lấy những dòng được chọn rồi đưa vào mảng thì làm như nào ạ
em chọn theo Selection thì nó lấy cả những dòng bị ẩn
em cám ơn!
kết quả e để ở sheet1 ạ

Sub test_mang()
Dim Arr, Rng, i, Tarr, maxrow, maxcol
     Set Rng = Selection
     Arr = Rng.Value
     maxrow = UBound(Arr, 1)
     maxcol = UBound(Arr, 2)
     ReDim Tarr(1 To maxrow, 1 To maxcol)
Sheets("Sheet1").Range("A1").Resize(maxrow, maxcol) = Arr

End Sub

thử dòng code này xem:
Selection.SpecialCells(xlCellTypeVisible).Select
hoặc
Intersect(MyRange, ActiveWindow.VisibleRange).SpecialCells(xlCellTypeVisible)

 

[Quy Vu]

thử dòng code này xem:
Selection.SpecialCells(xlCellTypeVisible).Select
hoặc
Intersect(MyRange, ActiveWindow.VisibleRange).SpecialCells(xlCellTypeVisible)

Cả hai cách đều không được bác ạ?

Bài đã được tự động gộp: 11/6/19

ak bỏ cái Select ở cuối code dòng 1 là được ạ như này : Selection.SpecialCells(xlCellTypeVisible)