因为我不是很熟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)