将满足条件的excel数据分别复制到其他多个工作表中
发布时间:2022-10-07 04:03:05
以前也经常遇到类似问题,并且其解决技巧很有效率,因此在这里和大家分享。
如下所示的工作表,在主工作表MASTER中存放着从数据库下载的全部数据。现在,要根据列E中的数据将前12列的数据分别复制到其他工作表中,其中,列E中数据开头两位数字是61的单元格所在行前12列数据复制到工作表61中,开头数字是62的单元格所在行前12列数据复制到工作表62中,同样,开头数字是63的复制到工作表63中,开头数字是64或65的复制到工作表64_65中,开头数字是68的复制到工作表68中。
用来完成上述工作的VBA代码如下:
Sub MasterDataToSheets()
Dim x
Dim i As Long
Dim ii As Long
Dim i61 As Integer
Dim i62 As Integer
Dim i63 As Integer
Dim i6465 As Integer
Dim i68 As Integer
‘选择前12列数据并赋给数组
x = Sheet1.Cells(1).CurrentRegion.Resize(,12)
‘重新定义数组大小
ReDim Data61(1 To UBound(x, 1), 1 To 12)
ReDim Data62(1 To UBound(x, 1), 1 To 12)
ReDim Data63(1 To UBound(x, 1), 1 To 12)
ReDim Data6465(1 To UBound(x, 1), 1 To 12)
ReDim Data68(1 To UBound(x, 1), 1 To 12)
‘遍历数据并将第5列符合条件的数据存储到相应的数组中
For i = 2 To UBound(x, 1)
Select Case Left(x(i, 5), 2)
Case 61
i61 = i61 + 1
For ii = 1 To 12
Data61(i61, ii) = x(i, ii)
Next
Case 62
i62 = i62 + 1
For ii = 1 To 12
Data62(i62, ii) = x(i, ii)
Next
Case 63
i63 = i63 + 1
For ii = 1 To 12
Data63(i63, ii) = x(i, ii)
Next
Case 64, 65
i6465 = i6465 + 1
For ii = 1 To 12
Data6465(i6465, ii) = x(i,ii)
Next
Case 68
i68 = i68 + 1
For ii = 1 To 12
Data68(i68, ii) = x(i, ii)
Next
End Select
Next
‘关闭屏幕更新
Application.ScreenUpdating = False
‘更新工作表61中的数据
WithSheets(“61”).Cells(1).CurrentRegion
‘清除原有内容,标题行除外
.Offset(1).Resize(.Rows.Count,12).ClearContents
‘从单元格A2开始输入数据
.Parent.[A2].Resize(UBound(Data61, 1),12) = Data61
End With
‘更新工作表62中的数据
WithSheets(“62”).Cells(1).CurrentRegion
.Offset(1).Resize(.Rows.Count, 12).ClearContents
.Parent.[A2].Resize(UBound(Data62, 1),12) = Data62
End With
‘更新工作表63中的数据
WithSheets(“63”).Cells(1).CurrentRegion
.Offset(1).Resize(.Rows.Count,12).ClearContents
.Parent.[A2].Resize(UBound(Data63, 1), 12)= Data63
End With
‘更新工作表64、65中的数据
WithSheets(“64_65”).Cells(1).CurrentRegion
.Offset(1).Resize(.Rows.Count,12).ClearContents
.Parent.[A2].Resize(UBound(Data6465,1), 12) = Data6465
End With
‘更新工作表68中的数据
WithSheets(“68”).Cells(1).CurrentRegion
.Offset(1).Resize(.Rows.Count,12).ClearContents
.Parent.[A2].Resize(UBound(Data68, 1),12) = Data68
End With
‘开启屏幕更新
Application.ScreenUpdating = True
‘提示用户更新数据已完成
MsgBox “所有工作表都已更新!”, 64, “已完成”
End Sub
运行代码后,工作表61中的数据如下所示。
代码并不难,很实用!在代码中,我已经给出了一些注释,有助于对代码的理解。个人觉得,这段代码的优点在于:
将数据存储在数组中,并从数组中取出相应的数据。
将数组数据直接输入到工作表单元格,提高了代码的简洁性和效率。
将代码适当修改,可以方便地实现类似的需求。
猜你喜欢
- 首先,将网上下载下来的资料直接粘贴到记事本,再从记事本复制/粘贴到 Word 文档。这个过程能够自动删除一些空白行,而且还能将文档中的换行符
- 我们知道,在默认的设置里,word办公软件的页码顺序,是从第一页开始的。不过,对于一些从事图书排版的朋友,可能会遇到word中页码不从第一页
- 使用Excel编辑工作表时,如果希望文本在单元格内以多行显示,可以有几种方法。一、设置单元格格式选择所需的单元格区域,在“开始”选项卡上的“
- word是经常用到的办公软件,但是很多人经常忘记自动生成目录的操作流程,这虽然很简单,可是真急要的时候,那才真心觉得焦急如焚啊!现在本人就给
- 很多等不及的用户已经把电脑更新到win10 20h2了吧,在使用电脑的过程中有事离开电脑后,电脑就进入待机状态,需要输入密码才能再次唤醒,有
- 在Excel中,我们会往工作表中输入数字、日期、文本,有时还会粘贴上图片,这些输入的内容都是数据。我们在Excel中制作了一个学生入学成绩信
- Shift键在Excel里有这样的妙处:在按下Shift键的同时点击“编辑”菜单,原来的复制和粘贴选项就会变成“复制图片”和“粘贴图片”。利
- win10系统休眠一段时间后会自动关闭硬盘,但有朋友说休眠后硬盘无法唤醒,导致电脑无法正常使用。如何解决这个问题?来看看详细的教程。win1
- word软件是用户用来编辑文档的一款办公软件,是用户的必备办公软件,用户在使用时可以在文档页面上插入表格来同统计数据,用户还可以使用软件中的
- excel打印表格的步骤桌面单击右键,新建excel工作表 打开excel表格,左键选择一定的区域
- Word如何拆分表格单元格中的内容?如图一个单元格存放多条内容,怎么样逐条放置到单元格中?1、选中内容右键复制,接着在空白位置,右键粘贴为文
- excel实现镜面反转工具 选项 国际 勾选 从右向左查看当前工作表 确定或在G1中输入或复制粘贴下列公式1=IF(COLUMN(A1)&l
- 页面背景是指显示于Word文档最底层的颜色或图案,用于丰富Word文档的页面显示效果,那么word怎么给文档设置页面背景色?下面小编就为大家
- Acrobat怎旋转转指pdf文件指定页面??Acrobat中打开的pdf文件其中某个页面需要旋转方向,该怎么旋转页面呢?下面我们就来看看A
- Win10电脑读不出U盘怎么办?许多用户在使用电脑的时候经常会将一些重要文件拷到自己的U盘中,这样方便携带而且也比较方便。可是最近有不少小伙
- 日常的工作和学习中,想必大家经常会使用Word来编辑文件,把文件编辑好后,发送给他人的时候,一般都会先将其转换成PDF格式在进行发送,因为这
- 许多用户在使用电脑的时候都会查看一些电脑的特殊设置,甚至会针对自己的使用需求修改UEFI电脑的配置。但是不少小伙伴最近在使用电脑的时候却找不
- 在Word2003文档窗口中查看Word文档时,用户可以按照某种比例放大或者缩小显示比例。放大显示比例时,用户可以看到比较清楚的Word文档
- 如何开启win10系统远程桌面协功能?自打win10系统首个年度更新(Build 10.1.14393)以来包含了一个非常有用的工具—微软快
- excel表格怎么设置只能输入男或是女?excel表格中只想让填写表格的人输入男女,其他的数据没办法输入,该怎么设置呢?我们需要设置数据的有