excel VBA 如何将筛选的结果负给ACTIVEX组合框
65
[ 标签：excel 筛选,excel,vba ]
在线等，急！！！！
在UserForm1中，
姓名组合框内容来自姓名！A2到最后一行不为空的单元格。
选项1组合框内容来自选项！A2到最后一行不为空的单元格。
选项2组合框内容来自选项！选项B2到最后一行不为空的单元格。
其含义决定了，当选项1组合框选定一个类时，选项2组合框只能选择这个类的相关的内容，比如：
选项1组合框选择：类B 那么选项2组合框就只有可能选择：类B1、类B2。所以，希望选项2组合框的内容是经过筛选的结果，条件是选项表！B中前2字符和选项1组合框选择的内容相同。
请问如何实现？
我有附件，如果觉得说得不清楚的话，可以说一下邮箱，我把附件发来。
在线等……，谢谢了啊
`达达龙回答:4 人气:11 解决时间:2009-09-06 15:25
满意答案
好评率：0%
组合框是不是combobox? 是不是要类联动？
建userform1 ,两个表，名称分别为姓名选项。
拖三个combobox控件分别为ComboBox1，ComboBox2，ComboBox3
复制下列代码。
Private Sub ComboBox1_Change()
ComboBox2.Clear
h = ComboBox1.Value
For a = 1 To 100
g = VBA.Left(Sheets("选项").Cells(a, 2), 2)
If g = h Then
d = Sheets("选项").Cells(a, 2)
ComboBox2.AddItem d
End If
Next a
End Sub
Private Sub UserForm_Initialize()
Dim a As Integer
i = 1
c = WorksheetFunction.CountA(Sheets("选项").Range("a:a"))
For a = 1 To 99
i = i + 1
b = Sheets("选项").Cells(i, 1)
f = Sheets("姓名").Cells(i, 1)
If b <> "" Then
ComboBox1.AddItem b
ComboBox3.AddItem f
End If
Next a
End Sub
------------------------------------------------------------------------------
评价答案
好:0
一般:0
不好:0
原创:0
非原创:0
Dionysus
回答采纳率:64.3% 2009-09-04 10:47 `达达龙的感言：
谢谢大家
满意答案
好评率：0%
选项表内容
窗体设计如下：
代码如下：
Private Sub ComboBox1_Change()
Worksheets("Sheet1").Columns("J:J").Clear
Worksheets("Sheet1").Range("H1").Value =
Worksheets("Sheet1").Range("B1").Value
Worksheets("Sheet1").Range("H2").Value = ComboBox1.Text & "-"
Worksheets("Sheet1").Columns("B:B").AdvancedFilter
Action:=xlFilterCopy, CriteriaRange:=Range( _
"H1:H2"), CopyToRange:=Columns("J:J"), Unique:=False ComboBox2.RowSource = Worksheets("Sheet1").Range("J2:J" & Worksheets("Sheet1").Columns("J:J").End(xlDown).Row).Address
End Sub
Private Sub UserForm_Activate()
ComboBox1.RowSource = Worksheets("Sheet1").Range("A2:A" & Worksheets("Sheet1").Columns("A:A").End(xlDown).Row).Address ComboBox2.RowSource = ""
End Sub
回答人的补充 2009-09-05 21:35
为了不出现选择"A1",子列表出现"A11"此类情况，所以用"-"隔开。
评价答案
好:0
一般:0
不好:0
原创:0
非原创:0
空白回答采纳率:37.5% 2009-09-05 21:28
我有更好的回答
收藏
转载到QQ空间
相关内容
??Excel VBA程序开发、对组合框进行赋值的程序应该写在什么事件中2个回答
?excel教程
?excel表格制作教程
?excel函数
?excel函数公式大全
?excel表格
?excel表格制作
?excel表格计算公式
?excel 求和
其他答案
你的这个要求用数据有效性完全可以实现
提问人的追问 2009-09-04 13:15
请看清楚我的问题，是如何实现，不是可不可以实现……
不负责任的回答还是不到的好，浪费你我的时间
**芳^-^回答采纳率:15.8% 2009-09-04 00:47
Private Sub UserForm_Initialize()
Dim i As Integer
With Sheet("姓名")
For i = 2 To .Range("A65536").End(xlUp).Row 姓名.AddItem .Cells(i, 1).Value
Next
End With
Dim c As New Collection
On Error Resume Next
Dim s As String
With Sheets("选项")
For i = 2 To .Range("A65536").End(xlUp).Row s = .Cells(i, 1).Value
c.Add s, "k" & s
Next
End With
On Error GoTo 0
For i = 1 To c.Count
选项1.AddItem c(i)
Next
End Sub
Private Sub 选项1_Click()
Dim i As Integer
Dim s As String
s = 选项1.Text
With Sheets("姓名")
For i = 2 To .Range("B65536").End(xlUp).Row If .Cells(i, 1).Value = s Then
选项2.AddItem .Cells(i, 2).Value
End If
Next
End With
End Sub
Chenxf回答采纳率:21.0% 2009-09-04 09:38
如何把Excel表格中的数据导入到组合
框中？
Excel, 表格, 数据
如何把Excel表格中的数据导入到组合框中？
如附件Book1.xls中Sheet1中第一列（A列）数据为“苹果”、“梨”；第二列（B列）
数据为“白菜”、“萝卜”。若想实现本帖功能，应该如何做？谢谢！
附件: 您所在的用户组无法下载或查看附件
收藏分享评分
回复
引用
订阅
TOP cwa9958
院士
帖子
3603
精华
威望
551
擂点
人气
106
注册时间
2006-5-18 2楼
发表于2009-11-13 08:24 | 只看该作者组合框是什么框啊？
大菜鸟一个。。。
回复引用
TOP
cwa99583楼
院士
帖子
3603
精华
威望
551
擂点
人气
106
注册时间
2006-5-18
发表于2009-11-13 08:25 | 只看该作者导出excel里的数据有两种方法：
1 用excel对象
2 用ado
大菜鸟一个。。。
新手帮助如何获得阅读权限
回复引用
TOP
我来注册新手
帖子
67
精华
威望
擂点
人气
注册时间
2006-10-27 4楼
发表于2009-11-13 10:16 | 只看该作者
3#cwa9958
哦，excel对象知道了，不清楚ado是怎么引用的？请教一下。新手帮助如何获得阅读权限
回复引用
TOP zhengchun
研究生
帖子
128
精华
威望
擂点
人气
注册时间
2006-7-16 5楼
发表于2009-11-13 20:04 | 只看该作者直接导进就是了
Combo1.AddItem xlssheet.Cells(1, 1) Combo1.AddItem xlssheet.Cells(1, 2)
等，就是挺麻烦，不知道有没有简洁点的?最新一期擂台题目出来了！
回复引用
TOP
cwa9958
院士
帖子
3603 精华
威望
551 擂点
人气
106 6楼
发表于2009-11-14 11:24 | 只看该作者
ado要先引用ado对象
excel表的第一行要有字段名字
Private Sub Command3_Click()
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i As Integer
Dim sql As String
'On Error Resume Next
strName = App.Path & "\book1.xls" 'EXCEL文件名strSheetName = "sheet1" 'EXCEL表名
注册时间
2006-5-18 Conn.Open
"
rovider=Microsoft.Jet.OLEDB.4.0ersist Security
Info=False;Data Source=" & strName & ";Extended Properties='Excel 8.0;HDR=Yes'" '连接EXCEL文件
sql = "select * from [" & strSheetName & "$]" '打开EXCEL表
rs.Open sql, Conn, 3, 3
MsgBox rs.RecordCount '显示表里的记录数
Do Until rs.EOF
List1.AddItem rs.Fields(0) '读出数据,添加到list1里
rs.MoveNext
Loop
rs.Close '关闭数据集
Conn.Close '关闭对象
End Sub
大菜鸟一个。。。
最新一期擂台题目出来了！
回复引用
TOP
cwa9958
院士
帖子
3603
精华
威望
551
擂点
人气
106
注册时间
2006-5-18 7楼
发表于2009-11-14 11:26 | 只看该作者
ado要先引用ado对象
excel表的第一行要有字段名字
Private Sub Command3_Click()
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i As Integer
Dim sql As String
'On Error Resume Next
strName = App.Path & "\book1.xls" 'EXCEL文件名
strSheetName = "sheet1" 'EXCEL表名
Conn.Open
"
rovider=Microsoft.Jet.OLEDB.4.0ersist Security
Info=False;Data Source=" & strName & ";Extended Properties='Excel 8.0;HDR=Yes'" '连接EXCEL文件
sql = "select * from [" & strSheetName & "$]" '打开EXCEL表
rs.Open sql, Conn, 3, 3
MsgBox rs.RecordCount '显示表里的记录数
Do Until rs.EOF
List1.AddItem rs.Fields(0) '读出数据,添加到list1里
rs.MoveNext
Loop
rs.Close '关闭数据集
Conn.Close '关闭对象
End Sub
大菜鸟一个。。。
目的：查找某个学科的名称（strName）来查找其上一级学科的代码
'输入：某学科的名称、上一级学科所在的表名及其行数
'输出：上一级学科的代码
Private Function FindCode(strName As String, shtTable As Worksheet, nRowNum As Integer) As String
Dim nRow As Integer '上一级学科的所在的行号
Dim i As Integer
For i = 1 To nRowNum '查找strName的上级学科所在表中的行号
If shtTable.Range("b" & i).Value = strName Then
nRow = i
Exit For
End If
Next i
FindCode = shtTable.Range("a" & nRow) '获取stName的上级学科的代码End Function
Private Sub cboThird_Change()
End Sub
'目的：第三级学科下拉框的下拉按钮按下时，显示与第二级学科对应的所有第三级学科
Private Sub cboThird_DropButtonClick()
Dim strCode As String
Dim i As Integer
strCode = FindCode(https://www.doczj.com/doc/75375561.html,boBox2.Text, Sheet3, 693) '获取第二级学科的代码
For i = 1 To 2391 '查找与第二级学科对应的第三级学科，并把其名称加到列表框中
If strCode = Left(Sheet4.Range("a" & i).Value, 5) Then
Me.cboThird.AddItem (Sheet4.Range("b" & i).Value)
End If
Next i
If cboThird.ListCount = 0 Then '若没有三级学科，则显示“无三级学科” cboThird.AddItem ("无三级学科")
End If
End Sub
Private Sub ComboBox1_Change()
Sheet1.Range("h14").Value = https://www.doczj.com/doc/75375561.html,boBox1.Text '在表中与第一级学科相对应的单元格获取第一级学科列表框的值
https://www.doczj.com/doc/75375561.html,boBox2.Clear '第一级学科的值发生变化，第二级学科的列表也要更新
End Sub
Private Sub ComboBox1_DropButtonClick()
https://www.doczj.com/doc/75375561.html,boBox1.List = Sheet2.Range("b1:b58").Value '第一级学科列表加载所有一级学科的名称
End Sub
Private Sub ComboBox2_Change()
cboThird.Clear '第三级学科列表要更新
End Sub
'目的：第二级学科下拉框的下拉按钮按下时，显示与第一级学科对应的所有第二级学科
Private Sub ComboBox2_DropButtonClick()
Dim strCode As String
Dim i As Integer
strCode = FindCode(https://www.doczj.com/doc/75375561.html,boBox1.Text, Sheet2, 58) '获取第一级学科的代码
For i = 1 To 693 '查找与第一级学科对应的第二级学科，并把其名称加到列表框中
If strCode = Left(Sheet3.Range("a" & i).Value, 3) Then
https://www.doczj.com/doc/75375561.html,boBox2.AddItem (Sheet3.Range("b" & i).Value)
End If
Next i
End Sub
Excel中级联菜单的实现
减小字体增大字体
大家知道，在Excel中可以通过设置数据的有效性来实现类似于网页表单中的下拉菜单功能，这样可以大大地提高数据的录入速度和可靠性。但采用此方法要求下拉菜单中的选项不能过多，否则会影响录入的速度。如果这些选项内容之间可进行分类、分组，那我们就可以用多个下拉选项（即级联菜单）来解决此类问题。下面我们就从一个实例出发，给出在Excel中实现级联菜单的两种方法，希望能给使用Excel进行办公的朋友提供帮助。
一、自定义数据的有效性
这里有两个工作表，其中Sheet1用来采集客户资料，并将其名称改为“客户数据采集”，在Sheet2的A列中保存了所有的省份，B列中的数据为各省份所属的县市并将工作表名称改为“地区”（假设这里设置了三个省份，即江苏省、浙江省和安徽省）。
1．定义单元格区域名称
选中“地区”表中江苏省所属县市的单元格区域B2∶B14，依次单击“插入”菜单中的“名称”，选择“定义”，弹出“定义名称”对话框，在“在当前工作簿中的名称”框中输入所定义的名称“江苏”，单击“确定”按钮。类似地，我们可以将浙江省和安徽省所属县市的单元格区域名称分别定义为“浙江”和“安徽”。
2．设置数据的有效性
切换到“用户数据采集”表中，选择要选择输入省份的D列，单击“数据”菜单中的“有效性”命令，弹出设置“数据有效性”对话框，在有效性条件的“允许”列表中选择“序列”，在“来源”框中输入“江苏,浙江,安徽”（分隔符为英文状态下的逗号），单击“确定”按钮。接下来选中“所属县市”所在的E列，再次打开“数据有效性”对话框，在有效性条件的“允许”列表中选择“序列”，在“来源”框中输入公式“=INDIRECT(D2)”，单击“确定”按钮。
Cico提示：在关闭设置E列数据有效性对话框时，如系统弹出警告提示“源目前包含错误，是否继续？”，只需确认就可以了。如果指定的D2单元格中已经选择了一个省份再设置E 列数据的有效性就不会出现此提示了。
3．数据录入
录入客户资料时，首先选择客户所在的省份，然后再打开其右侧“所属县市”所在的单元格时，我们就可以从下拉菜单中找到我们所需的选项了。
二、用组合框工具实现
该方法是借助控件工具箱和VBA代码来实现的。
1．设计组合框
在工作表Sheet1中我们借助“控件工具箱”设计了录入界面，将工作表名称改为“客户数据采集”，在采集客户的所属地区时我们设计了两个组合框，第一个组合框ComboBox1用来存放省份，第二个组合ComboBox2用来存放对应于第一个组合框的下属的县市。Sheet2（“地区”表）仍保留和原来一样的内容。
2．编写组合框事件代码
双击“客户数据采集”表中的组合框ComboBox1，进入VBE编辑器，在代码窗口中输入其GotFocus事件代码：
Private Sub ComboBox1_GotFocus( )
'清除组合框中的数值
ComboBox1.Clear
ComboBox2.Clear
'读出"地区"表A列中的不同省份并将其添加到组合框1中
For i = 2 To Sheet2.[a1].End(xlDown).Row
target = Sheet2.Cells(i, 1)
'利用设置标志位要判断数据是否重复
flag = 0
For j = 0 To ComboBox1.ListCount - 1
If ComboBox1.List(j) = target Then flag = 1
Next
If flag = 0 Then
ComboBox1.AddItem target
End If
Next
End Sub
返回Excel工作表中，双击组合框ComboBox2，在代码窗口中输入其GotFocus事件代码：
Private Sub ComboBox2_GotFocus( )
ComboBox2.Clear
'读出"地区"表B列中属于组合框1的县市并将其添加到组合框2中
For i = 2 To Sheet2.[a1].End(xlDown).Row
target = Sheet2.Cells(i, 1)
If target = ComboBox1.Value Then
ComboBox2.AddItem Sheet2.Cells(i, 2)
End If
Next
End Sub
3．运行效果
返回“客户数据采集”表，单击控件工具箱中的“退出设计模式”按钮即可进入运行模式。在组合框ComboBox1中选择一个省份，此时再单击组合框ComboBox2的下拉按钮时，我们就可以方便地选择该省份所属的县市了。
Cico提示：除了在工作表中实现客户的数据采集外，我们还可以通过窗体来实现此操作的录入界面。如果我们需要更改组合框中的列表选项，只需在“地区”表（即Sheet2）中进行相应的更改就可以了。
两种方法的比较：相比之下，用本文提供的第一种方法比较简单，更适合于初学者和一般用户。而第二方法则更适合利用Excel进行二次开发的读者朋友，以便于设计人性化的数据录入界面。
另外，在本例中，“地区”表中的地区数据如果需要添加或删除，若用第一种方法实现，要求添加的同类数据必须要连续且需要重新定义单元格区域。如果用方法二实现，各省份和所属县市添加时可以连续也可以不连续，就这一点而言，比第一种方法要便捷多了。
相信大家在耐心地看完本文以后已经掌握了这两种在Excel中制作级联菜单的方法，只要进行简单的变通，就可以将本文所介绍的技巧应用到其他类似的场合，去解决我们日常办公
中遇到的问题。
Excel2010 使用技巧集锦 目录 一、基本方法7 1.快速选中全部工作表7 2.快速启动E XCEL7 3.快速删除选定区域数据 8 4.给单元格重新命名8 5.在E XCEL中选择整个单元格范围9 6.快速移动/复制单元格9 7.快速修改单元格式次序 9 8.彻底清除单元格内容10 9.选择单元格10 10.为工作表命名11 11.一次性打开多个工作簿 11 12.快速切换工作簿13 13.选定超级链接文本（微软O FFICE技巧大赛获奖作品）13 14.快速查找14 15.修改默认文件保存路径 14 16.指定打开的文件夹15 17.在多个E XCEL工作簿间快速切换15 18.快速获取帮助16 19.创建帮助文件的快捷方式16 20.双击单元格某边移动选定单元格16 21.双击单元格某边选取单元格区域17 22.快速选定不连续单元格 17 23.根据条件选择单元格17 24.复制或移动单元格18 25.完全删除E XCEL中的单元格18
26.快速删除空行19 27.回车键的粘贴功能19 28.快速关闭多个文件20 29.选定多个工作表20 30.对多个工作表快速编辑 20 31.移动和复制工作表21 32.工作表的删除21 33.快速选择单元格21 34.快速选定E XCEL区域（微软O FFICE技巧大赛获奖作品）22 35.备份工件簿22 36.自动打开工作簿23 37.快速浏览长工作簿23 38.快速删除工作表中的空行23 39.绘制斜线表头24 40.绘制斜线单元格25 41.每次选定同一单元格26 42.快速查找工作簿26 43.禁止复制隐藏行或列中的数据27 44.制作个性单元格27 二、数据输入和编辑技巧28 1.在一个单元格内输入多个值 28 2.增加工作簿的页数28 3.奇特的F4键29 4.将格式化文本导入E XCEL29 5.快速换行30 6.巧变文本为数字30 7.在单元格中输入0值31 8.将数字设为文本格式32 9.快速进行单元格之间的切换（微软O FFICE技巧大赛获奖作品）32
如何将多个E x c e l工作簿合并成一个新的工作 簿 集团公司文件内部编码：（TTT-UUTT-MMYB-URTTY-ITTLTY-
如何将多个Excel工作簿合并成一个新的工作簿 有多个独立的excel工作簿文件需要合并到一个新的工作簿中，保留原来excel工作簿中各个excel工作表名称和结构。如果量小，可以采用打开一个个复制的方法。若有100多份excel文件要合并到一个excel工作簿，这样就需要用批量处理多个工作簿的合并（PS：不是工作表）。 1、将需要合并的excel工作簿文件放置在一个文件夹中。 2、在该文件夹中，新建立一个新的excel工作簿文件。 3、打开新建立的excel工作簿文件，将鼠标移动到下方工作表名称sheet1上右键，选择查看代码。 4、在弹出的代码编辑窗口中，输入代码。 5、在代码窗口中，粘贴下列代码： Sub合并工作薄() DimFilesToOpen DimxAsInteger OnErrorGoToErrHandler Application.ScreenUpdating=False FilesToOpen=Application.GetOpenFilename_ (FileFilter:="MicroSoftExcel文件(*.xls),*.xls",_ MultiSelect:=True,Title:="要合并的文件") IfTypeName(FilesToOpen)="Boolean"Then MsgBox"没有选中文件"
GoToExitHandler EndIf x=1 Whilex<=UBound(FilesToOpen) Workbooks.OpenFilename:=FilesToOpen(x) x=x+1 Wend ExitHandler: Application.ScreenUpdating=True ExitSub ErrHandler: MsgBoxErr.Description ResumeExitHandler EndSub 6、点击菜单栏运行-运行子过程-用户窗体。关闭代码输入窗口。打开excel工作簿，可以看到下方已经将之前工作簿中的工作表都复制到了这一新建工作簿中。
把多个工作簿合并到一个工作簿作为新工作簿的一张表（宏代码） 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 & "\" & "*.xls") AWbName = https://www.doczj.com/doc/75375561.html, Num = 0 Do While MyName <> "" If MyName <> AWbName Then Set Wb = Workbooks.Open(MyPath & "\" & MyName) Num = Num + 1 With Workbooks(1).ActiveSheet .Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) Next WbN = WbN & Chr(13) & https://www.doczj.com/doc/75375561.html, Wb.Close False End With End If MyName = Dir Loop Range("A1").Select Application.ScreenUpdating = True MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示" End Sub 具体操作：在工作簿目录下新建一工作簿，工具---宏----编辑器----插入—模块---粘贴代码==运行 excel如何将一个工作簿中的多个工作表合并到一张工作表上 打开你的工作簿新建一个工作表在这个工作表的标签上右键查看代码你把下面的代码复制到里边去，然后上面有个运行运行子程序就可以了，代码如下，如果出现问题你可以尝试工具宏宏安全性里把那个降低为中或者低再试试 Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False
@@@@@@@@@@@############### Excel 使用技巧集锦——163种技巧 目录 一、基本方法7 1.快速选中全部工作表7 2.快速启动E XCEL7 3.快速删除选定区域数据 8 4.给单元格重新命名8 5.在E XCEL中选择整个单元格范围9 6.快速移动/复制单元格9 7.快速修改单元格式次序 9 8.彻底清除单元格内容10 9.选择单元格10 10.为工作表命名11 11.一次性打开多个工作簿 11 12.快速切换工作簿13 13.选定超级链接文本（微软O FFICE技巧大赛获奖作品）13 14.快速查找14 15.修改默认文件保存路径 14 16.指定打开的文件夹15 17.在多个E XCEL工作簿间快速切换15 18.快速获取帮助16 19.创建帮助文件的快捷方式16 20.双击单元格某边移动选定单元格16 21.双击单元格某边选取单元格区域17 22.快速选定不连续单元格 17 23.根据条件选择单元格18
24.复制或移动单元格18 25.完全删除E XCEL中的单元格18 26.快速删除空行19 27.回车键的粘贴功能19 28.快速关闭多个文件20 29.选定多个工作表20 30.对多个工作表快速编辑 20 31.移动和复制工作表21 32.工作表的删除21 33.快速选择单元格22 34.快速选定E XCEL区域（微软O FFICE技巧大赛获奖作品）22 35.备份工件簿22 36.自动打开工作簿23 37.快速浏览长工作簿23 38.快速删除工作表中的空行23 39.绘制斜线表头24 40.绘制斜线单元格25 41.每次选定同一单元格26 42.快速查找工作簿26 43.禁止复制隐藏行或列中的数据27 44.制作个性单元格27 二、数据输入和编辑技巧28 1.在一个单元格内输入多个值 28 2.增加工作簿的页数28 3.奇特的F4键29 4.将格式化文本导入E XCEL29 5.快速换行30 6.巧变文本为数字30 7.在单元格中输入0值31
多个工作表的合并及动态更新 之利用Excel数据新建查询（Power Query）功能 当今信息化“大数据”时代，数据汇总分析已经成为财务、税务、审计人员必不可少的一项技能。作为一线审计人员，经常与数据打交道，小编更是有切身体会，各种Excel函数、并表、透视等更是家常便饭手到擒来的事情。Excel操作技能慢慢成为每一个财税人员的看家本领，基础技能，小编后续在解码财税政策实务原理的同时，将会在【工具】菜单选项模块更新一系列Excel操作小技巧，相信能够给财税工作领域的小伙伴们带来实务工作上的便利，为您的职业发展助一臂之力。今天小编打算写一篇关于跨表或跨工作簿甚至跨文件夹合并的问题，这项“神技能”可以说是财税人员很少去运用的技能，但一旦掌握，您将受益终身。更多工具搜索：爱问财税
一、跨表合并解决的问题 财务部门作为公司数据记录、归集、处理中心，是企业管理运营的核心，成本费用的列支、收入现金的记录，采购端的支出、销售端的收入，公司合并、分立、上市、清算…等等，每项业务都需要在财务、税务部门体现出来。当公司规模不大时，可以手工简单处理，靠单笔查询或脑袋记忆就能解决，但一旦公司规模扩张，尤其多元化业务发展，企业的财务或税务人员势必面临着数据归集、处理、分析的难题。 今天所讲的跨表合并主要解决财务部门在面临不同部门提交的数据、不同日期、月份、年度的数据，或者不同公司、行业的报表数据等，各项数据分散在不同的工作表、工作簿甚至文件夹中，这种情况该如何解决入如何能运用Excel的操作技巧达到快速合并的效果，可以留给更多分析、报告的时间。 二、跨表合并解决的方法 跨表合并解决的方法其实有很多种，包括数据新建查询（Power Query）、方方格子、Excel易用宝、慧办公软件、VBA函数等，那么作为财税人员，我们应该学习哪种技能既能解决问题又比较容易上手呢？那么我们先分析下这些工具具体应用场景：
经典 Excel 2007使用技巧集锦——168种技巧 目录 一、基本方法7 1.快速选中全部工作表7 2.快速启动E XCEL7 3.快速删除选定区域数据 8 4.给单元格重新命名 8 5.在E XCEL中选择整个单元格范围9 6.快速移动/复制单元格9 7.快速修改单元格式次序 9 8.彻底清除单元格内容10 9.选择单元格10 10.为工作表命名11 11.一次性打开多个工作簿 11 12.快速切换工作簿13 13.选定超级链接文本（微软O FFICE技巧大赛获奖作品）14 14.快速查找14 15.修改默认文件保存路径 14 16.指定打开的文件夹 15 17.在多个E XCEL工作簿间快速切换15 18.快速获取帮助16 19.创建帮助文件的快捷方式16 20.双击单元格某边移动选定单元格16
21.双击单元格某边选取单元格区域17 22.快速选定不连续单元格 17 23.根据条件选择单元格18 24.复制或移动单元格 18 25.完全删除E XCEL中的单元格18 26.快速删除空行19 27.回车键的粘贴功能 19 28.快速关闭多个文件 20 29.选定多个工作表20 30.对多个工作表快速编辑 20 31.移动和复制工作表 21 32.工作表的删除21 33.快速选择单元格22 34.快速选定E XCEL区域（微软O FFICE技巧大赛获奖作品）22 35.备份工件簿22 36.自动打开工作簿23 37.快速浏览长工作簿 23 38.快速删除工作表中的空行23 39.绘制斜线表头24 40.绘制斜线单元格25 41.每次选定同一单元格26 42.快速查找工作簿26 43.禁止复制隐藏行或列中的数据27 44.制作个性单元格27 二、数据输入和编辑技巧28 1.在一个单元格内输入多个值 28 2.增加工作簿的页数 28 3.奇特的F4键29 4.将格式化文本导入E XCEL29
excel如何合并多个工作簿中的指定工作表 浏览次数：1256次悬赏分：30|解决时间：2010-4-14 02:10 |提问者：lanxue88888 每天要汇总很多数据！ 浪费太多时间！ 现在求一个宏，或者工具！ 可以将指定目录下的excel工作簿中的指定表！汇总到一起！ 例如！将book1.xlsx中的sheet1。 book2.xlsx中的sheet1。 book3.xlsx中的sheet1。 book4.xlsx中的sheet1。 ~~~~~~~~~~ 合并到book汇总.xlsx中的sheet1中 如果你的建议是复制~~粘贴~就算了！这个我知道如何使用！ 如果提供宏的朋友可以加入详细说明，以便我学习，我将酌情加分！ 谢谢！ 最佳答案 Sub Macro1() Dim lj$, dirname$, nm$, wb As Workbook, sh As Worksheet, a, b Set wb = ThisWorkbook a = Array(0, 2, 1) b = Array(0, -1, 0) lj = ThisWorkbook.Path nm = https://www.doczj.com/doc/75375561.html, dirname = Dir(lj & "\*.xls") Application.ScreenUpdating = False For Each sh In Sheets https://www.doczj.com/doc/75375561.html,edRange.Offset(3, 0).Clear Next Do While dirname <> "" If dirname <> nm Then With GetObject(lj & "\" & dirname) For i = 1 To 2 If IsSheetEmpty = IsEmpty(.Sheets(i).UsedRange) Then _ .Sheets(i).UsedRange.Offset(3, 0).Copy wb.Sheets(.Sheets(i).Name).Cells(65536, a(i)).End(xlUp).Offset(1, b(i)) Next .Close False End With End If
Excel 使用技巧集锦——163种技巧 目录 一、基本方法7 1. 快速选中全部工作表7 2. 快速启动EXCEL 7 3. 快速删除选定区域数据7 4. 给单元格重新命名7 5. 在EXCEL中选择整个单元格范围7 6. 快速移动/复制单元格 8 7. 快速修改单元格式次序8 8. 彻底清除单元格内容8 9. 选择单元格8 10. 为工作表命名9 11. 一次性打开多个工作簿9 12. 快速切换工作簿9 13. 选定超级链接文本（微软OFFICE技巧大赛获奖作品） 10 14. 快速查找10 15. 修改默认文件保存路径10 16. 指定打开的文件夹10 17. 在多个EXCEL工作簿间快速切换10 18. 快速获取帮助11 19. 创建帮助文件的快捷方式11 20. 双击单元格某边移动选定单元格11 21. 双击单元格某边选取单元格区域11 22. 快速选定不连续单元格11 23. 根据条件选择单元格11 24. 复制或移动单元格12 25. 完全删除EXCEL中的单元格12 26. 快速删除空行12 27. 回车键的粘贴功能12 28. 快速关闭多个文件12 29. 选定多个工作表12 30. 对多个工作表快速编辑13 31. 移动和复制工作表13 32. 工作表的删除13 33. 快速选择单元格13 34. 快速选定EXCEL区域（微软OFFICE技巧大赛获奖作品）13 35. 备份工件簿14 36. 自动打开工作簿14 37. 快速浏览长工作簿14 38. 快速删除工作表中的空行14 39. 绘制斜线表头14 40. 绘制斜线单元格15
41. 每次选定同一单元格15 42. 快速查找工作簿15 43. 禁止复制隐藏行或列中的数据15 44. 制作个性单元格16 二、数据输入和编辑技巧16 1. 在一个单元格内输入多个值16 2. 增加工作簿的页数16 3. 奇特的F4键 16 4. 将格式化文本导入EXCEL 16 5. 快速换行17 6. 巧变文本为数字17 7. 在单元格中输入0值17 8. 将数字设为文本格式18 9. 快速进行单元格之间的切换（微软OFFICE技巧大赛获奖作品） 18 10. 在同一单元格内连续输入多个测试值18 11. 输入数字、文字、日期或时间18 12. 快速输入欧元符号19 13. 将单元格区域从公式转换成数值19 14. 快速输入有序文本19 15. 输入有规律数字19 16. 巧妙输入常用数据19 17. 快速输入特殊符号20 18. 快速输入相同文本20 19. 快速给数字加上单位20 20. 巧妙输入位数较多的数字21 21. 将WPS/WORD表格转换为EXCEL工作表21 22. 取消单元格链接21 23. 快速输入拼音21 24. 插入“√”21 25. 按小数点对齐22 26. 对不同类型的单元格定义不同的输入法22 27. 在EXCEL中快速插入WORD表格 22 28. 设置单元格字体22 29. 在一个单元格中显示多行文字23 30. 将网页上的数据引入到EXCEL表格23 31. 取消超级链接23 32. 编辑单元格内容23 33. 设置单元格边框23 34. 设置单元格文本对齐方式24 35. 输入公式24 36. 输入人名时使用“分散对齐”（微软OFFICE技巧大赛获奖作品）24 37. 隐藏单元格中的所有值（微软OFFICE技巧大赛获奖作品） 24 38. 恢复隐藏列24 39. 快速隐藏/显示选中单元格所在行和列（微软OFFICE技巧大赛获奖作品）24
快速合并单个excel表中的多个Sheet的工作页 很多朋友会遇到这样的问题，就是很有很多页的数据，少的有几十页, 多的可能有几百页，然后需要合并到一个页面做数据分析，如果一页页的复 制粘贴的话,就比较麻烦.下面我就介绍一种利用excel的宏计算来解决这个问题. 2. 看到这么多数据页要合并,如果是复制粘贴的话,工作量就很大了 我们现在开始合并，首先要在最前页新建一个工作表。如图：
3. 在新建的Sheet表中右键”，找到查看代码”,然后看到宏计算界面如图所示:
4。看到宏计算界面,我们就只需要把下面的代码复制进去，代码如下,效果如下： Sub合并当前工作簿下的所有工作表（) APPliCati On 。Scree nUpdati ng = False FOr j = 1 To SheetS.Cou nt If SheetS（j）。Name <〉 https://www.doczj.com/doc/75375561.html, The n X = Ran ge(”A65536")。E nd(xlUp ）。Row + 1 SheetS（j）。UsedRa nge.Copy Cells(X, 1) End If NeXt Ran ge（”B1”)。Select APPIiCati on .Scree nUpdat ing = TrUe MSgBOX "当前工作簿下的全部工作表已经合并完毕！”, VbInformation，”提
示"
End Sub 5. 做完上面的事情，然后只需要点击工具栏上面的 运行”下的运行子过 程/用户窗体”就可以了，合并完之后会有提示。 提示完成之后就可以把宏计 算界面关闭了。如图所示: 6. 合并后的效果如下图，我们看到的是合并之后有 8000多行，就是205 页合并后的结果。谢谢.如有疑问,请留言。 Γ? Viπn*f? Iιc?l - ■曲和ill 仙 ￠1 SlhHl ∣? 丁 峙申 帕為*1■兢 φ?c φ Jba-I ll Ldj ΦM ?∏ SEi I iL Of 肝聲 初 5W ∣
目录 一、基本方法 (6) 1、快速选中全部工作表 (6) 2、快速启动E XCEL (7) 3、快速删除选定区域数据 (7) 4、给单元格重新命名 (7) 5、在E XCEL中选择整个单元格范围 (7) 6、快速移动/复制单元格 (7) 7、快速修改单元格式次序 (8) 8、彻底清除单元格内容 (8) 9、选择单元格 (8) 10、为工作表命名 (8) 11、一次性打开多个工作簿 (8) 12、快速切换工作簿 (9) 13、选定超级链接文本(微软O FFICE技巧大赛获奖作品) (9) 14、快速查找 (9) 15、修改默认文件保存路径 (10) 16、指定打开得文件夹 (10) 17、在多个E XCEL工作簿间快速切换 (10) 18、快速获取帮助 (10) 19、创建帮助文件得快捷方式 (10) 20、双击单元格某边移动选定单元格 (10) 21、双击单元格某边选取单元格区域 (11) 22、快速选定不连续单元格 (11) 23、根据条件选择单元格 (11) 24、复制或移动单元格 (11) 25、完全删除E XCEL中得单元格 (11) 26、快速删除空行 (11) 27、回车键得粘贴功能 (12)
29、选定多个工作表 (12) 30、对多个工作表快速编辑 (12) 31、移动与复制工作表 (12) 32、工作表得删除 (13) 33、快速选择单元格 (13) 34、快速选定E XCEL区域(微软O FFICE技巧大赛获奖作品) (13) 35、备份工件簿 (13) 36、自动打开工作簿 (13) 37、快速浏览长工作簿 (13) 38、快速删除工作表中得空行 (14) 39、绘制斜线表头 (14) 40、绘制斜线单元格 (14) 41、每次选定同一单元格 (15) 42、快速查找工作簿 (15) 43、禁止复制隐藏行或列中得数据 (15) 44、制作个性单元格 (15) 二、数据输入与编辑技巧 (16) 45、在一个单元格内输入多个值 (16) 46、增加工作簿得页数 (16) 47、奇特得F4键 (16) 48、将格式化文本导入E XCEL (16) 49、快速换行 (16) 50、巧变文本为数字 (17) 51、在单元格中输入0值 (17) 52、将数字设为文本格式 (17) 53、快速进行单元格之间得切换(微软O FFICE技巧大赛获奖作品) (17) 54、在同一单元格内连续输入多个测试值 (18) 55、输入数字、文字、日期或时间 (18)
EXCEL合并多个工作薄中的相同指定工作表到另一个工作薄中文件夹下有600多个工作薄,每个工作薄中有工作表20多个,每个工作薄中都有一个工作表标签为"明细"的工作表,需要将名称为"明细"的指定工作表的数据,汇集罗列到另外一个工作薄的"汇总表"中,如何写vba代码 最佳答案 Sub 合并选定工作簿的第一个工作表() '功能：合并某文件下所有Excel工作簿中的第一个工作表 '使用：将要合并的工作簿拷贝到某文件夹下，新建一个工作簿后执行该宏 Dim WBName As String '汇总工作簿名称 Dim WBCurrent As String '当前正在合并的工作簿 Dim i As Integer Dim FileToOpen As Variant '选定的文件列表 '显示选择文件对话框，使用Ctrl或Shief键选取多个工作簿 FileToOpen = Application _ .GetOpenFilename("Excel Files (*.xls), *.xls", , "请选择要合并的工作簿", , True) '如果没有选择文件则退出 If IsArray(FileToOpen) = 0 Then MsgBox "没有选择文件" Exit Sub End If '不显示合并的过程 = False WBName = '逐个合并工作簿 For i = 1 To UBound(FileToOpen) '打开一个工作簿 Filename:=FileToOpen(i) WBCurrent = '将该工作簿复制到汇总工作簿 Sheets("明细").Copy Before:=Workbooks(WBName).Sheets(1) '将去掉".xls"后缀的工作簿文件名作为工作表名称， = Left(WBCurrent, Len(WBCurrent) - 4) '合并后关闭该工作簿 Workbooks(WBCurrent).Close Next i = True End Sub
Excel决定企业存亡 决定企业命运的因素很多，人才、管理、资金、产品、市场……对于这些，很多人都知道。殊不知，玩不玩得好Excel，也能决定企业命运。何以见得，这就得从Excel的本质说起。不少人认为，它只是个“电子笔记本”，无非是取代了以往的纸质笔记本，用来记点数据而已。如果这样想，也这样用，那就大错特错了。只是“电子笔记本”的话，MS Office怎么可能成为全球企业通用的办公软件？ 那么—— Excel是什么？它是挖掘数据背后意义的工具。 数据是什么？是企业经营决策的依据，也是企业的命脉。 举个例：阿童木办了家公司卖设备，投入仅有的100万买了A、B各100套设备。一年下来发现，A设备卖了90套，B设备卖了0套。阿童木明年应该怎么办？ 抛开各种复杂的市场分析，按照小学数学教的简单加减法逻辑。既然A卖的好，自然是进货接着卖；B一台都卖不出去，就要想办法清仓减价大处理，回笼资金后转而考虑加强A，以及引进新的产品C。好啦，下了订单买90套A，消息也放出去了，要对B进行清仓处理。就在此时，销售部说：不好意思，数据做错了，其实是A卖了0套，B卖了90套。Oh my Lady Gaga！后果可想而知。 这当然是一个极端的例子。可是，我们身边又何尝不是天天在出现类似的问题。数据错误造成的直接损失、纠错成本及其他负面影响不可小视，却在被很多人忽视。
有人说：你手工做当然会错，咱们用系统的没这困扰。我不敢苟同。近几年市场上出现了一个新名词：BI。全称：Business Intelligence（商业智能）。它是一套系统，可以将企业中现有的数据转化为知识，为企业做出明智的业务经营决策提供依据。之所以会有BI的横空出世，说明传统的企业系统，无论是ERP、WMS 还是CRM，更多解决了数据的Input（输入），而不能提供完全满足需求的个性化Output(输出）。从技术层面上讲，商业智能也不是什么新技术，它只是数据仓库、OLAP和数据挖掘等技术的综合运用。而对于Excel 来说，只要源数据足够优秀，应付大多数企业的数据挖掘需求，那是小菜一碟。谁让它就是专门干这个的呢，桌面数据处理之王可不是吹的。 回想一下，有哪一位老板点点鼠标，根据系统生成的基础报表就能做决策。通常不都是各部门整理数据，出具手工制作的数据分析报告。有系统也好，没系统也罢，投影在会议室幕墙上的数据分析结果，大多是Excel 的杰作。 说它重要，一点不为过。 2011年06月13日 Excel到底是不是小玩意儿？！我认为不是。重视Excel很必要，为什么？咱们算一笔账：一家公司有20个人，其中2个人做数据工作。但是他们不会用Vlookup和透视表，于是查找/比对和制作汇总表占用了他们全部的时间。按月薪2000元/人算，公司一年将支出48000元。而这些活儿交给懂Excel的人，能快几百倍完成。 这两样我称之为哼哈二将，不会用痛苦万分，用会了幸福百倍。对于实际的工作需求，在所有技能中，他们的重要性我给排第一。 知道多卖东西能赚钱，虽然也都知道省成本也能赚钱，但真正关注成本的企业却不多，尤其在对待Excel这件事上。如果半个能人的活要2个人来做，成本就会增加。36000元的成本对于一家产品毛利10%的企业，意味着36万的销量增长。相比增加销量，恐怕还是省钱来的容易些。 -------------------------------------------------------------------------------------------------- 博友们说： @简约力——太有同感了！往往从ERP捞出的资料相对分散，用一下Vlookup-->然后透视表一下-->照相机再拍--->交给画图并红圈标出重点-->邮件发出-->再用Excel记下本次重点-->下个月再一次这样循环。 @MrExcel——确实如此，从另一个角度来讲，对Excel 各种功能的错误理解和误用可能会给组织造成巨大的财务和社会形象损失。这个网站列举了很多关于这方面的案例，https://www.doczj.com/doc/75375561.html,/h44NaI。对于组织的管理者，是不是会突然觉得：Excel管理深度应用培训并不是可有可无的投资？对员工进行Excel等办公软件的培训和对员工进行设备的熟练操作的培训性质是一样的，都可以达到提高工作效率，提高工作(产品)质量的目的。 @熊饼饼——还好我会Vlookup和透视表。。。
Excel 使用技巧集锦——163种技巧（多加练习，定有成功） 目录 一、基本方法7 1.快速选中全部工作表7 2.快速启动E XCEL7 3.快速删除选定区域数据7 4.给单元格重新命名7 5.在E XCEL中选择整个单元格范围 8 6.快速移动/复制单元格 8 7.快速修改单元格式次序8 8.彻底清除单元格内容8 9.选择单元格8 10.为工作表命名9 11.一次性打开多个工作簿9 12.快速切换工作簿9 13.选定超级链接文本（微软O FFICE技巧大赛获奖作品）10 14.快速查找10 15.修改默认文件保存路径10 16.指定打开的文件夹10 17.在多个E XCEL工作簿间快速切换 10 18.快速获取帮助11 19.创建帮助文件的快捷方式11 20.双击单元格某边移动选定单元格11 21.双击单元格某边选取单元格区域11 22.快速选定不连续单元格11 23.根据条件选择单元格11 24.复制或移动单元格12
25.完全删除E XCEL中的单元格 12 26.快速删除空行12 27.回车键的粘贴功能12 28.快速关闭多个文件12 29.选定多个工作表13 30.对多个工作表快速编辑13 31.移动和复制工作表13 32.工作表的删除13 33.快速选择单元格13 34.快速选定E XCEL区域（微软O FFICE技巧大赛获奖作品） 13 35.备份工件簿14 36.自动打开工作簿14 37.快速浏览长工作簿14 38.快速删除工作表中的空行14 39.绘制斜线表头14 40.绘制斜线单元格15 41.每次选定同一单元格15 42.快速查找工作簿15 43.禁止复制隐藏行或列中的数据15 44.制作个性单元格16 二、数据输入和编辑技巧16 1.在一个单元格内输入多个值16 2.增加工作簿的页数16 3.奇特的F4键 16 4.将格式化文本导入E XCEL17 5.快速换行17 6.巧变文本为数字17 7.在单元格中输入0值17 8.将数字设为文本格式18
多个Excel表合并形成一个Excel中的多sheet工作簿 (2013-03-21 11:05:24) 转载▼ 分类：excel使用技巧 新建一个excel表（把所有表最终要导入的表）。在该表中按ALT+F11打开宏，插入------ 模块 在打开的窗口中输入： Sub CombineWorkbooks() Dim FilesToOpen Dim x As Integer On Error GoTo ErrHandler Application.ScreenUpdating = False FilesToOpen = Application.GetOpenFilename _ (FileFilter:="MicroSoft Excel文件(*.xls),*.xls", _ MultiSelect:=True, Title:="要合并的文件") If TypeName(FilesToOpen) = "Boolean" Then MsgBox "没有选中文件" GoTo ExitHandler End If x = 1 While x <= UBound(FilesToOpen) Workbooks.Open Filename:=FilesToOpen(x) Sheets().Move after:=ThisWorkbook.Sheets _ (ThisWorkbook.Sheets.Count) x = x + 1 Wend ExitHandler: Application.ScreenUpdating = True
Exit Sub ErrHandler: MsgBox Err.Description Resume ExitHandler End Sub 按F5运行宏。
Excel 使用技巧集锦—— 163种技巧 目录 一、基本方法 (7) 1.快速选中全部工作表 (7) 2.快速启动E XCEL (7) 3.快速删除选定区域数据 (8) 4.给单元格重新命名 (8) 5.在E XCEL中选择整个单元格围 (9) 6.快速移动/复制单元格 (9) 7.快速修改单元格式次序 (9) 8.彻底清除单元格容 (10) 9.选择单元格 (10) 10.为工作表命名 (11) 11.一次性打开多个工作簿 (11) 12.快速切换工作簿 (13) 13.选定超级文本（微软O FFICE技巧大赛获奖作品） (13) 14.快速查找 (14) 15.修改默认文件保存路径 (14) 16.指定打开的文件夹 (15) 17.在多个E XCEL工作簿间快速切换 (15) 18.快速获取帮助 (16) 19.创建帮助文件的快捷方式 (16) 20.双击单元格某边移动选定单元格 (16) 21.双击单元格某边选取单元格区域 (17) 22.快速选定不连续单元格 (17) 23.根据条件选择单元格 (17) 24.复制或移动单元格 (18)
25.完全删除E XCEL中的单元格 (18) 26.快速删除空行 (19) 27.回车键的粘贴功能 (19) 28.快速关闭多个文件 (19) 29.选定多个工作表 (20) 30.对多个工作表快速编辑 (20) 31.移动和复制工作表 (21) 32.工作表的删除 (21) 33.快速选择单元格 (21) 34.快速选定E XCEL区域（微软O FFICE技巧大赛获奖作品） (22) 35.备份工件簿 (22) 36.自动打开工作簿 (22) 37.快速浏览长工作簿 (23) 38.快速删除工作表中的空行 (23) 39.绘制斜线表头 (24) 40.绘制斜线单元格 (25) 41.每次选定同一单元格 (26) 42.快速查找工作簿 (26) 43.禁止复制隐藏行或列中的数据 (26) 44.制作个性单元格 (27) 一、数据输入和编辑技巧 (28) 45.在一个单元格输入多个值 (28) 46.增加工作簿的页数 (28) 47.奇特的F4键 (28) 48.将格式化文本导入E XCEL (29) 49.快速换行 (30) 50.巧变文本为数字 (30) 51.在单元格中输入0值 (31) 52.将数字设为文本格式 (31)
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 & "\" & "*.xls") AWbName = https://www.doczj.com/doc/75375561.html, Num = 0 Do While MyName <> "" If MyName <> AWbName Then Set Wb = Workbooks.Open(MyPath & "\" & MyName) Num = Num + 1 With Workbooks(1).ActiveSheet .Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) Next WbN = WbN & Chr(13) & https://www.doczj.com/doc/75375561.html, Wb.Close False End With End If MyName = Dir Loop Range("A1").Select Application.ScreenUpdating = True MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示" End Sub 操作步骤： 1、新建一个文件夹，把需要合并的表格都放到新建的文件夹内 2、在新建文件夹内新建一个EXCEL表格 3、打开新建的EXCEL空表格，按ALT+F11，选择“插入-模块”如图：
excel合并多个工作簿中的工作表 在同一文件夹中有多个工作簿，其中有一个用于汇总的工作簿，要求将除该汇总工作簿外的其它工作簿中的指定工作表的数据汇总到该汇总工作簿中。(这个最好用)代码如下： Sub UnionWorksheets() Application.ScreenUpdating = False Dim lj As String Dim dirname As String Dim nm As String lj = ActiveWorkbook.Path nm = https://www.doczj.com/doc/75375561.html, dirname = Dir(lj & "\*.xls*") Cells.Clear Do While dirname <> "" If dirname <> nm Then Workbooks.Open Filename:=lj & "\" & dirname Workbooks(nm).Activate '复制新打开工作簿的第一个工作表的已用区域到当前工作表 Workbooks(dirname).Sheets(1).UsedRange.Copy _ Range("A65536").End(xlUp).Offset(1, 0) 'sheets(1) 中的1为工作表顺序号 Workbooks(dirname).Close False End If dirname = Dir Loop End Sub
可以将指定目录下的excel工作簿中的指定表！汇总到一起！ 例如！将book1.xlsx中的sheet1。 book2.xlsx中的sheet1。 book3.xlsx中的sheet1。 book4.xlsx中的sheet1。 ~~~~~~~~~~ 合并到book汇总.xlsx中的sheet1中 如果你的建议是复制~~粘贴~就算了！这个我知道如何使用！ 如果提供宏的朋友可以加入详细说明，以便我学习，我将酌情加分！ 谢谢！ 最佳答案 Sub Macro1() Dim lj$, dirname$, nm$, wb As Workbook, sh As Worksheet, a, b Set wb = ThisWorkbook a = Array(0, 2, 1) b = Array(0, -1, 0) lj = ThisWorkbook.Path nm = https://www.doczj.com/doc/75375561.html, dirname = Dir(lj & "\*.xls") Application.ScreenUpdating = False For Each sh In Sheets https://www.doczj.com/doc/75375561.html,edRange.Offset(3, 0).Clear Next Do While dirname <> "" If dirname <> nm Then With GetObject(lj & "\" & dirname) For i = 1 To 2 If IsSheetEmpty = IsEmpty(.Sheets(i).UsedRange) Then _ .Sheets(i).UsedRange.Offset(3, 0).Copy wb.Sheets(.Sheets(i).Name).Cells(65536, a(i)).End(xlUp).Offset(1, b(i)) Next .Close False End With End If dirname = Dir Loop Dim UserSheet As Worksheet Set UserSheet = ActiveSheet