求大神帮忙看看有没有函数能达到这样的效果。非常感谢！！

q504204673

把 Sheet1 里面的数据 改变成 Sheet2 这样的格式。

jiangxiaoyun

这个还是VBA好处理

jiangxiaoyun

1. Sub fff()
   
2.     Dim arr
   
3.     arr = Sheet1.[a1].CurrentRegion
   
4.     Dim brr(1 To 55555, 1 To 6)
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     For i = 2 To UBound(arr)
   
7.         s = Split(arr(i, 4), " ")
   
8.         For x = 0 To UBound(s)
   
9.             k = k + 1
   
10.             brr(k, 1) = arr(i, 1)
    
11.             brr(k, 2) = arr(i, 2)
    
12.             brr(k, 3) = arr(i, 3)
    
13.             brr(k, 4) = Split(s(x), "*")(0)
    
14.             brr(k, 5) = Split(s(x), "*")(1)
    
15.             If Not d.exists(arr(i, 1) & "") Then
    
16.                 d(arr(i, 1) & "") = ""
    
17.                 brr(k, 6) = arr(i, 5)
    
18.             Else
    
19.                 brr(k, 6) = 0
    
20.             End If
    
21.         Next
    
22.     Next
    
23.     With Sheet2
    
24.         .UsedRange.Offset(1, 0).ClearContents
    
25.         .[a2].Resize(k, 6) = brr
    
26.     End With
    
27. End Sub

复制代码

q504204673

jiangxiaoyun 发表于 2020-6-5 21:19

复制了 怎么操作呢？如果数据增加我在那里修改参数呢？ 谢谢

q504204673

或者用函数操作一下，不一定一步就要达到这样的效果。先弄一下，后面再手动操作也行。