Lấy dữ liệu bằng vba

[tuan16]

Hiện tại em có file excell sau ạ. Các ô chứa dữ liệu đang ở các vị trí cách quãng nhau và không theo quy luật ạ. Em muốn lấy các dữ liệu như em trình bày trong file ạ. Em có dùng công thức mảng để làm được nhưng file bị nặng. Em xin nhờ các anh chị trên diễn đàn viết giúp em đoạn code để em lấy được dữ liệu như mong muốn ạ.

 

[phulien1902]

chính xác luôn ạ. bác giỏi quá

Cách khác này:

    Application.ScreenUpdating = False
    Sheets("ket qua").UsedRange.Clear
    With Sheets("dau vao").[A8].CurrentRegion
        .AutoFilter 2, "<> "
        .Columns("C").Copy Sheets("ket qua").[D8]
        .AutoFilter
    End With
    Application.ScreenUpdating = True

 

[Phamvannhan1531]

Cách khác này:

Sub Test()
    Application.ScreenUpdating = False
    Sheets("ket qua").UsedRange.Clear
    With Sheets("dau vao").[A8].CurrentRegion
        .AutoFilter 2, "<> "
        .Columns("C").Copy Sheets("ket qua").[D8]
        .AutoFilter
    End With
    Application.ScreenUpdating = True
End Sub

AutoFilter 2.. dòng này có ý nghĩa gì ạ

 

[phulien1902]

AutoFilter 2.. dòng này có ý nghĩa gì ạ

Lọc dữ liệu cột B

 

[Phamvannhan1531]

Lọc dữ liệu cột B

Dạ tức là khi ở cột D mình sẽ thay giá trị 2 là 4 đúng không ạ

 

[phulien1902]

Dạ tức là khi ở cột D mình sẽ thay giá trị 2 là 4 đúng không ạ

Đúng vậy bạn nhé.

 

[be_09]

Em có bài toán tương tự chủ thớt và xin áp dụng đoạn code của bác nhưng báo lỗi ạ. em xin nhờ các chỉnh sửa giúp em với ạ

Thử code sau:

Sub CopyHai()
    With Sheet1.Range("A8")
    .AutoFilter Field:=2, Criteria1:="<>"
    .CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Sheet2.Range("D8")
    .AutoFilter
    End With
End Sub

 

[Phamvannhan1531]

Đúng vậy bạn nhé.

em xin nhờ thêm 1 lần nữa ạ. Khi dữ liệu bố trí như này thì đoạn code của bác sửa sẽ như nào. Bác cho em xin thêm với ạ. Để em so sánh 2 đoạn code với nhau. Sau có thay đổi gì em có thể tự thay đổi được với ạ

 

[phulien1902]

em xin nhờ thêm 1 lần nữa ạ. Khi dữ liệu bố trí như này thì đoạn code của bác sửa sẽ như nào. Bác cho em xin thêm với ạ. Để em so sánh 2 đoạn code với nhau. Sau có thay đổi gì em có thể tự thay đổi được với ạ

Thử xem:

    Dim a(), b(), i&, k%, LR
    With Sheets("dau vao")
        a = .Range("E8", .Range("E100000").End(3)).Resize(, 5).Value: LR = UBound(a)
    End With
    ReDim b(1 To LR, 1 To 1)
    With Sheets("dau vao")
        For i = 1 To LR
            If IsDate(a(i, 5)) <> Empty Then
                k = k + 1: b(k, 1) = a(i, 4)
            End If
        Next i
        If k Then
            With Sheets("ket qua")
                .Range("D8:D100").ClearContents
                .Range("D8").Resize(k) = b
            End With
        End If
    End With