Nhờ các bạn góp ý vòng lặp Do While ... (1 người xem)

[linhdt]

Chào các bạn, mình có một tình huống cần xử lý mà lâu không dùng vòng lặp nên lúng túng quá nhờ các bạn góp ý cho mình.
Mình có một sheet "Temp" , muốn xử lý và copy qua sheet "GhepChuKy", yêu cầu là :
- những dữ liệu ở sheet "Temp " có thời gian 30 phút (khi so sánh cột C - cột B) thì sẽ được copy sang
- đối với sheet "Temp" có thời gian không phải là 30 phút thì sẽ được ghép lại thành 30 phút , ví dụ :
dòng 1173 có thời gian bắt đầu là 9h30 và kết thúc vào 9h41
dòng 1174 có thời gian bắt đầu là 9h41 và kết thúc vào 10h
Khi copy qua sheet "GhepChuKy" sẽ là 9h30 và kết thúc vào 10h , giá trị ở cột D và E được cộng tương ứng của cột D và E (sheet Temp)
Hì hục mãi, nhờ Các bạn góp ý cho mình với

Code mình dùng để đưa dữ liệu sang sheet "GhepChuKy"

Sub Do_GhepChuKy()
'Sh2 la sheet temp
'Sh3 la sheet GhepChuKy
Sh2.Visible = xlSheetVisible
Sh3.Cells.Clear

Dim i, t As Integer

i = 2
k = 2
Do While Sh2.Cells(i, 1) <> ""
 t = 0
 ' neu lech chu ky
    If Sh2.Cells(i, 9) = 1 And Sh2.Cells(i + 1, 9) = 1 Then 'neu tren va duoi cot 9 co chu ky lech
 
        Sh3.Cells(k, 1) = Sh2.Cells(i, 1).Value
        Sh3.Cells(k, 2) = Sh2.Cells(i, 2).Value
        Sh3.Cells(k, 3) = Sh2.Cells(i + 1, 3).Value
        Sh3.Cells(k, 4) = Sh2.Cells(i, 6).Value
        Sh3.Cells(k, 5) = Sh2.Cells(i, 7).Value
     
 

        Else
    ' neu chu ky chuan
        If Sh2.Cells(i, 9) = 0 And Sh2.Cells(i - 1, 9) = 0 Or Sh2.Cells(i - 1, 9) = 1 Then 'neu dong cot 9 co gia tri 1, dong duoi cot 9 co gia tri khac 1
                For j = 1 To 5
                    Sh3.Cells(k, j) = Sh2.Cells(i, j).Value
     
                Next
            Else
    'duoi dong chu ky lech
        End If
     
    End If
     i = i + 1
 
     k = k + 1
Loop

Application.Interactive = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic

Sh3.Select
End Sub

Sheet "temp"

Sheet "GhepChuKy" được đưa dữ liệu sang