因為我不是很熟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 ※ 編輯: JieJuen 來自: 218.164.53.173 (01/18 19:47) ※ 編輯: JieJuen 來自: 218.164.49.72 (05/11 19:25)