我想复制数据集中的行,具体取决于原始数据集中主题所具有的行数。 id x1 x2 x3 count
1 a b c 1
1 b c f 2
2 g h a 1
2 a d c 2
2 f g a 3
3 a g a 1
我已创建此计数变量来检测每个主题所具有的行数。 (不要介意x1 - x3的值,它们只是为了说明)。我在实际数据集中的主题也比这三个更多。 数据集,我想要的应该是这样
我已经试过这段代码,但它不能正常工作,请亲切地帮助我解决这个问题。 Sub Shell_Copy_Paste()
Dim o As Variant
Dim wkSheet As Worksheet
Set wkSheet = ActiveSheet
o = Shell("C:\Program Files (x86)\Adobe\Acrobat Read