根据一单元格中N个数据分解成N行

guanlearn

恳请大神：
原始数据为三列：

高        Oracle Fusion Middleware Oracle Web Services组件远程安全漏洞(CVE-2016-3551)        10.221.154.137 10.221.154.139 10.221.154.140 10.221.154.165
高        方程式组织后门DOUBLEPULSAR程序(SMB)【原理扫描】        10.11.126.120 10.11.126.121 10.11.126.122 10.11.126.37

希望的效果为三列：
高        Oracle Fusion Middleware Oracle Web Services组件远程安全漏洞(CVE-2016-3551)        10.221.154.137   
高        Oracle Fusion Middleware Oracle Web Services组件远程安全漏洞(CVE-2016-3551)        10.221.154.139
高        Oracle Fusion Middleware Oracle Web Services组件远程安全漏洞(CVE-2016-3551)        10.221.154.140
高        Oracle Fusion Middleware Oracle Web Services组件远程安全漏洞(CVE-2016-3551)        10.221.154.165
高        方程式组织后门DOUBLEPULSAR程序(SMB)【原理扫描】        10.11.126.120   
高        方程式组织后门DOUBLEPULSAR程序(SMB)【原理扫描】        10.11.126.121
高        方程式组织后门DOUBLEPULSAR程序(SMB)【原理扫描】        10.11.126.122
高        方程式组织后门DOUBLEPULSAR程序(SMB)【原理扫描】        10.11.126.37
高        Microsoft Windows HTTP.sys远程代码执行漏洞 (MS15-034)(CVE-2015-1635)【原理扫描】        10.221.188.59
高        PHP多个内存破坏漏洞（CVE-2015-4601）        10.221.188.98
高        Oracle Database Server远程安全漏洞(CVE-2015-4863)        10.11.126.194
高        Oracle Database Server远程安全漏洞(CVE-2015-4863)        10.11.126.198
高        Oracle Database Server远程安全漏洞(CVE-2015-4863)        10.11.126.199
高        Oracle Database Server远程安全漏洞(CVE-2015-4863)        10.11.126.49
高        Oracle Database Server远程安全漏洞(CVE-2015-4863)        10.11.126.53
高        Oracle Database Server远程安全漏洞(CVE-2015-4863)        10.221.154.117
高        Oracle Database Server远程安全漏洞(CVE-2015-4863)        10.221.154.118


详见附件-例子.rar

LSL1128xgw

公式能做 不过就是卡 你这个求助vba版本 速度快多了

micch

数据有点多，公式会很慢，要不给你举几行例子，自己弄吧

micch

例子.rar (48.57 KB, 下载次数: 4)

2018-5-17 10:56 上传

点击文件名下载附件

.....................真叫卡

mmlzh

在效果表的第三行填入公式
数组公式A3=IF(LEN(OFFSET(漏洞信息!$C$1,TEXT(COUNT(0/(A$1:A1<>A$2:A2)),"0;;1")-1,))-LEN(SUBSTITUTE(OFFSET(漏洞信息!$C$1,TEXT(COUNT(0/(A$1:A1<>A$2:A2)),"0;;1")-1,)," ",))>=COUNTIF(A$1:A2,OFFSET(漏洞信息!$B$1,TEXT(COUNT(0/(A$1:A1<>A$2:A2)),"0;;1")-1,)),OFFSET(漏洞信息!A$1,TEXT(COUNT(0/(A$1:A1<>A$2:A2)),"0;;1")-1,),OFFSET(漏洞信息!A$1,TEXT(COUNT(0/(A$1:A1<>A$2:A2)),"0;;1"),))
右拉，下拉

mmlzh

C3=TRIM(RIGHT(SUBSTITUTE(LEFT(LOOKUP(1,0/(漏洞信息!B$1:B$720=B3),漏洞信息!C$1:C$720),FIND("@",SUBSTITUTE(LOOKUP(1,0/(漏洞信息!B$1:B$720=B3),漏洞信息!C$1:C$720)&" "," ","@",COUNTIF(B$1:B3,B3)))-1)," ",REPT(" ",99)),99))
下拉
跟模拟的结果是对得上号的，更多数据自行检查

mmlzh

还有数据里B/C列有重复的，“Oracle 2010年10月更新修复多个Oracle Database安全漏洞”重复了三次，如果对应的C列值不一样则会影响C列的结果

mmlzh

结果拉到一千行都要十几秒了，这一万多行，呵呵呵呵，还是VBA比较合适

guanlearn

谢谢mmlzh，所以恳请VBA解决！

准提部林

Sub Test()
Dim Arr, Brr, N&, i&, Ur
Arr = Range([C1], Cells(Rows.Count, 1).End(xlUp))
ReDim Brr(1 To 50000, 1 To 3)
For i = 1 To UBound(Arr)
　　For Each Ur In Split(Arr(i, 3), " ")
　　　　N = N + 1
　　　　Brr(N, 1) = Arr(i, 1): Brr(N, 2) = Arr(i, 2): Brr(N, 3) = Ur
　　Next
Next i
Sheets(2).[A:C].ClearContents
If N > 0 Then Sheets(2).[A1:C1].Resize(N) = Brr
End Sub