老师们帮忙看下，更难点的

这和上一题差不多吗
只需要修改吧主公式的index的第一个参数.
row(a1)*5+column(a1)-6

@温柔小兔
小兔难道你不知道我现在在闭关修炼VBA么？
Sub text()
Dim i As Integer, x As Integer, y As Integer, z As Integer
For i = 2 To 100
x = Range("b" & i).Value
y = Range("c65536").End(xlUp).Row + 1
z = Int(x / 5)
If z > 0 Then
Range(Cells(y, 3), Cells(y + z - 1, 8)).Select
Selection.Value = Range("a" & i).Value
End If
y = Range("c65536").End(xlUp).Row + 1
Range(Cells(y, 3), Cells(y, 2 + x - 5 * z)).Select
Selection.Value = Range("a" & i).Value
Next
End Sub

Sub text()
Dim i As Integer, x As Integer, y As Integer, z As Integer
For i = 2 To 100 'i的循环只要比你上图的A列名称多就行了。
x = Range("b" & i).Value ' 你重复次数在B列，所以X= "b"&i
y = Range("c65536").End(xlUp).Row + 1 ’查找C列最下面那行有信息的行数的下面那行
z = Int(x / 5) '因为X= "b"&i 相当于函数 =int(bi/5) (i是变值)
If z > 0 Then
Range(Cells(y, 3), Cells(y + z - 1, 8)).Select 'CELL(Y,3)的意思是单元格Cy，CELL('Y+Z-1,8)的意思是单元格C(Y+Z-1),其中y=C列最下面那行有信息的行数的下面那行 z=int(b'i/5)
Selection.Value = Range("a" & i).Value '你要重复的内容在A列，所以是"a"&i
End If
y = Range("c65536").End(xlUp).Row + 1 '再次定位C列有信息的下面一行
Range(Cells(y, 3), Cells(y, 2 + x - 5 * z)).Select '参照cell(y,3)的意思
Selection.Value = Range("a" & i).Value '"a" & i = 要重复的内容在A列
Next '继续下一个 i 一直到i = 100为止
End Sub

@温柔小兔
突然想到如果B列是5的倍数就会出错，汗，懒的改原本的做好的代码了，直接加两条：
end if 下面加一条：
If x = 5 * z Then GoTo 100
next 上面加一条：
100: