如何将数据工作表中的数据移至不同的工作表?

网友投稿 490 2022-10-17

如何将数据工作表中的数据移至不同的工作表?

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中,我们将各个超市分别放在一起。在实际导入数据时,如果相同名称的数据不在一起也没有关系。当然,你可以使用排序功能将它们放置在一起。

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:wps2019怎么删除回车符号?wps2019删除文档中的回车符号教程
下一篇:管理系统排行
相关文章