请教大家，怎样用VBA批量去除EXCEL的第2-3行？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

为了把EXCEL导入SAS，并能顺利运行，必须删除EXCEL的第2-3行（数据库下载时必然携带第2-3行的注释），能否使用VBA批量实现？以免每次都要手工删除？希望大神指点啊

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：EXCEL xcel exce cel VBA 数据库 EXCEL 手工

可以用两种方法实现，一种是直接删除行，rang(2,3).delete
另一种方法是无须删除设定输出数据即可：sqltxt = "select * from 表名 & "a4:h" & 数据总行数 & "]"

tstone318 发表于 2014-11-22 10:46
可以用两种方法实现，一种是直接删除行，rang(2,3).delete
另一种方法是无须删除设定输出数据即可：sqltxt ...

感谢您，能再说一下“无须删除设定输出数据”是啥意思吗？sqltxt = "select * from 表名 & "a4:h" & 数据总行数 & "]"的意思是不是：将表中a4：hN的相关内容全部选取？

是的，注意要加上[]方括号
最后一行是可以获取的

格式为：[表名&区域]

tstone318 发表于 2014-11-22 12:45
格式为：[表名&区域]

好的，多谢了！

  Dim cc As Range
  Dim myRange As Range
  dim tt as string  '需要查找的字符串
  tt="删除"  '需要删除的关键词
  Set myRange = Worksheets("sheet1").Range("a3:a800")
  Set cc = myRange.Find(tt, , , xlWhole, , , , True)      
     rows(cc.row).select    '找到你要删除的行了，然后你自己循环吧。