利用vba操作表格数据-拼接不同列的数据

案例：

将

http://www.xiaozhu.com/fangdong/2762231363/

拼接成这样的：

http://www.xiaozhu.com/fangdong/583844400/yuding/p3.html

代码：

Sub runtest()
Dim i As Integer
Dim j As Integer
Dim k As Integer
k = 1
For i = 1 To 158
For j = 1 To Cells(i, 3)
Cells(k, 6) = Cells(i, 1) & "yuding/p" & j & ".html"
k = k + 1
Next
Next
End Sub