qq_21036939的博客

Option Explicit ' 文件系统对象,用来操作文件/目录;Private fso As New FileSystemObject Sub 汇总当前目录下的文件() ' 得到当前工作簿所在目录的路径字符串; Dim strCurDir As String strCurDir = ThisWorkbook.Path ' 得到工作簿所在目录的文件夹对象; Dim objFolder As Folder Set objFolder = f.

1，将需要合并的excel文件放置一个文件夹下2，在该文件夹下新建excel表格，在该excel的查看代码中粘贴代码3，点击 运行---运行子过程/用户窗体Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As Lon...

十几个sheet页要合并到一起，这是要逼疯人的节奏万能的百度解决了我的问题，做个笔记吧Sub 合并当前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range...

一般可以把该列设置为文本格式，点击后身份证号就自动正常显示了但是1，选中该列，点数据---分列---下一步----下一步，到第三步的时候，选择文本，点击完成该方法有问题，不能采用或者你可以把表导入数据库中，再把显示正常的拷贝出来，扎心了————————————————————————————————————————————————————excel计算年龄在要计...

一共3w多行数据，需要整理后导入数据库，为了方便查询，所以要先整理一下 原地址https://jingyan.baidu.com/article/0eb457e50412d703f1a905d6.html

统计出行数*金额，得到每个幼儿园的发放金额使用COUNTIF函数，COUNTIF(范围，条件)例如：COUNTIF（A:A,A2）筛选范围在整个A列，条件是有A2中的字符串...