内容发布更新时间 : 2024/7/6 7:12:57星期一 下面是文章的全部内容请认真阅读。

=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、分数段人数统计：