摘要：
Excel多表合并之vba实现 需求 保留列名，复制每一个excel里的数据，合并到一个excel 操作步骤 合并多个excel每个excel有多个sheet，每个sheet单独合并，代码如下 Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName 阅读全文
posted @ 2019-06-26 21:52
愚公一山
阅读(835)
评论(0)
推荐(0)
摘要：
本示例为设置密码窗口 (1)If Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 '密码正确时执行Else MsgBox "密码错误，即将退出！" '此行与第2行共同设置密码End If'本示例为设置密码窗口 (1)X = MsgBox("是否 阅读全文
posted @ 2019-06-26 21:35
愚公一山
阅读(5620)
评论(0)
推荐(0)
摘要：
本示例为设置密码窗口 (1) If Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 '密码正确时执行 Else: MsgBox "密码错误，即将退出！" '此行与第2行共同设置密码 End If 本示例为设置密码窗口 (1) X = MsgBo 阅读全文
posted @ 2019-06-26 21:32
愚公一山
阅读(3365)
评论(0)
推荐(0)
摘要：
在网上找EXCEL多文件合并的方法，思路： 一、Linux 或者window+cmder，直接用命令行cat合并EXCEL文件，但是，需要安装辅助东西才能直接处理（也许也不可以，但是，可以用文件格式转换工具转换是可行的，把EXCEL文件转换成txt文件，再操作，操作好了，再转换成EXCEL格式）；还 阅读全文
posted @ 2019-06-26 20:59
愚公一山
阅读(639)
评论(1)
推荐(0)
摘要：
选中一列-Ctrl+h-输入要查找的内容-点击查找全部-在找到的单元格列表中，随便点击一个，然后按下组合键“ctrl+A”-切换到替换标签，在替换为后面的 框中输入你要替换的结果-点击全部替换 选中-右击-单元格格式-数字选项卡 -点自定义： 在类型中输入一个# 然后确定 注意：数值型数据最多能存储 阅读全文
posted @ 2019-06-26 20:57
愚公一山
阅读(549)
评论(0)
推荐(0)
摘要：
Sub 分列行转表() '将按照某列分类保存到各工作表中，前提新建以某列数据命名的工作表 '原理：源数据每一列进行归类 Dim i As Long, pq As String, rng As Range i = 2 pq = Worksheets("浙南战区").Cells(i, "a").Value 'pq确定为某列的数据；红字部分根据实际情况命名 ... 阅读全文
posted @ 2019-06-26 20:47
愚公一山
阅读(579)
评论(0)
推荐(0)
摘要：
Sub 合并工作簿包含工作表名称() '定义对话框变量 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) '新建一个工作簿 Dim newwb As Workbook Set newwb = Workbooks.Add With fd If .Show = -1 Then '定义单个文件... 阅读全文
posted @ 2019-06-26 20:40
愚公一山
阅读(542)
评论(0)
推荐(0)
摘要：
实现的功能是把多个Excel文件的第一个工作表（Sheet）合并到一个Excel文件的多个工作表里，并且新工作表的名称等于原Excel文件的文件名。 开发环境Excel2007，但是Excel2003应该也能用，Excel2000似乎不能用。 代码如下：'功能：把多个工作簿的第一个工作表合并到一个工 阅读全文
posted @ 2019-06-26 20:38
愚公一山
阅读(1432)
评论(0)
推荐(0)
浙公网安备 33010602011771号