[VBA ] 資料自動換欄位

看板Visual_Basic作者hugh509 ((0_ 0))時間9年前 (2015/04/26 16:31)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串1/1

目前希望的格式是 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://www.ptt.cc/bbs/Visual_Basic/M.1430037114.A.EAD.html 已更新為可運行，感謝長今大幫助 ※ 編輯: hugh509 (111.252.35.242), 04/27/2015 23:36:29