帮忙解释一下EXCEL中的一段函数

Question

=IF(OR($E$23=0,ISERROR(INDEX(通讯录!B:B,SMALL(IF(ISNUMBER(FIND($E$23,通讯录!$C$4:$C$44)),ROW(通讯录!$C$4:$C$44),900000),ROW(1:1))))),"",INDEX(通讯录!B:B,SMALL(IF(ISNUMBER(FIND($E$23,通讯录!$C$4:$C$44)),ROW(通讯录!B$4:B$44),900000),ROW(1:1))))

Answer 1

IF是判断，此处就是判断OR($E$23=0,ISERROR(INDEX(通讯录!B$1:B$65536,SMALL(IF(ISNUMBER(FIND($E$23,通讯录!$C$4:$C$44)),ROW(通讯录!$C$4:$C$44),900000),ROW(1:1)))))这部分，如果$E$23=0，或者（OR的意思）ISERROR(INDEX(通讯录!B$1:B$65536,SMALL(IF(ISNUMBER(FIND($E$23,通讯录!$C$4:$C$44)),ROW(通讯录!$C$4:$C$44),900000),ROW(1:1))))这两个条件中有一条满足，就返回空。

否则就返回))))),"",INDEX(通讯录!B:B,SMALL(IF(ISNUMBER(FIND($E$23,通讯录!$C$4:$C$44)),ROW(通讯录!B$4:B$44),900000),ROW(1:1)))。
这个公式嵌套了很多函数，可选看看各个函数的说明，再看整个公式，理解起来就容易些。

更详细解释请参考，函数公式解释专用帖：http://club.excelhome.net/thread-161588-1-1.html

Answer 2

Private Sub CommandButton1_Click() Range(

Answer 3

Private Sub CommandButton1_Click()
Range("s1:AD39").Select
Selection.ClearContents
Dim pq '定义变量
Dim PR
Dim pp
Dim asd
Dim bsd
asd = Range("A39") + 4 '给变量asd赋值为：A39单元格数值加4
bsd = Range("d39") + 4
PR = "b" & Range("A39") + 4 '将字符b，与A39格的值加4后的结果连在一块，成为一新的字符，＆是连字符。
pp = "M" & Range("d39") + 4
pq = PR & ":" & pp '将两个字符变量连在一起，做为一个引用地址。
Range(pq).Select '选择pq表示的区域
Selection.Copy '复制此区域
Range("S4").Select
ActiveSheet.Paste '将上述区域内容粘贴到S4单元格起始的位置。

Range("S40").Select
Application.CutCopyMode = False '取消复制状态
ActiveCell.FormulaR1C1 = "=SUM(R[-36]C:R[-1]C)" '在选中的单元格中输入公式，公式为SUM，起始地址为向上偏移36行，结束地址为向上偏移1行。
Range("T40").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-36]C:R[-1]C)"

Range("U40").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-36]C:R[-1]C)"
Range("V40").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-36]C:R[-1]C)"
Range("W40").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-36]C:R[-1]C)"
Range("X40").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-36]C:R[-1]C)"
Range("Y40").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-36]C:R[-1]C)"
Range("Z40").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-36]C:R[-1]C)"
Range("AA40").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-36]C:R[-1]C)"
Range("AB40").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-36]C:R[-1]C)"
Range("AC40").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-36]C:R[-1]C)"
Range("AD40").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-36]C:R[-1]C)"
'到此求各结束，开始拷
Sheets("统计").Select

'以上都对

End Sub