案例：

将

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