Excel纵横字段查找最大、最小值和统计个数函数

修法布施得聪明智慧，多分享让生活更美好。上次分享了《Excel怎样查找表格纵横向两值A、B值相应值》，介绍了纵横字段查表处理方法，现分享纵横字段查找最大、最小和统计个数自定义函数处理方法，来提高工作效率。

步骤一：新建宏模块

首先打开Microsoft Office Excel 2007，新建文档并保存文件名《Excel纵横字段查找最大、最小值和统计个数函数.xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以）如图所示。

步骤二：插入模块

然后按下快捷键ALT F11打开VBE（宏）编辑界面，然后点菜单栏【插入】下拉中列表中点【模块（M）】如图所示。

步骤三：插入自定义函数代码

然后插入了一个模块1，在代码框中复制如下代码：

```vba

Function COUNTAYX(ByVal y As Range, ByVal x As Range, ByVal cb As Range)

Dim r As Long, c As Long, i As Long, k1 As Long, k2 As Long

r

c

k1 0

For i 2 To c

If x.Text cb.Cells(1, i).Text Then

k1 i

Exit For

End If

Next i

If k1 > 0 Then

k2 0

For i 2 To r

If y.Text cb.Cells(i, 1).Text And cb.Cells(i, k1).Text <> "" Then

k2 k2 1

End If

Next i

COUNTAYX k2

Else

COUNTAYX "横向字段无存！"

End If

End Function

Function MAXYX(ByVal y As Range, ByVal x As Range, ByVal cb As Range)

Dim r As Long, c As Long, i As Long, k1 As Long, k2 As Long

r

c

k1 0

For i 2 To c

If x.Text cb.Cells(1, i).Text Then

k1 i

Exit For

End If

Next i

If k1 > 0 Then

k2 0

For i 2 To r

If y.Text cb.Cells(i, 1).Text And cb.Cells(i, k1).Text <> "" Then

If k2 0 Then

MAXYX cb.Cells(i, k1).Value

Else

If MAXYX < cb.Cells(i, k1).Value Then

MAXYX cb.Cells(i, k1).Value

End If

End If

End If

Next

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。