如何直接算出 VBA中的函数公式的数值到单元格

A56510804TT

如何直接算出 VBA中的函数公式的数值到单元格 如下图

1121228509

计算1.rar (26.16 KB, 下载次数: 4)

2022-12-19 00:46 上传

点击文件名下载附件

taller

A56510804TT

taller 发表于 2022-12-19 01:04

Sheet1.Range("F4:F" & i).Value = Sheet1.Range("F4:F" & i).Value

    Sheet1.Range("L4:L" & i).Value = Sheet1.Range("L4:L" & i).Value

    Sheet1.Range("H4:H" & i).Value = Sheet1.Range("H4:H" & i).Value

老师我是用这样 解决的 在我原来的代码基础上 有没有比上面比较好的方法,我的方法比较笨点

A56510804TT

taller 发表于 2022-12-19 01:04

Sub 填充F及H列_Click()
    Dim i, iCnt As Integer
   
    iCnt = Cells(Rows.Count, 2).End(xlUp).Row
    For i = 4 To iCnt Step 1
        If Range("F" & i) = "" Then
            Range("F" & i).FormulaR1C1 = "=IFERROR(MyCalN(RC[1],RC[2],RC[-3],RC[-2]),"""")"
        End If
        If Range("H" & i) = "" Then
            Range("H" & i).FormulaR1C1 = "=IFERROR(Cxs(RC[-1],RC[-2],RC[-5],RC[-4]),"""")"
        End If
        If Range("L" & i) = "" Then
            Range("L" & i).FormulaR1C1 = "=RC[-9]*RC[-8]*RC[-7]*RC[-6]/1000000000*R3C14"
        End If
    Next i
   
    Dim n As Integer
    n = Range("L" & Rows.Count).End(xlUp).Row
     [L1] = WorksheetFunction.Sum(Range("L4:L" & n))
End Sub
可能还要加上判断   我F列和H列 数据不则 不是很规律