目前希望的格式是
A B C D E F G H
1
2 编号 名称 |x001 资料表1 11111 x203 资料表203 20320
3 x001 xxxx | 1111111 11111 203203203 20320
4 x002 xxxx | 1111111 11111 203203203 20320
5 . | 1111111 11111 203203203 20320
6 . |x002 资料表2 22222
. | 2222222 22222
. | 2222222 22222 ↗
200 x203 xxxx | 2222222 22222
左边A、B字段固定式编号及名称
右边D2放置网络抓取的表格
但是因为抓取的表格很多
所以想再一定的编号，如200列后换字段
目前写出来的是这样，只能持续向下不会自动换栏
但又不知该如何着手才好，请各位大大帮忙谢谢~
已更新为可运行，感谢长今大帮助
Dim PO As Integer
Dim POY As Integer
'清空字段
Columns("C:IV").Select
Selection.ClearContents
PO=2
POY=3
LRA = Range("A2").End(xlDown).Row
For i = 3 To LRA
If Sheets("汇入资料").Cells(i, 2) <> "" Then
ValuesSno = "$A$" & i
LinkSS = "URL;http://xxxxxx.xxxx" & Sheets("汇入资料").Cells(i, 1)

If PO >=200 Then
PO = 2
POY = POY + 3
End If
With ActiveSheet.QueryTmables.Add(Connection:= _
LinkSS, Destination:=Sheets("汇入资料").Cells(PO , POY _
))
.FieldNames = True
.
.
.
End With
'带入编号，字段也是向右边移两栏
Cells(PO , POY) = "=VLOOKUP(A" & i & ",A:B,1,0)"
PO = PO + 4
End If
Next i