Re: [算表] 批次查詢、抓取網頁資料,OFFSET,VBA,End

看板Office作者JieJuen (David)時間17年前 (2009/01/18 16:39)推噓1(1推 0噓 3→)

留言4則, 2人參與討論串4/4 (看更多)

因為我不是很熟vba 不太清楚您為什麼要用插入的方式如果要一個接著一個往下貼用類似 [A65536].End(xlUp).Offset(1, 0) http://gb.twbts.com/index.php/topic,315.0.html 也因為同樣的原因以下方式應可用vba完成只是我用OFFSET http://2y.drivehq.com/p/OffsetRow2.xls 檔案中模擬最複雜的情況(也還好) 用很簡單的判斷式即可指出第幾筆應在什麼位置 D E兩欄寫判斷式即當A欄是關鍵字時加一 (分別是所有權人姓名,前次移轉現值年期及金額) 前次移轉現值年期及金額 (E欄) 出現的次數應該就是所屬的筆數因為有一黃框就至少有一橘框再依E欄往左看，查出D欄所屬關鍵字 ----細節----- 產生模擬資料節錄如下 A B 5 所有權人姓名中華民國 9 前次移轉現值年期及金額年月元 15 前次移轉現值年期及金額年月元a 21 所有權人姓名中華民國2 25 前次移轉現值年期及金額年月元2 31 前次移轉現值年期及金額年月元a2 結果大約如 (姓名=所有權人姓名,金額=前次移轉現值年期及金額) D E G H L 1 2 3 姓名金額姓名金額 4 5 1 0 1 中華民國年月元 6 1 0 2 中華民國年月元a 7 1 0 3 中華民國2 年月元2 8 1 0 4 中華民國2 年月元a2 公式 D5 =($A5=D$3)+D4 E5 =($A5=E$3)+E4 H5 =INDEX($B:$B,MATCH(INDEX($D:$D,MATCH($G5,$E:$E,)),$D:$D,)+COLUMN(A:A)-1) L5 =INDEX($B:$B,MATCH($G5,$E:$E,)+COLUMN(A:A)-1) 最後， =MAX(E:E) 可得資料筆數，據此控制VBA複製範圍即可 ※ 引述《Caddawyc (Caddawyc)》之銘言： : ※ 引述《JieJuen (David)》之銘言： : : http://210.241.111.220:8080/LandRiseTax.asp?Town=08&Sect=0329&LandNo=00010000&RegNo=0000000128 : : http://kuso.cc/4fKo : : 可看看看板上或精華區抓網頁資料的文章 : : 會用到一些vba(新增web查詢時錄巨集可得) : : 需要知道的是要抓的網址及哪些是變數 : : 在vba碼中用 & 接起來變成新網址 : : 而所需要的網址如上 : : 變化如 : : "...Town=" & [A1] & "&Sect=" & [B1] & "... : 目前嘗試的結果是用兩個巨集來達到自動抓檔的效果， : macro1"Macro":用來查詢及剪貼抓下來的資料到指定的工作表 : macro2"循環":用來達到迴圈的作用 : 檔案在這 http://www.mediafire.com/?tzgom2znt0z : 因為沒學過，雖然巨集會跑，可是對這拼湊出來的巨集有點沒辦法安心 @@" : 所以有幾個問題想請板大們幫忙看看，謝謝! <(_ _)> : 1.因為巨集是先"錄"再參考精華區等地方所改出來的， : 不知道是不是可以修得更精確一些? : 2.工作表"結果"因為用到"插入"，導致資料順序跟工作表"來源資料"顛倒， : 本來想在"來源資料"加一欄標順序的序號， : 但是先錄好的巨集就失效了，冏" : 有辦法不使用"插入列"的辦法，讓巨集自動從已有資料的下一列開始貼資料嗎? : 3.http://img165.imageshack.us/img165/8283/20090116112038cy0.png

: 3.1目前我假設上圖的紅框黃框只會有一組，橘框可以很多組 : 如果我要將 : 紅框黃框橘框1 橘框2 橘框3 : 變成 : 紅框黃框橘框1 : 紅框黃框橘框2 : 紅框黃框橘框3 : 要用 offset 對嗎? : 而已最好查詢一次就offset一次對嗎? : (精華區有看，不過目前還沒看透，先求證一下 @@") : 3.2如果黃框也不只一組，因為我不知道查出來的結果會不會是 : 紅框黃框1 橘框1 ... 黃框2 橘框1 橘框2 : 如果真有這狀況，那我現在預設的欄位就沒辦法正確抓到資料了 @@" : 這問題有解嗎? 還是我可以往哪的方向去嘗試? -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 218.164.58.243