一个单元格里多条数据，如何进行统计

dxvyi

因特殊原因，在一个单元格里存放了多条数据，且一一对应另一单元格里的数据。如何将他们再提取出来？

ykqrs

常规操作我不会，给你个代码

1. Sub qq()
   
2. Dim arr, r%, i%, x, y, m%, brr(), j%
   
3. r = Cells(Rows.Count, 1).End(xlUp).Row
   
4. m = 0
   
5. arr = Range("a1:b" & r)
   
6. For i = 1 To UBound(arr)
   
7. x = Split(arr(i, 1), Chr(10))
   
8. y = Split(arr(i, 2), Chr(10))
   
9. For j = 0 To UBound(x)
   
10. m = m + 1
    
11. ReDim Preserve brr(1 To 2, 1 To m)
    
12. brr(1, m) = x(j): brr(2, m) = y(j)
    
13. Next
    
14. Next
    
15. Columns("e:f").ClearContents
    
16. Range("e1").Resize(m, 2) = Application.Transpose(brr)
    
17. End Sub
    

复制代码

ykqrs

工作簿12.rar (14.43 KB, 下载次数: 6)

2019-1-4 15:04 上传

点击文件名下载附件

点击按钮

dxvyi

谢谢，但最好能用公式解决

jivy1212

=TRIM(MID(SUBSTITUTE(A$2,CHAR(10),REPT(" ",50)),ROW(A1)*50-49,50)) 右拉下拉  如果都是对齐顺序的，那么就是分列B2而已。

我走我流

=CHOOSE(ROW(A1),REPLACE(B$2,FIND(CHAR(10),B$2),99,""),REPLACE(B$2,1,FIND(CHAR(10),B$2),""))
   ？这样

dxvyi

谢谢。张三、李四作为已知的条件不需要再提取，直接用E2、E3表示就行

dxvyi

还有大神吗？

moon2778

这个问题最简单的方法是，先复制到word，然后再复制回Excel就可以了。：）屡试不爽