Excel使用vba根据一列数据复制多张工作表！

Sub所有表都是重复的()

Dim st As工作表，arr，i & amp，rlt$(1到1000000，1到1)，n & ampj & amp，是新的

阵列rlt的统计结果

对于表中的每个st

如果ST . used range . rows . count & gt；那么1

arr =圣UsedRange

对于i = 1到UBound(arr)

arr(i，1) = Trim(arr(i，1))

If arr(i，1)& lt；& gt”“那么

isnew = 1

对于j = 1到n

如果rlt(j，1) = arr(i，1 ),则

isnew = 0

为...退出

如果…就会结束

下一个j

如果是新的，则

n = n + 1

rlt(n，1) = arr(i，1)

如果…就会结束

如果…就会结束

接下来我

如果…就会结束

下一条街

结果保存在新表中。

使用工作簿。增加

与。张(1)。单元格(1，1)。调整大小(n，1)

。NumberFormat = "@ "

。值= rlt

。挑选

以…结尾

以…结尾

末端接头