作者foreverkn (Last Dance)
看板Visual_Basic
标题请问如何移到Excel工作表最後一列贴上资料？
时间Fri Dec 22 00:56:25 2006
※ 引述《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
1F：推 Marty:CountA() 是计算非空白的格数.. 12/22 08:37
2F：→ Marty:你的想法逻辑上没什麽问题... 12/22 08:42