这一句函数用vba怎么写

随风直到夜郎西

IF(D2<=1,1,IF(INDEX(Sheet1!G:G,MATCH(C2&G2,Sheet1!A:A&Sheet1!B:B,0))=0.1,CEILING(D2-0.099,1),CEILING(D2,0.5)))

山菊花

大概是这样：
Function Dx(Target As Range)
    Dim nRow%, nR2%, nVal, n%, Arr()
    If Target.Value <= 1 Then
        Dx = 1
    Else
        nR2 = Target.Row
        nRow = Range("a" & Cells.Rows.Count).End(xlUp).Row
        Arr = Range("a1:g" & nRow).Value
        For i = 1 To nRow
            If Arr(i, 1) & Arr(i, 2) = Arr(nR2, 3) & Arr(nR2, 7) Then
                If Arr(i, 7) = 0.1 Then
                    nVal = Target.Value - 0.099
                    Dx = Int(nVal) + IIf(nVal > Int(nVal), 1, 0)
                Else
                    n = Target.Value \ 0.5
                    Dx = 0.5 * n + IIf(n * 0.5 < Target.Value, 0.5, 0)
                End If
                Exit For
            End If
        Next
        If i > nRow Then Dx = "#N/A"
    End If
End Function

原公式改为自定义函数：=Dx(D2)

iwangyi

山版太灿烂了，用个函数不用附件可写码，点赞。

山菊花

有待验证，不一定正确的。

随风直到夜郎西

山菊花 发表于 2018-8-24 09:02
大概是这样：
Function Dx(Target As Range)
    Dim nRow%, nR2%, nVal, n%, Arr()

谢谢，理解了