作者hugh509 ((0_ 0))
看板Visual_Basic
标题[VBA ] 资料自动换栏位
时间Sun Apr 26 16:31:50 2015
目前希望的格式是
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
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 111.252.35.242
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1430037114.A.EAD.html
已更新为可运行，感谢长今大帮助
※ 编辑: hugh509 (111.252.35.242), 04/27/2015 23:36:29