=IF(mod(mid(E2,15,3),2),\男\女\ 从输入的身份证号码内让系统自动提取性别
=YEAR(NOW())-MID(E2,7,4) 输入的身份证号码内让系统自动提取年龄 =TEXT((LEN(E2)=15)*19&MID(E2,7,6+2*(LEN(E2)=18)),\ 输入的身份证号码内让系统自动提取出生年月
Sub 工作簿合并() For Each st In Worksheets
If st.Name <> ActiveSheet.Name Then st.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0) Next End Sub
合并文件夹下的所有表格
Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String
Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & \AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> \If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & \Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range(\+ 2, 1) = Left(MyName, Len(MyName) - 4) For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range(\1, 1) Next
WbN = WbN & Chr(13) & Wb.Name Wb.Close False End With End If
MyName = Dir Loop
Range(\
Application.ScreenUpdating = True
MsgBox \共合并了\个工作薄下的全部工作表。如下：\& WbN, vbInformation, \提示\
End Sub
1、 查找重复内容公式：=IF(COUNTIF(A:A,A2)>1,\重复\。
2、 用出生年月来计算年龄公式：=TRUNC((DAYS360(H6,\。
3、 从输入的18位身份证号的出生年月计算公式：=CONCATENATE(MID(E2,7,4),\。
4、 从输入的身份证号码内让系统自动提取性别，可以输入以下公式：
=IF(LEN(C2)=15,IF(MOD(MID(C2,15,1),2)=1,\男\女\男\女\公式内的“C2”代表的是输入身份证号码的单元格。
从地址中提取城市
只要确定1.从哪里开始提取，2.提取几个字符。——这都不是固定不变的。 如图所示，地址中省和市是可以唯一确定的。所以可以通过find函数进行定位。1.从哪里开始提取——FIND(\省\，确定省的位置然后加1。
2.提取几个字符——FIND(\市\省\，即市和省之间的字符数。 输入公式=MID(A2,FIND(\省\市\省\
1、求和： =SUM(K2:K56) ——对K2到K56这一区域进行求和；
2、平均数： =AVERAGE(K2:K56) ——对K2 K56这一区域求平均数；
3、排名： =RANK(K2，K$2:K$56) ——对55名学生的成绩进行排名；
4、等级： =IF(K2>=85,\优\良\及格\不及格\ 5、学期总评： =K2*0.3+M2*0.3+N2*0.4 ——假设K列、M列和N列分别存放着学生的“平时总评”、“期中”、“期末”三项成绩；
6、最高分： =MAX(K2:K56) ——求K2到K56区域（55名学生）的最高分；
7、最低分： =MIN(K2:K56) ——求K2到K56区域（55名学生）的最低分；
8、分数段人数统计：