带你入门VBA（2004第一期）

line

我还要学习呢

你们可以教我吗？

big_tree

真的那么容易上手，传说中的那么神奇，得看看！

lengxue

老师好：有个问题想请教一下，但不是关于VBA的。应该在哪儿直接向你或其他的版主请教

icylee

给我一个机会

klyl

求助！！！

9lee

非常感谢兰老师，我会继续跟你学。

[em38][em38]

eddiechen

真是佩服版主,除了你的水平,还有就是你的教学方法和热心.,尤其是教学方法和热心,无话可说了,我会推荐给我的所有朋友来学你的vba的

szr78923

从今天开始，我将从头开始跟学。谢谢楼主！

wangyan

兰老师您好：

不好意思半路打搅。因为着急，所以也顾不了那么多啦，请原谅。

下面是我自己写的一小段程序。作用是为了将几十个表中的某两行数据全部粘贴到一张表中。我目前的方法是选定每个表中的固定的行，把所选定的行的数据分别拷贝到一张表中。具体如下：

Sub 矩形1_单击() Workbooks.Open Filename:="D:\zhaocaiyan\bj_all_end\m-0049.csv" '打开D:\zhaocaiyan\bj_all_end\m-0049.csv

Range("11:11,16:16,18:18").Select '选定这几行 Selection.Copy '拷贝这几行 Workbooks.Open Filename:="D:\zhaocaiyan\bj_all_end\m-0048.csv" '打开这个表 Windows("m-0048").Activate '激活这个表 Range("A14").Select '选中该表的A列14行 ActiveSheet.Paste '粘贴.即将在49表中选定的行粘贴到48表的A列14行. With Selection.Font '给复制的字体定义颜色和大小 .Name = "宋体" .Size = 9 .ColorIndex = 3 Workbooks("m-0049").Close savechanges:=True End With Workbooks.Open Filename:="D:\zhaocaiyan\bj_all_end\m-0050.csv" Range("11:11,16:16,18:18").Select '选定这几行 Selection.Copy Windows("m-0048").Activate '激活这个表 Range("A17").Select ' ActiveSheet.Paste

..........

但由于个别的表不够规范，因此我就取不到我想要的数据。所以我想能否不以行数定位而是以内容定位。具体是：打开一个表--找到带有“非常同意”和“总计”字段的行--选取这两行的全部数据--拷贝到指定的另一张表中。

请赐教，谢谢！！顺祝圣诞快乐！！

XINKEY

楼主：你的无私真是功德无量。