|
||
|
Amateur Member
 
加入日期: May 2005 您的住址: 讓大家知道去哪堵你
文章: 36
|
mis339 板大 謝謝您 這就是小弟想要的樣子
不然每天都手工改座標好像還有很大的改進空間 真是行家一分鐘 新手續練功 感謝您
__________________
|
|||||||
2018-11-05, 09:25 AM
#11
|
|
|
Amateur Member
加入日期: May 2005 您的住址: 讓大家知道去哪堵你
文章: 36
|
NTC_TW_IT 大您好
您說的是 小弟才學習1個星期左右 突然發覺之前2年手工複製貼上 真是花費太多時間了 看了網友整理的才發覺原來可以這樣做 用錄製的 一時覺的太驚艷了 會將您所寫的好好研究 謝謝您的發文提點 小弟會再自行研究 後續如還有問題 還望眾板友提點 先在此感謝您及眾板友 非常感謝
__________________
|
||
|
2018-11-05, 09:33 AM
#12
|
|
|
Advance Member
  加入日期: Apr 2003 您的住址: 台灣台中
文章: 412
|
你後來改的那個
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 最後一行」，然後把找到的答案測試一下而已… |
|
2018-11-05, 02:31 PM
#13
|
|
|
Amateur Member
加入日期: May 2005 您的住址: 讓大家知道去哪堵你
文章: 36
|
mis339大 謝謝您的教導 小弟目前在外出差，待星期五回到家後會再次嘗試 ，您說的狀況確實正確理想，在新手圈您應該是比小弟更有天份，小弟在學習打造自己的系統，會先自行摸索，不足直處，在行請教，謝謝您與眾板大。
__________________
|
|
2018-11-05, 11:25 PM
#14
|
|
