Re: [VBA ] 如何移到excel工作表最後一列貼上資料?
※ 引述《Marty (DNA探針)》之銘言：
: 提供一個思考的方式,邏輯如下:
: 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"))
請問如果原來sheet2裡是空白的
後續由sheet1的資料貼過來一列一列的貼下去
也是用上面這種寫法嗎？
我是想請問
CountA(Sheet2.Range("A:A")) 的意義....
: '將data傳給sheet2現有資料的下一行
: sheet2.cells(data_n+1,1) = data
再請教大家
假設我是將TextBox裡輸入的資料貼在某個sheet(假設為sheet3)
也可以用上面提到的寫法嗎？
我的想法是這樣
Dim Data As String
Dim Data_n As Integer
Data = TextBox.text
Data_n = Application.WorksheetFunction.CountA(Sheet3.Range("A:A"))
Sheet3.Cells(Data_n+1,1) = Data
不知道這樣對嗎？
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.247.134
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 3 之 3 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
26
79