VBA学习之复制粘贴表

2019/9/30

1 建立测试文件夹

每张表的内容如下：

在文件夹里建立5个相同内容的副本：

2 百度网上代码进行试用

代码1（原代码链接）：

Sub MoveSheets()'在下面Array中列出所有需要复制的工作表的名称
'换行符为：空格+_Worksheets(Array("C:\Users\gui\Desktop\工作\VBA学习\数据\复制粘贴测试\test.xlsx",x_"C:\Users\gui\Desktop\工作\VBA学习\数据\复制粘贴测试\test - 副本.xlsx", "C:\Users\gui\Desktop\工作\VBA学习\数据\复制粘贴测试\test - 副本(2).xlsx",  _"C:\Users\gui\Desktop\工作\VBA学习\数据\复制粘贴测试\test - 副本(3).xlsx", _"C:\Users\gui\Desktop\工作\VBA学习\数据\复制粘贴测试\test - 副本(4).xlsx",  _"C:\Users\gui\Desktop\工作\VBA学习\数据\复制粘贴测试\test - 副本(5).xlsx")).CopySet wbNew = ActiveWorkbookWith wbNewActiveWorkbook.SaveAs Filename:="C:\Users\gui\Desktop\工作\VBA学习\数据\复制粘贴测试\" & "合并.xlsx".CloseEnd WithEnd Sub

出现错误

时间：2019/10/5
发现自己对上面代码中的工作表错理解为工作簿

Sub MoveSheets()'在下面Array中列出所有需要复制的工作表的名称
'换行符为：空格+_Worksheets(Array("Sheet1", "Sheet2")).CopySet wbNew = ActiveWorkbookWith wbNewActiveWorkbook.SaveAs Filename:="C:\Users\gui\Desktop\工作\VBA学习\数据\复制粘贴测试\" & "合并.xlsx".CloseEnd WithEnd Sub

上面这段代码的实际作用：选择自己想要的sheet(工作表)复制粘贴到一个新的工作簿

学习目标1

将一个文件夹中的所有工作簿复制粘贴到一个新的工作簿中

学习链接1
学习链接2

成功！！！
重复上面步骤

Public Sub 一键获取本文件夹工作表()Application.ScreenUpdating = FalseDim f As String, i As Integer '定义变量Dim wb As Excel.Workbook  '定义工作簿，也就是最后合并的表格Dim sh, sh1 As Excel.Worksheet '定义工作表Set sh1 = ThisWorkbook.Worksheets("导入清单")  'sh1为导入清单sheetIf Range("a65536").End(xlUp).Row > 1 Then 'A列最后一个有数据的单元所在的行数orA65535单元格向上，最后一个非空的单元格的行号sh1.Range("a2:b" & Range("a65536").End(xlUp).Row).ClearEnd Iff = Dir(ThisWorkbook.Path & "\*xls*") '获取地址Do While f <> "" '地址不为空时执行，<>在VBA在是不等于的意思If f <> ThisWorkbook.Name ThenSet wb = Workbooks.Open(ThisWorkbook.Path & "\" & f)For i = 1 To Sheets.Countsh1.Range("a" & sh1.Range("a65536").End(xlUp).Row + 1) = wb.Name '导入清单sheet工作簿名称sh1.Range("b" & sh1.Range("b65536").End(xlUp).Row + 1) = Sheets(i).Name '导入清单sheet中工作表名称NextWorksheets.Copy Before:=Workbooks(ThisWorkbook.Name).Sheets(1)wb.Close TrueEnd Iff = DirLoopsh1.SelectApplication.ScreenUpdating = TrueMsgBox "已为您成功导入" & Sheets.Count - 1 & "张工作表" '提示框内容End Sub

学习目标2

将所有工作簿中的工作表复制粘贴到同一个sheet中
学习链接3

