mis339 板大 謝謝您 這就是小弟想要的樣子

不然每天都手工改座標好像還有很大的改進空間

真是行家一分鐘 新手續練功

感謝您

NTC_TW_IT 大您好

您說的是 小弟才學習1個星期左右 突然發覺之前2年手工複製貼上 真是花費太多時間了

看了網友整理的才發覺原來可以這樣做 用錄製的 一時覺的太驚艷了

會將您所寫的好好研究

謝謝您的發文提點

小弟會再自行研究

後續如還有問題 還望眾板友提點

先在此感謝您及眾板友 非常感謝

你後來改的那個
Range("A549").select
這行可以拿掉

因為ActiveSheet.UsedRange.Rows.Count是算出總共有幾行，然後再加1。
假設你原本有549行，那出來的結果就是549+1=550
所以Range("A" & ActiveSheet.UsedRange.Rows.Count + 1).Select
出來的結果就會變成是Range("A550").Select
所以你就不用特別指定那一行了

另外，其實我也是新手，我也不熟…
我只是用Google搜尋「Excel VBA 最後一行」，然後把找到的答案測試一下而已…

mis339大 謝謝您的教導 小弟目前在外出差，待星期五回到家後會再次嘗試 ，您說的狀況確實正確理想，在新手圈您應該是比小弟更有天份，小弟在學習打造自己的系統，會先自行摸索，不足直處，在行請教，謝謝您與眾板大。