怎么分开

戎马书生222

1. Sub abey()
   
2. Dim arr, brr
   
3. arr = Sheets("sheet1").Range("a1").CurrentRegion
   
4. ReDim brr(1 To UBound(arr) * 3, 1 To 4)
   
5. For i = 2 To UBound(arr)
   
6.     tmp = Split(arr(i, 2), "，")
   
7.     For k = 0 To UBound(tmp)
   
8.         r = r + 1
   
9.         brr(r, 1) = arr(i, 1)
   
10.         brr(r, 2) = tmp(k)
    
11.         brr(r, 3) = arr(i, 3)
    
12.         brr(r, 4) = 1
    
13.     Next
    
14. Next
    
15. Sheets("sheet1").Range("a1").CurrentRegion.Offset(1).ClearContents
    
16. Sheets("sheet1").Range("a2").Resize(r, 4) = brr
    
17. End Sub

复制代码

tiger1976

Sub lll()
    Dim arr
    arr = Range("a2:c" & Cells(Rows.Count, 1).End(xlUp).Row)
    For i = 1 To UBound(arr)
        brr = Split(arr(i, 2), "，")
        For k = 0 To UBound(brr)
            m = m + 1
            Cells(m + 33, 1) = "'" & arr(i, 1)
            Cells(m + 33, 2) = brr(k)
            Cells(m + 33, 3) = "'" & arr(i, 3)
            Cells(m + 33, 4) = 1
        Next
    Next
End Sub

demonimissyou

参与一下，数组+循环+split

usedrange

1. Sub tt()
   
2.     Dim w, i%, j%, t, d As Object, ar
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     w = Sheet1.[a1].CurrentRegion
   
5.     For i = 2 To UBound(w)
   
6.         t = Split(w(i, 2), "，")
   
7.         t2 = w(i, 1) & "-" & w(i, 3)
   
8.         For j = 0 To UBound(t)
   
9.             d(t(j) & "|" & w(i, 1)) = t2
   
10.         Next j
    
11.     Next i
    
12.     k = d.keys: v = d.items
    
13.     ReDim ar(1 To UBound(k) + 1, 1 To 4)
    
14.     For i = 0 To UBound(k)
    
15.         t = Split(v(i), "-")
    
16.         ar(i + 1, 1) = t(0)
    
17.         ar(i + 1, 2) = Split(k(i), "|")(0)
    
18.         ar(i + 1, 3) = t(1)
    
19.         ar(i + 1, 4) = 1
    
20.     Next i
    
21.     With ActiveSheet.[a36]
    
22.         .Resize(UBound(ar), 4).ClearContents
    
23.         .Resize(UBound(ar), 4) = ar
    
24.     End With
    
25.     Set d = Nothing
    
26. End Sub

复制代码

xiaomaoning

sparkwx 发表于 2025-8-1 09:27
简单写了下

大神好像格式不对

xiaomaoning

limonet 发表于 2025-8-1 09:36
shift+reduce+……

好的，感谢大神

xiaomaoning

学号96637 发表于 2025-8-1 10:21
ai直接生成

ai，你是怎么描述生成的

xiaomaoning

戎马书生222 发表于 2025-8-1 10:34

好的，感谢大神

xiaomaoning

tiger1976 发表于 2025-8-1 10:36
Sub lll()
    Dim arr
    arr = Range("a2:c" & Cells(Rows.Count, 1).End(xlUp).Row)

好的，感谢大神

xiaomaoning

demonimissyou 发表于 2025-8-1 11:38
参与一下，数组+循环+split

好的，感谢大神