新手請高手達人指教 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 謝謝指教

在 Range("A537").Select下面加上這行試試

Selection.End(xlDown).Offset(1, 0).Select

板大您好 出現 畫面如圖示

使用版本為 office 2010

謝謝您

試試 :

ActiveCell.End(xlDown).Offset(1, 0).Select

or

ActiveCell.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

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

謝謝以上兩位板大 小弟立即試試 謝謝先

shaota大您好

ActiveCell.End(xlDown).Offset(1, 0).Select 這行會出現 1004這個偵錯

ActiveCell.End(xlDown).Select 有複製成功 但是會到工作表的最後一行

ActiveCell.Offset(1, 0).Select 這行跟上面第1004會出現偵錯

NTC_TW_IT 大您好

小弟還太淺 您這個小弟看的似懂非懂 不知如何改 小弟在試試 謝謝

試試

Range("A2:K2").Select
Selection.Copy
Sheets("台積電").Select
Range("A" & ActiveSheet.UsedRange.Rows.Count + 1).Select
ActiveSheet.Paste

workbook('dest_workbook_name')中的dest_workbook_name,基本上就是你的檔名去掉副檔名,你要依照你的情況去修改
sheet(1) 表示你那個excel檔案的第一個分頁(正常不會這樣寫,不過這樣寫你比較簡單維護)
1的部分可以用你實際分頁名稱取代掉
你把你excel檔案中的分頁,檔名一併截圖上來~~這樣比較好提供建議,因為看起來你對vba很不熟