excel各种公式汇总

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rRng As Range
Set rRng = Application.Intersect(Target, Range(" f6:f48"))
If rRng Is Nothing Then End
=AND(OR(LEN(F4)=15,LEN(F4)=18),ISNUMBER(F4))
=AND(OR(LEN(H4)=7,LEN(H4)=11),ISNUMBER(H4))
(删除空白行的宏语言)
----------------------------------------------------------------------------------------
(5) 小于或等于50 =COUNTIF(data,"<=50") &not;
(6) 大于E5单元格的值 =COUNTIF(data,">"&$E$5)
(7) 等于E5单元格的值 =COUNTIF(data,$E$5)
Dim rCell As Range
For Each rCell In rRng
Select Case rCell.Value
Case 1
rCell.Value = "小学"
Case 2
rCell.Value = "初中"
Case 3
rCell.Value = "高中"
Case 4
--------------------------------------------------------------------------------------------------------------------------
利用身份证号提取年龄=IF(LEN(B2)=15,2012-VALUE(MID(B2,7,2)),if(LEN(B2)=18,2012-VALUE(MID(B2,7,4)),"身份证错"))
SendKeys "^(aej)", True
Dim i As Paragraph
For Each i In ActiveDocument.Paragraphs
If Len(i.Range) = 1 Then i.Range.Delete
Next
对于同时满足A条件和B条件的单元格的统计的函数：
条件描述：在A列当中内容为性别，B列当中的内容为1-100岁的年龄的人
要求：是用什么函数可以统计出年龄在15到20岁之间的女性，和年龄在15到20岁之间的男性！
具体函数公式：=SUMPRODUCT((A1:A100="男")*(B1:B100>=15)*(B1:B100<=20))
(4) 文本型单元格个数: =COUNTIF(data,"*") 假空单元格也是文本型单元格
(5) 区域内所有单元格个数: =COUNTIF(data,"<>""")
(6) 逻辑值为TRUE的单元格数量 =COUNTIF(data,TRUE)
小说明：
EXCEL单元格内数据主要有以下几类:数值型,文本型,逻辑型,错误值型。其中时间类型也是一种特殊的数值。文本类型的数字是文本型。
Sub 删除段落首尾空格及空行()
With ActiveDocument.Content.Find
.Execute findtext:="^l", replacewith:="^p", Replace:=wdReplaceAll
.Execute findtext:="^13", replacewith:="^p", Replace:=wdReplaceAll
------------------------------------------------------------------------------------------------
删除身份证末尾字符的公式：=LEFT(M6,LEN(M6)-1)（删除几个字符，就将“1”改成几就行了）
------------------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rRng As Range
Case 7
rCell.Value = "快递员"
Case 8
rCell.Value = "水暖工"
Case 9
rCell.Value = "快递员"
Case 10
rCell.Value = "送水员"
Case 11
rCell.Value = "修理工"
End Select
Next
Set rRng = Application.Intersect(Target, Range(" m6:m48"))
If rRng Is Nothing Then End
Dim rCell As Range
For Each rCell In rRng
Select Case rCell.Value
End Sub
---------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------------
.Execute findtext:="(", replacewith:="（", Replace:=wdReplaceAll
.Execute findtext:=")", replacewith:="）", Replace:=wdReplaceAll
End With
End Sub
---------------------------------------------------------------------------------------
以下为数字转化文字的宏语言
-----------------------------------------------------------------------------------------
(4) 第2个字符是B =COUNTIF(data,"?B*")
(5) 等于“你好” =COUNTIF(data,"你好")
Excel中COUNTIF函数的使用方法汇总
一、求各种类型单元格的个数
(1) 求真空单元格单个数: =COUNTIF(data,"=")
(2) 真空+假空单元格个数: =COUNTIF(data,"") 相当于countblank()函数
(3) 非真空单元格个数: =COUNTIF(data,"<>") 相当于counta()函数
三、等于或包含某N个特定字符的单元格个数
(1) 两个字符 =COUNTIF(data,"??")
(2) 两个字符并且第2个是B =COUNTIF(data,"?B")
(3) 包含B =COUNTIF(data,"*B*")
-------------------------------------------------------------------------------------------------------------
自动填入相同信息函数代码：=IF(EXACT(C233,""),"","城镇居民")
空单元格：指什么内容也没有的单元格，姑且称之为真空。
假空单元格：指0字符的空文本，一般是由网上下载来的或公式得来的，姑且称之为假空。
date指单元格区域，该参数不能是数组
二、求><=某个值的单元格个数
(1) 大于50 =COUNTIF(data,">50")
------------------------------------------------------------------------------------------
微信公众平台添加文字链接代码：<a href="链接地址">链接文字</a>
-----------------------------------------------------------------------------------------------
2、身份证当中提起出生年月函数公式：=IF(LEN(F166)=15,"19"&MID(F166,7,2)&"."&MID(F166,9,2),MID(F166,7,4)&"."&MID(F166,11,2))