請問如何移到Excel工作表最後一列貼上資料？

看板Visual_Basic作者foreverkn (Last Dance)時間19年前 (2006/12/22 00:55)推噓1(1推 0噓 1→)

留言2則, 1人參與討論串1/1

※ 引述《foreverkn (Last Dance)》之銘言： : ※ 引述《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: 218.168.142.189