Tạo vòng lặp cho bảng tính

[thuancuibap]

Em có 1 file Excel của ngành Xây dựng chưa hoàn chỉnh nên nhờ các Bác giúp dùm em với!
Tạo vòng lặp như thế nào em có ghi rõ trong file kèm theo rồi!
Cảm ơn các Bác!!!

 

[voda]

Bạn thử dùng code sau:

Sub Tinhtoan()
For i = 13 To 17
   If Cells(i, 18) > 5 Then
       Do While Cells(i, 18) > 5
         If Cells(i, 18) > 5 Then Cells(i, 16) = Cells(i, 19)
       Loop
   End If
Next
End Sub