如何将数据工作表中的数据移至不同的工作表?
发布时间:2023-02-09 12:24:00
Q:我在一个主工作表中导入并存放数据,想要将这些数据分别转移到不同的工作表中,如所示,在工作表Data中存放着各超市的销售数据,现在要将这些数据分别移至具有与超市名称同名的工作表中,即“东区超市”中的数据全部移至工作表“东区超市”中,对于“北区超市”和“西区超市”也是如此。如何使用VBA代码实现一次转移数据?
A:可以使用下面的代码实现,大多数代码的功能见代码中的注释。
SubCopyDataToWorksheet()
‘声明代表存放数据工作表的变量
Dim strSourceSheet As String
‘声明代表要接收数据的工作表的变量
Dim strDestinationSheet As String
‘声明代表工作表最后一行的变量
Dim lngLastRow As Long
‘存放数据的工作表名
strSourceSheet = “Data”
‘选取数据工作表
Sheets(strSourceSheet).Visible = True
Sheets(strSourceSheet).Select
‘选取与接收数据的工作表同名的单元格
Range(“B2″).Select
‘选取的单元格不为空,则继续循环
Do While ActiveCell.Value <>””
‘当前单元格值赋给工作表名变量
strDestinationSheet = ActiveCell.Value
‘选取当前单元格所在的数据行
ActiveCell.Offset( , -1).Resize(1,ActiveCell.CurrentRegion.Columns.Count).Select
‘复制数据行
Selection.Copy
‘选取接收数据的工作表
Sheets(strDestinationSheet).Visible =True
Sheets(strDestinationSheet).Select
‘获取当前工作表最后一行
lngLastRow =LastRowInOneColumn(“A”)
‘选取工作表最后一行之后的空单元格
Cells(lngLastRow + 1, 1).Select
‘粘贴数据
Selection.PasteSpecial xlPasteValues
‘去除复制后单元格框外的虚线
Application.CutCopyMode = False
‘选取数据工作表成为当前工作表
Sheets(strSourceSheet).Select
‘将当前单元格移至下一个与接收数据的工作表同名的单元格
ActiveCell.Offset(1, 1).Select
Loop
End Sub
‘获取工作表中最后一行行号
Public FunctionLastRowInOneColumn(col)
Dim lastRow As Long
With ActiveSheet
lastRow = .Cells(.Rows.Count,col).End(xlUp).Row
End With
LastRowInOneColumn = lastRow
End Function
说明:在示例工作表Data中,我们将各个超市分别放在一起。在实际导入数据时,如果相同名称的数据不在一起也没有关系。当然,你可以使用排序功能将它们放置在一起。
猜你喜欢
- 对于不懂得代码的人,你给他看无疑就是在折磨他。win10邮件显示出来网页html源码,而不是我们要看的邮件内容。这可如何是好,总不能让每个用
- Win10电脑怎么关闭PIN码?许多用户在使用Win10电脑的时候,都会设置一个电脑开机密码,而为了方便有时候会设置PIN码登录,可是许多用
- 有很多用户遇到win10不能打开设置,右键个性化,文件没有相关程序执行操作,请安装程序,或者,如果安装程序,请在默认程序控制面板上创建关闭,
- 第一步:将你的word定位到最后一个页码的底部 ,双击“页码”处,进入页脚编辑区;第二步:双击 上图“22“字样,修改为”21“(根据实际需
- 在Word操作中,有很多问题是经常出现,却一直没找到便捷解决办法的?行距、超链接、大小写……这些最基础的操作,你还在犯错吗?今天就来讲讲,5
- 在Word2010文档中嵌入数据时,如果用户不需要将整个文件插入到Word文档中,,而仅需要嵌入原文件中的部分数据,则可以借助“选择性粘贴”
- 现在是讲效率的年代,我们怎样才能够在Word中“快”起来呢?下面是小编觉得word中最实用10个应用技巧。1.快速定位到上次编辑位置打开Wo
- 1、首先打开需要修订的word文档,然后在菜单栏中选择审阅,再点击修订打开word修订模式。2、word修订模式打开之后就可以在文档中进行修
- 1、打开word 2003这款软件,进入word 2003的操作界面,如图所示: 2、在该界面内找到插入选项,如图
- 1.巧分窗口在offcie Excel中妙用双击,你会发现,在Excel垂直滚动条上方与带黑三角形按钮相邻的地方,有一个折叠起来的按钮,双击
- Win10系统是现在很多用户都在使用的电脑操作系统,最近有用户反应自己访问共享文件夹的时候却被提示没有权限访问,请与网络管理员联系请求访问权
- 步骤一、首先,打开Excel表格,然后鼠标左键单击选中需创建迷你图表的单元格,切换到“插入”功能选项卡中,在“迷你图”组中,单击一种迷你图表
- Word 技巧既然这么受欢迎,今天继续来一波。01 标点符号不准出现在行首下图 1 中有两个句号出现在行的第一位,这非常不符合中国人阅读习惯
- pdf转word是很多办公人员经常做的。那么PDF文档怎么转换成Word文件?即使,PDF文档转换成word文档了但是还有各种情况出现,如:
- 有用户反映自己在使用笔记本电脑观看视频的时候,总是觉得电脑屏幕太小了,想将屏幕扩展到大屏幕上,看起来比较舒服。那win10笔记本电脑投屏如何
- Win10怎么使用自带功能清理缓存文件?我们在使用电脑的时候,经常会使用非常多的软件,日积月累就会有非常多的垃圾文件,那么我们应该怎么使用W
- excel2010提示帮助查看器遇到意外问题无法继续该怎么办?excel2010中打开帮助文档可以查看语法和函数,但是出现查看器外问题无法继
- 问题:电脑安装Win7系统后Word文档字体变了,这是怎么回事呀?解答:为了工作的需要,笔者将Win-XP升级成了Win7,却也同时产生了一
- 今天,苹果给大家推送了iOS 15.6.1正式版!在官方的更新日志里,苹果明确指出,本更新提供了重要的安全性更新,建议所有用户安装。表面上看
- 有些朋友常常需要在Word 2007文档内容中加上一条横跨整页的分隔线,不过总是找不可快速的方法来实现。通常,在Word 2007中加入横线