复制包含特定字符的单元格后一位

420948492 · 发表于 2011-5-14 18:36

各位大侠

我想用VBA实现复制包含特定字符“第一产业”的单元格的后一个单元格，
Workbooks(unitfile).Sheets(1).range(".Find("第一产业", lookin:=xlValues)).Copy

不知道怎么修改，拜托了

LangQueS · 发表于 2011-5-14 19:08

建议楼主压缩上传Excel问题附件并加以说明或做出模拟结果，以便大家了解、测试和解答。(编辑已发贴即可补充上传附件)

[新手必读]发帖须知、上传附件、截图动画、压缩解压、靓帖推荐:
http://club.excelhome.net/redire ... 707&ptid=184567

dsmch · 发表于 2011-5-14 19:15

set c=Workbooks(unitfile).Sheets(1).range(".Find("第一产业", lookin:=xlValues))
if not c is nothing then c.offset(,1).copy 某单元格

		自动登录	找回密码
密码			免费注册

[原创] 复制包含特定字符的单元格后一位