我想複製數據集中的行,具體取決於原始數據集中主題所具有的行數。 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