Hỗ trợ copy cụm dữ liệu (dòng cuối cùng)

Chia sẻ bởi:hands

★★★★★

‹ Nhờ giúp đỡ code copy duy nhất... Như thế nào sort dòng theo thứ... ›

Quảng cáo

Chào anh chị em có vấn đề này nhờ anh chị hỗ trợ giúp.

Dữ liệu của em là cột B như hình.7453745274517450
Cụm dữ liệu: được định nghĩa là dòng cuối cùng đếm lên cho tới dòng trống
Em có gửi 4 hình, thì cụm dữ liệu là cột B em tô đỏ trong hình.

Em có viết thử 1 đoạn code mà không biết lý do gì mà chưa đúng, nếu được thì sửa lại dùm em, còn thấy hướng đi của em đã sai thì có thể viết lại dùm em với.
Em cảm ơn anh chị.
Sub Copy_cumdulieu()
    Dim findString As String
    Dim indexRow As Long
    Dim lastRow As Long
    Dim arr As Variant
    Dim i As Long

findString = ""

indexRow = 1
    lastRow = Sheet1.Cells(Rows.Count, "B").End(xlUp).Row
    arr = Sheet1.Range("B1:B" & lastRow).Value
    For i = UBound(arr, 1) To LBound(arr, 1) Step -1
        If arr(i, 1) = findString Then
            indexRow = i + 1
            Exit For
        End If
    Next i

If indexRow <= lastRow Then
        Sheet1.Range("B" & indexRow & ":B" & lastRow).Copy
    Else
        MsgBox "KHONG TIM THAY "
        Exit Sub
    End If

Application.CutCopyMode = False

End Sub

Copy rồi làm gì tiếp theo ?
Đoán mò. Bạn tự test lấy kết quả

Sub ABC()
    Dim iR&, Rng As Range
    With Sheets("sheet1")
        iR = .Range("B" & Rows.Count).End(3).Row
        Set Rng = .Range(.Range("B" & iR), .Range("B" & iR).End(3))
        If Rng.Rows.Count < iR Then
            Rng.Copy
        End If
    End With
End Sub