作者Marty (DNA探针)
看板Visual_Basic
标题Re: [VBA ] 如何移到excel工作表最後一列贴上资料?
时间Wed Nov 1 16:45:47 2006
※ 引述《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
1F：推 artdraw:谢谢解答！非常的详细 ^^ 11/24 09:55