关于循环计算的问题

dbg111222

我想先计算出来F3单元格后，F4再去循环计算。但是只计算F3，别的不计算。请老师帮忙修改一下，谢谢！

Sub CalculateFValues()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
   
    ' 设置工作表为当前活动工作表
    Set ws = ActiveSheet
   
    ' 获取F列的最后一行
    lastRow = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row
   
    ' 从F3开始，循环计算F列的值
    If i = 3 Then
    ws.Cells(i, "F").Value = ws.Cells(i - 1, "c").Value + ws.Cells(i, "D").Value - ws.Cells(i, "E").Value
    End If
    For i = 4 To lastRow
        ws.Cells(i, "F").Value = ws.Cells(i - 1, "f").Value + ws.Cells(i, "D").Value - ws.Cells(i, "E").Value
    Next i
End Sub

Again123456

' 获取F列的最后一行----应该是最底端的那个非空值所在的行数。你这个F列没计算前是空的不？
lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row 可以考虑改成C列试试

ykcbf1100

让AI帮你再改一下吧，这代码本来就是AI写的。

半百

从代码来看，大约是要在F列得出每一行的余额，所以，可能F列一开始是空白的（除了表头），lastRow = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row，所以lastRow可能是2， For i = 4 To lastRow根本不会进入循环，If i = 3 Then，i还没赋值，所以条件不成立，也就不会计算行F3行，所以你说的“但是只计算F3”不知道是什么原因。总之上附件吧。

liulang0808

没有附件，无法了解数据对应关系的，感觉lastRow = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row可能存在问题，lastRow = ws.usedrange.rows.count看看这样是否可行，不然就上传下附件吧

dbg111222

自己已经改好了。