怎样按指定的单元格个数合并文本？

公式有难度，可以用vba。
Sub 字符组合()
 For i = 1 To [b65536].End(xlUp).Row
 For j = x + 1 To x + Cells(i, 2)
 t = t & "," & Cells(j, 1)
 x = x + 1
 Next j
 Cells(i, 3) = Mid(t, 2)
 t = ""
Next i
End Sub

如图

我也是个人爱好哈，如果还有问题，可以发我邮件fanzouguo@163.com我一般都是很久登一次邮箱，呵呵，或者加我QQ也行，525657867