求助，如何前面数字分开，后面内容一样。

Stangj

清风竹-

请看附件。

Stangj

清风竹- 发表于 2022-8-3 20:24
请看附件。

谢谢大佬，我还有个问题，是我那一行有很多数据，不仅仅是一列（比如A-H列都有数据），然后想把整理的内容放在另一个表内，能实现嘛？

比翼双飞880717

PQ参考，，，

清风竹-

Stangj 发表于 2022-8-3 20:49
谢谢大佬，我还有个问题，是我那一行有很多数据，不仅仅是一列（比如A-H列都有数据），然后想把整理的内 ...

已做修改。

Stangj

清风竹- 发表于 2022-8-3 21:31
已做修改。

C:\Users\Administrator\Desktop1659534819831.png

Stangj

清风竹- 发表于 2022-8-3 21:31
已做修改。

大佬是这个意思，以标黄的数字拆分开来，分别复制那一行的内容，成为单独的内容

alan57

1. =VSTACK(A2:B2,IFERROR(HSTACK(TEXTSPLIT(A3,,","),B3),B3))

复制代码

xiangbaoan

1. Sub 七楼图片()
   
2.   Dim ar, br, cr, i, j, x, y
   
3.   ar = Range("A1").CurrentRegion.Offset(1)
   
4.   ReDim br(1 To 6666, 1 To UBound(ar, 2))
   
5.   For i = 1 To UBound(ar) - 1
   
6.     cr = Split(ar(i, 5), ",")
   
7.     For j = 0 To UBound(cr)
   
8.       y = y + 1
   
9.       For x = 1 To UBound(ar, 2)
   
10.         br(y, x) = ar(i, x)
    
11.       Next
    
12.       br(y, 5) = cr(j)
    
13.     Next
    
14.   Next
    
15.   Range("A2").Resize(y, x - 1) = br
    
16. End Sub

复制代码

清风竹-

Stangj 发表于 2022-8-3 21:58
大佬是这个意思，以标黄的数字拆分开来，分别复制那一行的内容，成为单独的内容

请看附件。