|
||
|
Amateur Member
 
加入日期: May 2005 您的住址: 讓大家知道去哪堵你
文章: 36
|
新手請高手達人指教 excel vba
小弟正在新建股票的資料 目前遇到的問題是
有一表1 使用vba 匯入 前權值股的資料 使用表二用表2 做簡單的編輯 在表2 編輯完後 再匯出個股的資料表 但是只會只匯入的表格位置 錄製的時候寫死了 如 A537 但是明天更新為 匯入還是A537 請教要如何寫在匯出的時候會匯個谷地資料表到最下面那一行 每天+1 或是 如何到下一行是空白然後貼上 謝謝 使用的office版本2010 附圖如下 Sub 巨集TEST() ' ' 巨集TEST 巨集 ' ' Range("A2:K2").Select Selection.Copy Sheets("台積電").Select Range("A537").Select ActiveSheet.Paste End Sub 請問如何每天自動到下一行的空格貼上 不是一直 在A537 謝謝指教
__________________
|
|||||||
2018-11-04, 02:13 PM
#1
|
|
|
Major Member
 
加入日期: Aug 2001 您的住址: 高雄 鳳山 大社
文章: 274
|
在 Range("A537").Select下面加上這行試試
Selection.End(xlDown).Offset(1, 0).Select |
||
|
2018-11-04, 03:28 PM
#2
|
|
|
Amateur Member
加入日期: May 2005 您的住址: 讓大家知道去哪堵你
文章: 36
|
板大您好 出現 畫面如圖示
使用版本為 office 2010 謝謝您
__________________
此文章於 2018-11-04 03:45 PM 被 word2000 編輯. |
|
2018-11-04, 03:40 PM
#3
|
|
|
Major Member
加入日期: Aug 2001 您的住址: 高雄 鳳山 大社
文章: 274
|
試試 :
ActiveCell.End(xlDown).Offset(1, 0).Select or ActiveCell.End(xlDown).Select ActiveCell.Offset(1, 0).Select 此文章於 2018-11-04 05:17 PM 被 shaota 編輯. |
|
2018-11-04, 05:11 PM
#4
|
|
|
Regular Member
加入日期: Jul 2014
文章: 89
|
last_row=Workbooks('dest_workbook_name').Sheets(1).UsedRange.Rows.Count
Workbooks('dest_workbook_name').Sheets(1).range("K" & last_row+1).Select 'copy自己寫 Workbooks('dest_workbook_name').Sheets(1).Paste |
|
2018-11-04, 05:32 PM
#5
|
|
|
Amateur Member
加入日期: May 2005 您的住址: 讓大家知道去哪堵你
文章: 36
|
謝謝以上兩位板大 小弟立即試試 謝謝先
__________________
|
|
2018-11-04, 06:52 PM
#6
|
|
|
Amateur Member
加入日期: May 2005 您的住址: 讓大家知道去哪堵你
文章: 36
|
shaota大您好
ActiveCell.End(xlDown).Offset(1, 0).Select 這行會出現 1004這個偵錯 ActiveCell.End(xlDown).Select 有複製成功 但是會到工作表的最後一行 ActiveCell.Offset(1, 0).Select 這行跟上面第1004會出現偵錯
__________________
|
|
2018-11-04, 07:35 PM
#7
|
|
|
Amateur Member
加入日期: May 2005 您的住址: 讓大家知道去哪堵你
文章: 36
|
NTC_TW_IT 大您好
小弟還太淺 您這個小弟看的似懂非懂 不知如何改 小弟在試試 謝謝
__________________
此文章於 2018-11-04 07:47 PM 被 word2000 編輯. |
|
2018-11-04, 07:38 PM
#8
|
|
|
Advance Member
  加入日期: Apr 2003 您的住址: 台灣台中
文章: 412
|
試試
Range("A2:K2").Select Selection.Copy Sheets("台積電").Select Range("A" & ActiveSheet.UsedRange.Rows.Count + 1).Select ActiveSheet.Paste |
|
2018-11-05, 01:03 AM
#9
|
|
|
Regular Member
加入日期: Jul 2014
文章: 89
|
引用:
workbook('dest_workbook_name')中的dest_workbook_name,基本上就是你的檔名去掉副檔名,你要依照你的情況去修改 sheet(1) 表示你那個excel檔案的第一個分頁(正常不會這樣寫,不過這樣寫你比較簡單維護) 1的部分可以用你實際分頁名稱取代掉 你把你excel檔案中的分頁,檔名一併截圖上來~~這樣比較好提供建議,因為看起來你對vba很不熟 |
|
|
2018-11-05, 01:05 AM
#10
|
|
