没有合适的资源?快使用搜索试试~ 我知道了~
搜索字符串写入另一个sheet的问题
需积分: 9 2 下载量 87 浏览量
2008-12-08
13:13:32
上传
评论
收藏 6KB TXT 举报
温馨提示
试读
10页
搜索字符串写入另一个sheet,如果某个目录下有多个xls文件(包括"办公文具.xls"文件),每个文件里都有一个sheet,情况类似"办公文具sheet".
资源推荐
资源详情
资源评论
Sub 宏1()
'
' 宏1 Macro
'
'
Sheets("办公文具").Select
Sheets.Add.Name = "bak13"
Sheets("办公文具").Select
Range("B1").Select
Cells.Find(What:="@yahoo", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCASE:= _
False).Activate
'Range("B13").Select
'Selection.Copy
'Sheets("bak2").Select
'ActiveSheet.Paste
'Range.Next
'Sheets("办公文具").Select
'Application.CutCopyMode = False
'Cells.FindNext(After:=ActiveCell).Activate
'While Cells.Text <> Null
Selection.Copy
Sheets("bak13").Select
'ActiveSheet.ActiveCell.
'
' 宏1 Macro
'
'
Sheets("办公文具").Select
Sheets.Add.Name = "bak13"
Sheets("办公文具").Select
Range("B1").Select
Cells.Find(What:="@yahoo", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCASE:= _
False).Activate
'Range("B13").Select
'Selection.Copy
'Sheets("bak2").Select
'ActiveSheet.Paste
'Range.Next
'Sheets("办公文具").Select
'Application.CutCopyMode = False
'Cells.FindNext(After:=ActiveCell).Activate
'While Cells.Text <> Null
Selection.Copy
Sheets("bak13").Select
'ActiveSheet.ActiveCell.
ActiveSheet.Paste
ActiveCell.Next <----问题出在这里
Sheets("办公文具").Select
Application.CutCopyMode = False
Cells.FindNext(After:=ActiveCell).Activate
'Cells.Find.
'Wend
End Sub
另外还有一个问题:
如果某个目录下有多个xls文件(包括"办公文具.xls"文件),每个文件里都有一个sheet,情况类似"办公文具sheet".
请问: 如何能够轮流打开全部的xls文件,将当中的sheet中符合"@yahoo"条件的单元格力的内容, 复制到"bak13" 这一个sheet里?
Sub FindStrings()
Dim path As String
path = "I:\wentrip\promotion\data\2007data"
Filename = Dir(path & "\*.xls")
Filename = path & "\" & Filename
剩余9页未读,继续阅读
资源评论
xiao04yu08
- 粉丝: 0
- 资源: 1
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
最新资源
- Blazor 下的 Json 编辑器
- q6.zip
- 【消息队列 】面试题.pdf
- Dell EMC Unity-Misc Procedures- Service Commands-3.pdf
- MiniSMB-HurricaneII
- 软专2302赵炳坤2301990241.ste
- 缓存面试题大全 pdf版
- SC Series-SC5020 Replacement- Battery Backup Unit-1.pdf
- SC Series-SC5020 Replacement-Choose an Option- Hard Drives-1.pdf
- 洛雪音源示例模板lx-music-source-example
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功