如何在提取单元格内多个内容到各个项？

圣玉强

  


如何提取A2单元格内数据，到相应B、C列？（图片内的内容是手动复制，能用公式或VBS代码处理吗？）

dengjq2000

把最后一个“对象友好名称”删除后，可用公式：

1. =TRIM(MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE($A$2,CHAR(10),","),"：",","),",",REPT(" ",999)),999*(2*COLUMN(A1)+4*(ROW(A1)-1))-998,999))

复制代码

往右往下拉。

dengjq2000

mikezhan 发表于 2018-1-30 14:22
老大，厉害

特别是这个 数列通项公式的构造：999*(2*COLUMN(A1)+4*(ROW(A1)-1))-998

就是看他文本的特征呀，正好是2倍数（当然最后一个“对象友好名称”打乱了，所以要求删除）

然后 999就是考虑的文本字长比较长，所以加大了。这公式：=TRIM(MID(SUBSTITUTE($A2,"+",REPT(" ",99)),99*COLUMN(A:A)-98,99)) 属称分列的万能公式。

自己论坛搜索一下它的功效。

圣玉强

dengjq2000 发表于 2018-1-30 13:17
把最后一个“对象友好名称”删除后，可用公式：

谢谢dalao的帮助，本人学习了，感谢解决问题！

圣玉强

mikezhan 发表于 2018-1-30 13:53
对象友好名称=sozlwb(A2,"(英特尔|AMD).+(?=,)")
主名称=sozlwb(A2,"(英特尔|AMD)([一-龥]+|\w+)(?=\n|$)" ...

感谢解答，本人学习了

圣玉强

dengjq2000 发表于 2018-1-30 13:17
把最后一个“对象友好名称”删除后，可用公式：

大神，请问下，如果这样，又要怎样实现呢？？

dengjq2000

可以通过VBA语句来实现。

1. Sub 拆分()
   
2.     Dim i As Long, n As Long, j As Long, m As Long, Arr, d, k
   
3.     Ro = Range("A1").CurrentRegion.Rows.Count
   
4.     For i = 2 To Ro
   
5.         n = n + 1
   
6.         If n = 1 Then
   
7.             d = Cells(i, 1)
   
8.         Else
   
9.             d = d & Chr(10) & Cells(i, 1)
   
10.         End If
    
11.     Next
    
12.     Arr = Split(Replace(Replace(d, "<br/>【汇总信息】:", ""), "：", ","), Chr(10))
    
13.     For j = 0 To UBound(Arr)
    
14.          Cells(2 + m, 4).Resize(1, 4) = Split(Arr(j), ",")
    
15.          m = m + 1
    
16.      Next
    
17.      Range("G2:G65536").Select
    
18.      Selection.Copy
    
19.      Range("F2").Select
    
20.      ActiveSheet.Paste
    
21.      Range("D2:D65536").ClearContents
    
22.      Range("G2:G65536").ClearContents
    
23. End Sub

复制代码