湖南龙网

  1. 首页 > 生活百科 > >

excel搜索工作表指定列范围中的数据替换其复制到另一个工作表中( 二 )

小知识生活百科


如果.Cells（.Cells.Count）.Column> MaxCol然后
MaxCol = .Cells（.Cells.Count）.Column
万一
结束于
下一个区域
设置LastCell = SearchRange.Worksheet.Cells（MaxRow，MaxCol）
出错时转到0
设置FoundCell = SearchRange.Find（What：= FindWhat，_
之后：= LastCell，_
LookIn：= LookIn，_
LookAt：= XLookAt，_
SearchOrder：= SearchOrder，_
MatchCase：= MatchCase）
如果Not FoundCell一无所有
设置FirstFound = FoundCell
做到错误
包含=错误
如果BeginsWith = vbNullString AndEndsWith = vbNullString然后
包含=正确
其他
如果BeginsWith <> vbNullString然后
IfStrComp（Left（FoundCell.Text，Len（BeginsWith）），BeginsWith，BeginEndCompare）= 0然后
包含=正确
万一
万一
如果EndsWith <> vbNullString然后
如果StrComp（Right（FoundCell.Text，Len（EndsWith）），EndsWith，BeginEndCompare）= 0
包含=正确
万一
万一
万一
如果Include = True，则
如果ResultRange无效，则
设置ResultRange = FoundCell
其他
设置ResultRange = Application.Union（ResultRange，FoundCell）
万一
万一
设置FoundCell = SearchRange.FindNext（之后：= FoundCell）
如果（FoundCell什么都没有）然后
退出做
万一
如果（FoundCell.Address = FirstFound.Address）然后
退出做
万一
循环
万一
设置FindAll = ResultRange
结束功能
这是一个通用函数，直接拿来使用就行了，可用于在指定的区域查找并返回满足条件的所有单元格 。

推荐阅读


上一篇：老板，做这么多Excel图表，想加班累死我吗？

下一篇：莲蓉月饼怎么做好吃