Code rải giá trị theo vùng

[longkhanhck]

Mình có file excel cần rải giá trị từ dòng tổng đến nhiều dòng khác nhau phía trên (sheet detail), và rãi giá trị đến khi hết dữ liệu trong sheet. Nhưng dữ liệu quá nhiều nếu rãi tay thì thật sự quá lâu nên nhờ Anh chị trên diễn đàng giúp đỡ.
Thông tin cần lấy như file đính kèm.

 

[BuiQuangThuan]

Sử dụng mảng. Đi từ dưới đi lên. Gặp điều kiện thỏa mãn thì sẽ trả kết quả bằng thằng đằng trước.

 

[longkhanhck]

Sử dụng mảng. Đi từ dưới đi lên. Gặp điều kiện thỏa mãn thì sẽ trả kết quả bằng thằng đằng trước.

Em hướng dẫn rõ hơn được không, Mình không thực dự biết về mãng

 

[anhtuan2939]

Bạn chạy code này xem

Sub Dien_dulieu()
    Dim i As Long, lr As Long
    Dim sArr(), dArr()
    Dim A
    
    With Sheet1
        lr = .Range("N" & Rows.Count).End(xlUp).Row
        sArr = .Range("E8:N" & lr).Value
        ReDim dArr(1 To UBound(sArr), 1 To 1)
        For i = UBound(sArr) To 1 Step -1
            If IsEmpty(sArr(i, 1)) Then
                If IsEmpty(sArr(i, 10)) Then
                    A = ""
                Else
                    A = sArr(i, 10)
                End If
            End If
            dArr(i, 1) = A
        Next i
        .Range("N8:N" & lr).Value = dArr
    End With
End Sub

 

[longkhanhck]

Bạn chạy code này xem

Sub Dien_dulieu()
    Dim i As Long, lr As Long
    Dim sArr(), dArr()
    Dim A
   
    With Sheet1
        lr = .Range("N" & Rows.Count).End(xlUp).Row
        sArr = .Range("E8:N" & lr).Value
        ReDim dArr(1 To UBound(sArr), 1 To 1)
        For i = UBound(sArr) To 1 Step -1
            If IsEmpty(sArr(i, 1)) Then
                If IsEmpty(sArr(i, 10)) Then
                    A = ""
                Else
                    A = sArr(i, 10)
                End If
            End If
            dArr(i, 1) = A
        Next i
        .Range("N8:N" & lr).Value = dArr
    End With
End Sub

Cảm ơn Bạn đã giúp đỡ, nhưng trong file dữ liệu lại có 1 số vùng giá trị lại nằm ở 1 quy luật khác nữa ví dụ như trong ảnh. Bạn có thể giúp mình code cho cả 2 trường hợp này được không

 

[bebo021999]

Chạy thử cái này xem sao nhé:

Sub Dien_dulieu()
Dim lr&, i&, rng, val
With Sheets("Detail")
    lr = .Cells(Rows.Count, "N").End(xlUp).Row
    rng = .Range("L8:N" & lr).Value
    For i = UBound(rng) To 1 Step -1
        If Not IsEmpty(rng(i, 3)) And IsNumeric(rng(i, 3)) Then
            val = rng(i, 3)
        ElseIf Not IsEmpty(rng(i, 1)) Then rng(i, 3) = val
        End If
    Next
.Range("L8:N" & lr).Value = rng
End With
End Sub

 

[longkhanhck]

Chạy thử cái này xem sao nhé:

Sub Dien_dulieu()
Dim lr&, i&, rng, val
With Sheets("Detail")
    lr = .Cells(Rows.Count, "N").End(xlUp).Row
    rng = .Range("L8:N" & lr).Value
    For i = UBound(rng) To 1 Step -1
        If Not IsEmpty(rng(i, 3)) And IsNumeric(rng(i, 3)) Then
            val = rng(i, 3)
        ElseIf Not IsEmpty(rng(i, 1)) Then rng(i, 3) = val
        End If
    Next
.Range("L8:N" & lr).Value = rng
End With
End Sub

Thank Anh, code chạy ổn Anh

 

[anhtuan2939]

Thank Anh, code chạy ổn Anh

Còn trường hợp ở dòng 51 thì sao bạn?

 

[BuiQuangThuan]

Còn trường hợp ở dòng 51 thì sao bạn?
View attachment 282080

Dữ liệu nguồn không chuẩn. Cứ cố gắng code để làm gì anh.

 

[anhtuan2939]

Dữ liệu nguồn không chuẩn. Cứ cố gắng code để làm gì anh.

Chắc mình cũng thay đổi quan điểm hỗ trợ code thôi. Dữ liệu nguồn không chuẩn thì phải nêu đầy đủ các điều kiện để code 1 lần luôn, chứ không thì sẽ code đi code lại mất thời gian.

 

[BuiQuangThuan]

Chắc mình cũng thay đổi quan điểm hỗ trợ code thôi. Dữ liệu nguồn không chuẩn thì phải nêu đầy đủ các điều kiện để code 1 lần luôn, chứ không thì sẽ code đi code lại mất thời gian.

Chắc là nên thế. Chứ người nhờ người ta cũng đâu có quan trọng file của họ đâu.
Nếu họ quan trọng. Thì việc cơ cấu , tổ chức dữ liệu là điều tối thiểu họ sẽ làm

 

[longkhanhck]

Chắc là nên thế. Chứ người nhờ người ta cũng đâu có quan trọng file của họ đâu.
Nếu họ quan trọng. Thì việc cơ cấu , tổ chức dữ liệu là điều tối thiểu họ sẽ làm

Dữ liệu được cấp từ bên thứ 3, mình phải tự kiểm tra đúng hoặc sai rồi báo lại họ. Code hỗ trợ mình rất nhanh cho những dữ liệu chuẩn còn những dòng không chuẩn mình check lại thủ công_(Không còn cách nào khác) vì dữ liệu thô không phải mình làm ra.