Cần giúp trích xuất dữ liệu của 1 bảng

[toannq.vnptg]

Chào các bác,

Em có 1 bảng như trên, mong bác nào cao thủ giúp em công thức trích xuất giá trị của các hàng có "Proxy Used" sang một cột riêng với ạ. Em copy tay mỏi quá, có cả nghìn hàng. Mong các bác giúp em.

Em cảm ơn rất nhiều ạ

 

[befaint]

Excel có cái gọi là Filter ấy.

 

[phulien1902]

View attachment 202751

Chào các bác,

Em có 1 bảng như trên, mong bác nào cao thủ giúp em công thức trích xuất giá trị của các hàng có "Proxy Used" sang một cột riêng với ạ. Em copy tay mỏi quá, có cả nghìn hàng. Mong các bác giúp em.

Em cảm ơn rất nhiều ạ

Thử:

Sub abc()
    With ActiveSheet.Columns("C:C")
        .SpecialCells(xlCellTypeConstants, 1).Offset(, -1).Copy Range("H2")
        .SpecialCells(xlCellTypeConstants, 1).Copy Range("I2")
    End With
End Sub

Cách khác:

Sub abc()
    Dim i&, k&, LR&
    LR = Sheets("Sheet1").Range("H" & Rows.Count).End(xlUp).Row + 1
    k = 2: [H1] = "Proxy Used"
    For i = 1 To 100
        If Range("A" & i) = "Proxy Used" Then
            Range("A" & i).Offset(, 1).Resize(, 2).Copy Range("H" & Rows.Count).End(xlUp).Offset(1)
        End If
        k = k + 1
    Next
End Sub

 

[phulien1902]

Excel có cái gọi là Filter ấy.

Nhưng mà Filter chỉ áp dụng cho dữ liệu liên tục không có dòng trống đúng vậy không Befaint ?

 

[ndu96081631]

Nhưng mà Filter chỉ áp dụng cho dữ liệu liên tục không có dòng trống đúng vậy không Befaint ?

Theo dữ liệu trong hình ở bài 1 thì vẫn filter được bạn à. Bằng cách
- Quét chọn toàn bộ dữ liệu
- Filter cột A theo điều kiện "Proxy Used"
- Xong copy cột B:C sang cột H

 

[phulien1902]

Theo dữ liệu trong hình ở bài 1 thì vẫn filter được bạn à. Bằng cách
- Quét chọn toàn bộ dữ liệu
- Filter cột A theo điều kiện "Proxy Used"
- Xong copy cột B:C sang cột H

Vậy thì cho chủ Topic thêm 1 cách:

Sub abc2()
    With Range("A1:C1000")
        .Parent.AutoFilterMode = False
        .AutoFilter 1, "Proxy Used"
        .Offset(1).Copy Range("H" & Rows.Count).End(xlUp).Offset(1)
        .AutoFilter
    End With
End Sub

 

[toannq.vnptg]

thanks các bác, em làm được rồi