如何拆分工作表

ykcbf1100

附件供参考。。。

xun_1221

ykcbf1100 发表于 2024-1-10 19:11
附件供参考。。。

好像有点问题哦，提取的都是第一个序号的数据哦，大神帮忙看下

xun_1221

limonet 发表于 2024-1-10 13:34
Sub limonet()
    Application.ScreenUpdating = False
    Dim Cn As Object, StrSQL$, Arr As Variant ...

运行时错误9：下标越界。

xun_1221

沈默00 发表于 2024-1-10 11:25
试一下.....

大神，能单独每个一张表吗？而不是一个工作薄里头的子表。

ykcbf1100

xun_1221 发表于 2024-1-15 15:21
好像有点问题哦，提取的都是第一个序号的数据哦，大神帮忙看下

不好意思，忘了把数据写入工作表了，已改。

熊文来

真的很好哦。这么多优秀的回复。

熊文来

ykcbf1100 发表于 2024-1-15 16:29
不好意思，忘了把数据写入工作表了，已改。

必须留个脚印。

熊文来

ykcbf1100 发表于 2024-1-15 16:29
不好意思，忘了把数据写入工作表了，已改。

If Not d.exists(s) Then Set d(s) = CreateObject("Scripting.Dictionary")
d(s)(i) = i

你的代码里这个地方 我不懂。

可以在代码前先定义 dim ds= CreateObject("Scripting.Dictionary")

改成下面的代码 行吗？
If Not d.exists(s) Then   ds(i) = i

ykcbf1100

熊文来 发表于 2024-1-16 17:19
If Not d.exists(s) Then Set d(s) = CreateObject("Scripting.Dictionary")
d(s)(i) = i

这是字典嵌套，字典第一层提取去重编码，字典第2层，提取这个编码下的行号，这是用来提取数据用的。