求助~excel转化多行

chl0924

这种事情交给Power Query吧

niko88819

1. =niko(A1:A4,B1:B4,"/")

复制代码

1. Function niko(ids As Range, texts As Range, delimiter As String) As Variant
   
2.     Dim dict As Object
   
3.     Set dict = CreateObject("Scripting.Dictionary")
   
4.     Dim i As Integer, parts As Variant, j As Integer
   
5.     Dim output() As Variant
   
6.     Dim index As Integer: index = 0
   
7.     For i = 1 To ids.Count
   
8.         parts = Split(texts.Cells(i, 1).Value, delimiter)
   
9.         index = index + UBound(parts) + 1
   
10.     Next i
    
11.     ReDim output(1 To index, 1 To 2)
    
12.     index = 1
    
13.     For i = 1 To ids.Count
    
14.         parts = Split(texts.Cells(i, 1).Value, delimiter)
    
15.         For j = LBound(parts) To UBound(parts)
    
16.             output(index, 1) = ids.Cells(i, 1).Value
    
17.             output(index, 2) = Trim(parts(j))
    
18.             index = index + 1
    
19.         Next j
    
20.     Next i
    
21.     niko = output
    
22. End Function

复制代码

沈默00

wyslw2004 发表于 2025-4-2 19:43
厉害。居然还有附件

没附件就这样写，，数据自然不是一行的，实际肯定还在外面套个REDUCE的，