01.下载安装office教程.wmv
01.下载安装office教程
Sub 一户一个工作博() Dim SourceSheet As Worksheet Dim SheetNameInput As String ' 弹出对话框让用户输入工作表名称 SheetNameInput = Application.InputBox("请输入源数据工作表名称:", "选择工作表", Type:=2) 后面还有.....................................
输出生日函数 第一种方法 =TEXT(MID(C3,7,8),"#0000年00月00日") 第二种方法 =DATE(MID(C3,7,VLOOKUP(LEN(C3),{15,2;18,4},2,0)),MID(C3,VLOOKUP(LEN(C3),{15,9;18,11},2,0),2),MID(C3,VLOOKUP(LEN(C3),{15,11;18,13},2,0),2)) 备注:公式内C3是公式 还有做一户一档的模板