一个单元格内有多行文字，如何分拆到一列的多个单元格

tpch666666

一个单元格内用alt+enter设置了多行文字，如何把它变为一列种的多个单元格，而且这样的多行单元格很多都在一列中，他的左边一列是以前记录的时间，如何在拆分后把每个单元格都对应一个以前记录的时间，而且分拆出的单元格不会覆盖下面的单元格。（时间在蓝框中还是和相应单元格对应的）

修改前			修改前
时间	事件		时间	事件
2017-4-23	11111222111132221111 222222222222222 333224455 345677		2017-4-23	11111222111132221111
2017-4-24	qqqq wwweet sdfxcvf		2017-4-23	222222222222222
2017-4-25	234567		2017-4-23	333224455
2017-4-26	12345 122345789		2017-4-23	345677
2017-4-27	ssssssssffgjjull. qqasdsd		2017-4-24	qqqq
			2017-4-24	wwweet
			2017-4-24	sdfxcvf
			2017-4-25	234567
			2017-4-26	12345
			2017-4-26	122345789
			2017-4-27	ssssssssffgjjull.
			2017-4-27	qqasdsd
			请问可以做成这种效果吗，因为自己记得相同类型不急较多，所以想批量修改，谢谢

池盛龙

1. Sub caifa() '提取单元格换行内容
   
2. 
   
3. 
   
4. a = 3
   
5. d = 3
   
6. Do While Cells(a, 1) <> ""
   
7. 
   
8. 
   
9. Dim iStr As String
   
10. Dim iSpace As String
    
11. With Cells(a, 2)
    
12. iStr = Len(.Text)
    
13. iSpace = Len(Replace(.Text, Chr(10), ""))
    
14. End With
    
15. shul = iStr - iSpace + 1
    
16. 
    
17. 
    
18. For x = 0 To shul - 1
    
19. 
    
20. 
    
21. Cells(d, 4) = Cells(a, 1)
    
22. 
    
23. 
    
24. Cells(d, 5) = Split(Cells(a, 2), Chr(10))(x) '提取换行单元格内容
    
25. 
    
26. 
    
27. d = d + 1
    
28. 
    
29. Next
    
30. 
    
31. 
    
32. a = a + 1
    
33. 
    
34. 
    
35. 
    
36. Loop
    
37. 
    
38. 
    
39. End Sub

复制代码

7433518

Sub a()
    k = 0
    Columns("H:I").Clear
    For x = 3 To [b65536].End(xlUp).Row
        rq = Cells(x, 1)
        xm = Cells(x, 2)
        arr = Split(xm, Chr(10))
        For y = 0 To UBound(arr)
            k = k + 1
            Cells(k + 2, 8) = rq
            Cells(k + 2, 9) = arr(y)
        Next
    Next

End Sub

47938024

楼主，这个问题有解决掉吗？

chengshanming

留个记号！不错的主题