Re: [VBA ] 如何移到excel工作表最後一列貼上資料?
※ 引述《artdraw (水藍)》之銘言：
: 新手excel VBA一問...
: 想要寫一個程式分別從不同excel檔案抓取資料
: (每次抓的資料只有該工作表的"第一列")
: 抓資料後貼入指定的某個excel檔案
: 要依序在工作表內往下貼成一列一列的
: 不過我只會用Range(1:1)來指定 Activesheet.paste貼上的destination位置
: 但這樣就會全部的資料都會覆蓋在第一列了 ><
: 請問要怎麼指定貼在最下面的位置呢？
: 之前曾經用pcworker寫過一樣的程式，
: 當時是用"讀取檔案長度" + "位移到指定長度"的概念
: 請問VBA也有類似的方法呢？還是要怎麼寫比較好？
: 煩請指點迷津 >"<
提供一個思考的方式,邏輯如下:
1.抓取要貼上的資料
2.抓取目前已有資料的個數,例如現在要貼上的sheet中有12筆資料,則我們應該要
貼在第13行.
3.貼上資料
[VBA Code]
Dim data As string
Dim data_n As Integer
'假設要貼上的資料在sheet1的A1
data = sheet1.cells(1,1)
'假設要貼過去的資料在sheet2的A列,則data_n為該列現在資料筆數
data_n = Application.WorksheetFunction.CountA(Sheet2.Range("A:A"))
'將data傳給sheet2現有資料的下一行
sheet2.cells(data_n+1,1) = data
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.202.6.129
推
11/24 09:55, , 1F
11/24 09:55, 1F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
17
50
