Question

excel公式：本人工作中遇到点问题，求高手快来帮忙解决下，谢谢！

求高手帮忙编个公式：钻孔编号栏自动插入钻孔孔号，如大D1=小D1,后面的依次类推.“分段孔深”这栏：第一个数据等于右侧“测试深度”这栏的最小值，第二个数据为测试深度的最大值；“纵波速特征值”这栏：第一个数据等于右侧“波速”的最大值，第二个数据等级右侧“波速”的最小值，第三个数据等于右侧“波速”的平均值。同理：D2、D3也依次这样，求高手帮忙编个公式。

Answer 1

e7输入公式：=MIN(OFFSET($M$4,,MATCH("13-"&$C7&" "&$D7,$M$4:$XX$4)-1+(COLUMN()=7),10000,1))
e8输入公式：=AVERAGE(OFFSET($M$4,,MATCH("13-"&$C7&" "&$D7,$M$4:$XX$4)-1+(COLUMN()=7),10000,1))
e9输入公式：=MAX(OFFSET($M$4,,MATCH("13-"&$C7&" "&$D7,$M$4:$XX$4)-1+(COLUMN()=7),10000,1))

然后选择E7:E9，向下填充公式；然后复制E列，粘贴到G列。

Answer 2

把文件传到百度云，粘贴个连接出来，以便给你做好。

追问

链接：http://pan.baidu.com/s/1boVoEw3，谢谢！

追答

VBA程序代码：

Option Explicit
Sub YgB()
    Dim i, j, k
    i = 7 '7行
    j = Cells(3, "L").Column 'M列
    While Cells(3, j) <> ""
        Cells(i, "D").Select
        Cells(i, "D") = Cells(3, j + 1) '编号
        Cells(i, "E") = Cells(204, j + 1) '最小深度
        Cells(i + 2, "E") = Cells(203, j + 1) '最大深度
        Cells(i, "G") = Cells(203, j + 2)  '最大波速
        Cells(i + 1, "G") = Cells(204, j + 2) '最小波速
        Cells(i + 2, "G") = Cells(205, j + 2) '平均波速
        i = i + 3 '下一行
        j = Cells(3, j + 1).End(xlToRight).Column '下一列
    Wend
    MsgBox "填充完毕。"
End Sub

结果拷屏：

文件见附件。

Answer 3

文件发 joy.008@163.com
需要填写公式的地方 填充黄色底纹

追问

已经发到你的YX了，谢谢！

追答

已回复 请查收

Answer 4

=MIN(E5：E30)
=MAX(E5：E30)