如何把带标点的单元格分行

qdgrl

1	w	a			1	w	a
2	q.e.t	b			2	q	b
3	a.s	c			2	e	b
4	f.t.u.i	d			2	t	b
	...(很多）				3	a	c
					3	s	c
					4	f	d
					4	t	d
					4	u	d

新手请教怎么用VBA实现从左边到右边的操作，多谢多谢！！

abc123281

可以呀   但要先上传附件

qdgrl

比如说附件中的表， 怎么写代码，先谢谢老师了！

xbq

用POWERQUERY

qdgrl

abc123281 发表于 2018-3-19 15:52
可以呀   但要先上传附件

比如说附件中的表，怎么写代码，先谢谢老师！！

zhangzhang

详见附件。。。。。。。。。

qdgrl

xbq 发表于 2018-3-19 16:00
用POWERQUERY

多谢多谢！！

Chip_Kenny

try this:

1. Sub zz()
   
2. Dim ar, b, a
   
3. ar = [a1].CurrentRegion.Value
   
4. ReDim b(1 To UBound(ar, 2), 1 To 1)
   
5. For i = 1 To UBound(ar)
   
6.     a = Split(ar(i, 2), ".")
   
7.     For j = 0 To UBound(a)
   
8.         n = n + 1
   
9.         ReDim Preserve b(1 To UBound(ar, 2), 1 To n)
   
10.         b(1, n) = ar(i, 1)
    
11.         b(2, n) = a(j)
    
12.         b(3, n) = ar(i, 3)
    
13.     Next
    
14. Next
    
15. Workbooks.Add 1
    
16. [a1].Resize(n, 3) = Application.Transpose(b)
    
17. End Sub

复制代码

qdgrl

zhangzhang 发表于 2018-3-19 16:02
详见附件。。。。。。。。。

多谢指教！！

qdgrl

Chip_Kenny 发表于 2018-3-19 16:14
try this:

可用，多谢老师指教！！