作者foreverkn (Last Dance)
看板Visual_Basic
标题Re: [VBA ] 如何移到excel工作表最後一列贴上资料?
时间Tue Dec 5 00:16:13 2006
※ 引述《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