Xin code trả về số thứ tự trong file tổng hợp.

[hanhpham1122]

Em muốn xin code trả về số thứ tự trong các mục I, II, III,... Số liệu trả về nằm ở cột 8, 9, 10.
Chi tiết em gửi file đính kèm ạ.

 

[vu_tuan_manh_linh]

Thử cách này nhé bạn!
Lời khuyên thêm:
1. Có thật sự phải tách các số liệu như bạn đang cần làm không? Tôi đã làm dữ liệu kiểu này khá nhiều, sau khi làm xong thì lại xóa bỏ vì thấy không thật sự cần thiết.
2. Có phương án nào khác không?

 

[HUONGHCKT]

Em muốn xin code trả về số thứ tự trong các mục I, II, III,... Số liệu trả về nằm ở cột 8, 9, 10.
Chi tiết em gửi file đính kèm ạ.

Của bạn đây. hãy nhấn nút chạy code và kiểm tra kết quả.

Sub DIEM()
Dim i&, j&
With Sheets("Data BS")
For i = 4 To .Cells(Rows.Count, 3).End(xlUp).Row
    If .Cells(i, 2) <> Empty Then
        j = .Cells(i, 2).End(xlDown).Row - 1
        If j < .Cells(Rows.Count, 3).Row Then
            .Cells(i, 9) = Application.Min(.Range(.Cells(i + 1, 3), .Cells(j, 3)))
            .Cells(i, 10) = Application.Max(.Range(.Cells(i + 1, 3), .Cells(j, 3)))
            .Cells(i, 11) = .Cells(i, 10) - .Cells(i, 9) + 1
        End If
    End If
Next i
End With
End Sub

 

[hanhpham1122]

Thử cách này nhé bạn!
Lời khuyên thêm:
1. Có thật sự phải tách các số liệu như bạn đang cần làm không? Tôi đã làm dữ liệu kiểu này khá nhiều, sau khi làm xong thì lại xóa bỏ vì thấy không thật sự cần thiết.
2. Có phương án nào khác không?

Vâng, em cảm ơn ạ, em sẽ xem thêm.

Bài đã được tự động gộp: 9/8/21

Của bạn đây. hãy nhấn nút chạy code và kiểm tra kết quả.

Sub DIEM()
Dim i&, j&
With Sheets("Data BS")
For i = 4 To .Cells(Rows.Count, 3).End(xlUp).Row
    If .Cells(i, 2) <> Empty Then
        j = .Cells(i, 2).End(xlDown).Row - 1
        If j < .Cells(Rows.Count, 3).Row Then
            .Cells(i, 9) = Application.Min(.Range(.Cells(i + 1, 3), .Cells(j, 3)))
            .Cells(i, 10) = Application.Max(.Range(.Cells(i + 1, 3), .Cells(j, 3)))
            .Cells(i, 11) = .Cells(i, 10) - .Cells(i, 9) + 1
        End If
    End If
Next i
End With
End Sub

Dạ, em cảm ơn nhiều ạ.