Cần giúp sửa code chèn công thức bị lỗi

[naruto179]

Chào tất cả mọi người.
trong file excel mình có như hình.
Mình cần điền công thức vào ô ở cột F tương ứng với ô ở cột A có dữ liệu như hình.
Mình có viết như sau nhưng bị lỗi:
Sub tudienct()
Dim Lr As Long
Dim i As Long
Lr = Range("A" & Rows.Count).End(xlUp).Row ' tim dong cuoi
For i = 3 To Lr
If Range("A" & i).Value > 0 Then
Range("A" & i).Offset(, 6).FormulaR1C1 = "Round((R[-6]C[0]+R[-2]C[0])/1000,0)"
End If
Next i
End Sub

Mong mọi người giúp.
Cám ơn.

 

[BuiQuangThuan]

Chào tất cả ACE.
trong file excel mình có như hình.
Mình cần điền công thức vào ô ở cột F tương ứng với ô ở cột A có dữ liệu như hình.
Mình có viết như sau nhưng bị lỗi:
Sub tudienct()
Dim Lr As Long
Dim i As Long
Lr = Range("A" & Rows.Count).End(xlUp).Row ' tim dong cuoi
For i = 3 To Lr
If Range("A" & i).Value > 0 Then
Range("A" & i).Offset(, 6).FormulaR1C1 = "Round((R[-6]C[0]+R[-2]C[0])/1000,0)"
End If
Next i
End Sub
View attachment 281600
Mong ACE giúp.
Cám ơn.

Bạn nến sửa các từ viết tắt trước khi muốn có người giúp.

 

[ngocbaovu]

Sửa lại code một chút thôi:
Sub tudienct()
Dim Lr As Long
Dim i As Long
Lr = Range("A" & Rows.Count).End(xlUp).Row ' tim dong cuoi
For i = 2 To Lr
If Range("A" & i).Value > 0 Then
Range("A" & i).Offset(, 5).FormulaR1C1 = "=Round(R[0]C[-5]+R[0]C[-2]/1000,0)"
End If
Next i
End Sub

 

[huhumalu]

If Range("A" & i).Value > 0 Then
Range("F" & i).Formula= "=Round(A" & i & "+D" & i & "/1000,0)"

Đang dùng địa chỉ tuyệt đối thì lấy cái đó luôn cho dễ quản lý.