'VBA for merge excel files,.just support for Excel 2007
'Excel 2003 need change the codes
'Author:naiveloafer
'Date:2012-04-29
Sub naiveloafer()
Dim fs, f, f1, fc, s, x, rowss, columnss
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:\Users\gui\Desktop\工作\VBA学习\数据\复制粘贴测试\") '复制对象的路径
Set fc = f.Files
x = 1For Each f1 In fcIf Right(f1.Name, 4) = "xlsx" Then
Workbooks.Open (f1.Path)
rowss = Workbooks(f1.Name).Sheets(1).Range("A65536").End(xlUp).Row
columnss = Workbooks(f1.Name).Sheets(1).Columns.CountWorkbooks(f1.Name).Sheets(1).Range("A1:z" & CStr(rowss)).Copy
Workbooks(1).Activate
Workbooks(1).Sheets(1).Range("A" & CStr(x) & ":z" & CStr(x + rowss)).Select
Workbooks(1).Sheets(1).Paste
Application.CutCopyMode = Falsex = x + rowss
Workbooks(f1.Name).Close savechanges:=False
End IfNextEnd Sub

VBA学习之复制粘贴表相关推荐

陈表达VBA学习笔记-新建工作表鼠标右键菜单按钮
陈表达VBA学习笔记-新建工作表鼠标右键菜单按钮:新建一个我的菜单按钮设置对应的宏过程名称为 [我的菜单宏] 点击按钮弹窗信息,信息可自定义设置详细代码如下: Sub 新建右键菜单()Dim 菜单 ...
如何解决青年大学习的复制粘贴问题？？？
// 导入库 import pandas as pd import os import shutil path = 'D:\qq下载\智能1801信息简表 (1).xlsx' # 这里存放自己的班级信 ...
Postman 复制粘贴表单参数
当项目同时有GET.POST和PUT等请求,但参数差不多,怎样快速复制参数到新接口呢? 方法一 1.原始数据 2.点击Bulk Edit,编辑窗口变成了Key-Value Edit 此窗口参数是以键 ...
复制粘贴技巧，全选快捷键ctrl加什么？
电脑上的快捷键有很多,你们知道其中的多少呢?复制粘贴还是只会鼠标右键点击复制粘贴吗?使用快捷键比使用鼠标进行复制粘贴方便很多,全选快捷键ctrl加什么?小编给大家带来快捷键教程!速速来学! 方法一:复 ...
VBA小程序_遍历所有工作表_复制粘贴为数值
Sub VBA小程序_遍历所有工作表_复制粘贴为数值()Dim sht As WorksheetFor Each sht In Worksheetssht.Activatesht.Cells.Copy ...
vba移动文件_VBA学习笔记8:工作表操作
学习资源:<Excel VBA从入门到进阶>第10集 by蓝色幻想一.Excel工作表的分类 Excel工作表有两大类,一类是我们平常用的工作表(worksheet),另一类是图表.宏表 ...
Excel表格中如何快速跨表复制粘贴，将表1数据一键复制到表2、表3、表4
Excel表格中如何快速跨表复制粘贴,将表1数据一键复制到表2.表3.表4 目录 Excel表格中如何快速跨表复制粘贴,将表1数据一键复制到表2.表3.表4 1.按住Shift键选中工作表2.表3.表 ...
oa导入表格html,点晴OA工作流表单模板创建注意事项（Word、Excel复制粘贴变形如何解决）...
点晴OA工作流表单模板创建注意事项(Word.Excel复制粘贴变形如何解决) 很多用户反映点晴OA系统中工作流表单创建时对于表格的控制十分的麻烦,希望能够做出漂亮的效果,但往往事违人愿.下面将工作 ...
eltable刷新整个表格方法_多个子表内容合并到总表，不用每次复制粘贴，全自动刷新...
在我们工作中,经常会有多个表格分别录入数据,然后需要汇总到一块的情况举一个例子,下面是模拟的数据,公司不同类目的3张销售表,分别是水果,3C,电器类目下的表格我们需要汇总得到的结果是: 如果只是处 ...