【求助】用VBA拆分数据，详见具体内容。

大卡卡呵呵

求助各位大佬，左边的数据拆分成右边的数据，根据第二列的数字来拆分；第一列根据第二列的数字复制个数，第二列全部拆分成1，第三列根据第二列的数字随机分配逗号隔开的字符，逗号隔开的每个字符都要用到，数量不固定，最好能循环依次給值；感谢感谢

大卡卡呵呵

求大佬们帮帮忙，看看怎么写这个代码，谢谢

microyip

把右边的用Split来分开成数组，然后填充后+1直至满足中间数

iwangyi

Sub C()
R = 1
N = [B65536].End(xlUp).Row
For I = 2 To N
X = Split(Cells(I, 2), ",")
Y = UBound(X) + 1
If Cells(I, 1) Mod Y = 0 Then
For J = 1 To Cells(I, 1) / Y
  For Z = 0 To Y - 1
  R = R + 1
  X = Split(Cells(I, 2), ",")
  Cells(R, 3) = X(Z)
Next
Next
Else
For J = 1 To Cells(I, 1) / Y
  For Z = 0 To Y - 1
  R = R + 1
  X = Split(Cells(I, 2), ",")
  Cells(R, 3) = X(Z)
Next
Next

P = Cells(I, 1) Mod Y
For L = 1 To P
R = R + 1
  X = Split(Cells(I, 2), ",")
  Cells(R, 3) = X(L - 1)
Next L
End If
Next
End Sub

iwangyi

附件请参考*******

astupig

大卡卡呵呵

iwangyi 发表于 2020-1-2 13:52
Sub C()
R = 1
N = .End(xlUp).Row

学习了，感谢大佬感谢！

大卡卡呵呵

astupig 发表于 2020-1-2 13:57

感谢感谢大佬，学习了

大卡卡呵呵

microyip 发表于 2020-1-2 12:22
把右边的用Split来分开成数组，然后填充后+1直至满足中间数

收到，感谢感谢！！