Excel VBA 7.45 对所有工作表填充数据,你还在慢慢的复制粘贴

时间:2019-07-10 来源:www.socialmaniacos.com

欧美色区图片18p

展望摘要(文章末尾提供的源代码下载)

在我们的正常工作中,我们经常会遇到这种情况。报告中有多个工作表。我们需要将相同的内容添加到所有工作表的相同位置,例如,相同的标题栏,相同的结尾。这时,你会如何选择经营?键入其中一个表后,慢慢复制并粘贴到所有工作表?我相信大多数孩子的鞋都会选择这样做。今天,我教你一种用一个非常简单的代码填充所有工作表的相同内容的新方法。

代码区

实际上,除了在前一部分的代码中选择了一个函数之外,效果类似于上一节的效果。如果数据很大,选择太多操作可能会导致报告本身卡住。毕竟Excel本身的容量有限,今天我们的方法会更有效率

或者我们之前使用的成绩单的情况,假设我们想在报告的末尾添加相同的结尾,即报告的生产时间和后面的视图

9c631067bc704e4cbef8a49b6e8db238

当然,我们只是这里的工作表之一。我们有很多其他工作表。我们不太可能有时间一个一个地复制和粘贴,因为这显然不符合我们追求有效工作效率的初衷。那么有什么方法可以快速达到这个要求吗?

看看代码

Sub tesyty()

x=数组('Sheet1','Sheet2','Sheet3')

表格(x).FillAcrossSheets工作表('Sheet2')。范围('H22: I22')

结束子

瓦塔?这么短? 2句代码实现我们想要复制和粘贴到软件的功能?没错,让我们执行代码

e0a80910c072413982d0c909c080c480

第二个工作表也有相同的数据,第三个工作表是相同的。由于空间的长度,这里不再单独显示。

在两个句子中,我们实现了前后多次复制和粘贴的功能。必须要说VBA真的很强大。

代码分析

今天的代码看起来很奇怪,它似乎与我们之前使用的例程略有不同。是的,今天的代码正在读取数据,我不小心看到了它

如果你在工作中不需要它,你就不会真正得到这个代码

我们来看看代码执行过程

x=数组('Sheet1','Sheet2','Sheet3')

这里X被理解为一个集合,或一个包含3个元素的数组,代表三个工作表。

数组也可以理解为数组的另一种表示形式,效果与我们通常的arr()相同。但他是由一维数组组成的

表格(x).FillAcrossSheets工作表('Sheet1')。范围('H22: I22')

这句话是今天的关键代码,也是重点。

FillAcrossSheets,官方解释是将单元格区域复制到集合中所有其他工作表的相同位置。据了解,我们工作表中一个单元格的数据被复制到集合中其他工作表的相同位置

这里有两点需要注意

集合必须包含与复制工作表的源相同的位置。

这里解释

在集合中有一个带有数据源的工作表是什么意思?

例如,在我们的例子中,我们的数据源是sheet1数据,因此集合X必须包含sheet1

8affd8afbf0c40d09dcb8d527cb9b38d

2.与sheet1相同位置的相同位置仅复制到其他集合中所有工作表的第22行,不会复制到第21行或其他位置。

3c73d3eb17404c3fad5b7b95bf6c721b

当然,会有很少的朋友说只有三个工作表。如果我有很多工作表,那么逐一编写它们会非常麻烦。有一个简单的方法吗?

来看看代码

Sub sss()

Sheets.FillAcrossSheets工作表('Sheet1')。范围('H22: I23')

结束子

更简单,一个字

Sheets.FillAcrossSheets工作表('Sheet1')。范围('H22: I23')

表格所代表的内容已在上一节中提及。这是当前工作簿的所有工作表。理解这个更好吗?

================================================================

本课程的源代码已上传,需要小型合作伙伴后端私信“7-45-03”。我希望每个人都能支持它~~,更加注意~~

好的,明天晚上19点: 00,准时见到你!