根据标点符号拆分数据

crudeoil123

大神，我想根据标点符号拆分数据，填充到每行数据，见附件，谢谢。

dragonthree

SPLIT就可以搞定

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.22
   
2.     With Sheet1
   
3.         r = .Cells(Rows.Count, 2).End(3).Row
   
4.         arr = .Range("a1:k" & r)
   
5.     End With
   
6.     ReDim brr(1 To 10000, 1 To 2)
   
7.     On Error Resume Next
   
8.     For i = 2 To UBound(arr)
   
9.         b = Split(arr(i, 11), ",")
   
10.         For x = 0 To UBound(b)
    
11.             m = m + 1
    
12.             brr(m, 1) = arr(i, 2)
    
13.             brr(m, 2) = b(x)
    
14.         Next
    
15.         If arr(i, 2) <> Empty And arr(i, 11) = Empty Then
    
16.             m = m + 1
    
17.             brr(m, 1) = arr(i, 2)
    
18.         End If
    
19.     Next
    
20.     With Sheet2
    
21.         .UsedRange.Offset(1).Clear
    
22.         .[a2].Resize(m, 2) = brr
    
23.         .[a2].Resize(m, 2).Borders.LineStyle = 1
    
24.     End With
    
25.     MsgBox "OK！"
    
26. End Sub
    

复制代码

ykcbf1100

附件供参考。。。

cjc209

function test(){
        var arr=maxArray_Z("Sheet2!a1:k1");
        arr=selectCols_Z(arr,["层位名称","井名"]).拆分行扩展("f2",",")
        arr.toRange_Z("Sheet1!a1")
}

crudeoil123

ykcbf1100 发表于 2024-1-22 15:54
附件供参考。。。

谢谢，帮我解决了。