用公式将一列拆成三列

lgjszxpy

各位老大，我想用公式将一个单元格内容拆成三列内容，请老大指点一下啊

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("sheet1")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     arr = .Range("a2:a" & r)
   
7.     ReDim brr(1 To UBound(arr), 1 To 3)
   
8.     For i = 1 To UBound(arr)
   
9.       arr(i, 1) = Replace(arr(i, 1), "（", "）")
   
10.       crr = Split(arr(i, 1), "）")
    
11.       For j = 0 To UBound(crr)
    
12.         brr(i, j + 1) = crr(j)
    
13.       Next
    
14.     Next
    
15.     .Range("b2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
16.   End With
    
17. End Sub
    
18. 
    

复制代码

chxw68

详见附件。

lgjszxpy

非常感谢chxw68，有一个小问题是，如果括号为半角的就识别不出来，比如20#(CSP)中高碳钢就分不成三个，而20#（CSP）中高碳钢就可以

lgjszxpy

另外能否用函数公式，不用宏，因为我看不懂代码

abccba_ln

将左括号和右括号替换成其他不能出现的字符如"|"，然后在数据->分列中按替换完的字符分列就可以了

lgjszxpy

=TRIM(MID(SUBSTITUTE(SUBSTITUTE($A2,"(",")"),")",REPT(" ",99)),COLUMN(A1)*99-98,99))

lgjszxpy

mikezhan 发表于 2018-2-4 20:42
这种能明显区分的字符串可以不用VBA，用这个吧。

谢谢，满足