下面代码的作用是合并同一工作簿中的所有其他工作表,并将其他表的所有数据追加到第一个工作表的后面,形成一个完整且唯一的表数据。
代码如下,后面会附上代码说明:
将我的帐户设为整数
k=工作表(1)。使用范围。行数。计数1
对于我的表=2至工作表。数数
对于i=5到工作表(我的表)。使用范围。行数。计数
对于j=1到工作表(我的表)
工作表(1)。单元格(k,j)。值=工作表(我的表格)。细胞(I,j)。价值
下一个j
k=k 1
接下来我
下一个我的表
哦,注意在上面的代码中,第一个表的后面只添加了其他表的第五行到最后一行的数据数组,第一行到第四行是标题,没有添加额外的数据。I=5表示从第五行开始的数组加法。
代码解释
K=工作表(1)。获取第一张工作表最后一行的行号,然后加1。
对于我的表=2至工作表。从第二个工作表到最后一个工作表的循环计数。目的是通过循环将其他表添加到第一个表中。
I=5到工作表(mytable)。usedrange.rows.count每个工作表仅从有效数据的第五行到最后一行添加到表1中。
J=1到工作表(mytable)。usedrange.columns.count从每个工作表的第一列循环到有效列数据的最大列数。
工作表(1)。单元格(k,j)。value=工作表(mytable)。细胞(I,j)。value将其他表的有效数据单元格的值分配给第一个工作表的相应单元格。