如何将表Sheet1中的数弄成Sheet2的数

asdfjmh

如何将表Sheet1中的数弄成Sheet2的数，表Sheet1中的数有几百条上千条

asdfjmh

如何将表Sheet1中的数弄成Sheet2的数，表Sheet1中的数有几百条上千条

咔咔乱坠

B1下拉
数组公式，需ctrl+shift+回车键入

1. =TRANSPOSE(OFFSET(A1,,,@-INDEX(FREQUENCY(ROW(1:13),IF(LEFT(A$1:A$13,2)="答案",ROW(1:13),)),ROW(A1))))

复制代码

咔咔乱坠

1. 错误答案
   

复制代码

gwjkkkkk

asdfjmh 发表于 2023-6-1 17:24
如何将表Sheet1中的数弄成Sheet2的数，表Sheet1中的数有几百条上千条

https://club.excelhome.net/threa ... tml?_dsign=a32c2e23

全党

asdfjmh 发表于 2023-6-1 17:24
如何将表Sheet1中的数弄成Sheet2的数，表Sheet1中的数有几百条上千条

试试。。。。。。。。。。。。。。。。。

全党

asdfjmh 发表于 2023-6-1 17:24
如何将表Sheet1中的数弄成Sheet2的数，表Sheet1中的数有几百条上千条

用字典再写一个。。。。。。。。。。。。。。。。。。

1. Sub shishi()
   
2. Dim brr(1 To 10000, 1 To 10)
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. With Sheets("Sheet1")
   
5. rn = .Cells(Rows.Count, 1).End(xlUp).Row
   
6. arr = .Range("a1:a" & rn)
   
7. End With
   
8. For i = 1 To rn
   
9. If InStr(arr(i, 1), "答案") Then
   
10. dic(i) = i
    
11. End If
    
12. Next
    
13. ls = 1
    
14. For Each Key In dic.keys
    
15.     n = n + 1
    
16.     For j = ls To Val(Key) - 1
    
17.         s = s + 1
    
18.          brr(n, s) = arr(j, 1)
    
19.     Next
    
20.     brr(n, 7) = arr(Val(Key), 1)
    
21.     ls = Val(Key) + 1: s = 0
    
22. Next
    
23. Sheets("sheet2").Range("a2").Resize(n, 10) = brr
    
24. End Sub

复制代码