如何将数据从一个数据工作表移动到另一个工作表？

问：我将数据导入并存储在主工作表中，并希望将这些数据分别传输到不同的工作表中。如所示，每个超市的销售数据都存储在工作表数据中。现在我想把这些数据移动到与超市同名的工作表中，也就是“东方超市”中的所有数据都会移动到工作表“东方超市”中，“北方超市”和“西方超市”也是如此。如何用VBA码一次传输数据？

答：可以用下面的代码来实现。有关大多数代码的功能，请参见代码中的注释。

SubCopyDataToWorksheet()

声明表示保存数据工作表的变量。

将字符串形式的字符串变暗

声明一个表示要接收数据的工作表的变量。

将目标工作表设为字符串

声明一个表示工作表最后一行的变量。

昏暗的灯光和长长的一样

存储数据的工作表的名称。

strSourceSheet=“数据”

选择数据表。

工作表(strSourceSheet)。可见=真

工作表(strSourceSheet)。挑选

选择与接收数据的工作表同名的单元格。

范围(“B2”)。挑选

所选单元格不为空，然后继续循环。

活动单元格时执行。值""

当前单元格值被分配给工作表名称变量。

strDestinationSheet=ActiveCell。价值

选择当前单元格所在的数据行。

ActiveCell。偏移量(，-1)。调整大小(1，活动单元格。当前区域.列.计数)。挑选

复制数据行。

选择。复制

选择要接收数据的工作表。

工作表(标准工作表)。可见=真

工作表(标准工作表)。挑选

获取当前工作表的最后一行。

lngLastRow=lastrowinecolumn(" A ")

选择工作表最后一行后的空单元格。

细胞(lngLastRow 1，1)。挑选

粘贴数据。

选择。粘贴特殊xlPasteValues

删除复制的单元格框外的虚线。

申请。剪切复制模式=假

选择数据工作表作为当前工作表。

工作表(strSourceSheet)。挑选

将当前单元格移动到与接收数据的工作表同名的下一个单元格。

ActiveCell。偏移量(1，1)。挑选

环

末端接头

获取工作表中最后一行的行号。

公共函数lastrowinecolumn(col)

暗淡最后一行一样长

有活性纸

lastRow=。单元格(. Rows.Count，col)。结束(xlUp)。排

以…结尾

最后一行

结束功能

注意：在示例工作表数据中，我们将每个超市分别放在一起。实际导入数据时，同名数据不在一起也没关系。当然，您可以使用排序功能将它们放在一起。