excel 求用vba 增加如下需求的函数（或者说是叫模块吧）

Function LkStr(rg1 As Range, ByVal rng1 As Range, rg2 As Range, ByVal rng2 As Range, rg3 As Range)

    If rg1.Rows.Count <> rg2.Rows.Count Or rg1.Columns.Count > 1 Or rg2.Columns.Count > 1 Or rg3.Columns.Count > 1 Then

        LkStr = "#REF!"

        Exit Function

    End If

    Dim r1%, r2%, r%, rng As Range, c1%, c2%, c%, k%, arr()

    r1 = rg1.Row: r2 = rg2.Row: r = r2 - r1

    c1 = rg1.Column: c2 = rg2.Column: c = c2 - c1

    For Each rng In rg1

        If rng.Value = rng1.Value And rng.Offset(r, c).Value = rng2.Value Then

            ReDim Preserve arr(k)

            arr(k) = Cells(rng.Row, rg3.Column).Value

            k = k + 1

        End If

    Next

    LkStr = Join(arr(), "")

End Function

参数说明：

LkStr (查找区域1，值单元格1，查找区域2，值单元格2，结果区域）

Function zhekou(zhanyoulv As Double, t As Integer)

If zhanyoulv <0.035 Then

If t <= 15 Then

zhekou = 0

Else

If t <= 30 And t >15 Then

zhekou = 0

Else

If t >30 Then

zhekou = 0

End If

End If

End If

Else

If zhanyoulv >= 0.035 And zhanyoulv <= 0.04 Then

If t <= 15 Then

zhekou = 0.8

Else

If t <= 30 And t >15 Then

zhekou = 1.2

Else

If t >30 Then

zhekou = 1.5

End If

End If

End If

你可以这样试一试

Else

If zhanyoulv >0.04 And zhanyoulv <= 0.045 Then

If t <= 15 Then

zhekou = 1

Else

If t <= 30 And t >15 Then

zhekou = 1.5

Else

If t >30 Then

zhekou = 2

End If

End If

End If

End If

End If

End If

End Function

Excel

Microsoft Excel是微软公司的办公软件Microsoft office的组件之一，是由Microsoft为Windows和Apple Macintosh *** 作系统的电脑而编写和运行的一款试算表软件。Excel 是微软办公套装软件的一个重要的组成部分，它可以进行各种数据的处理、统计分析和辅助决策 *** 作，广泛地应用于管理、统计财经、金融等众多领域。

1、打开Excel程序，按键盘组合键“Alt+F11”或切换至“开发工具”功能区并点击“Visual Basic”按钮进入VBA环境。

2、在VBA环境下，右击“Microsoft Excel对象”，从d出的菜单中选择“插入”->“模块”项。

3、在打开的模块窗口中，输入以下代码：

Function 三项合并计算(a, b, c)

  三项合并计算 = a * b + c

End Function

该代码用于对提供的三个参数进行计算，结果返回函数本身。

4、接着返回Excel界面，在单元格中输入公式“=三项合并计算(2,3,5)”并按回车键即可得结果。

5、当然，还可以通过引用三个单元格数据来实现同样的计算功能：分别在A2、B2、C2单元格中输入2，3，5，在D2单元格中输入“”并按回车键即可得结果。

---