当前所在位置: 首页 > 儿童教育 > 正文

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

2023-01-26 餐饮美食网 【 字体:

这里的应用场景如下:

“ 在工作表 Sheet1 中存储着数据,现在想要在该工作表的第O 列至第T 列中搜索指定的数据,如果发现,则将数据所在行复制到工作表Sheet2 中。

用户在一个一级中输入要搜索的数据值,然后自动将满足前面条件的所有行复制到工作表Sheet2 中。”

首先,使用用户预先设计的输入第一步,如下图 1 所示。

图 1

在该用户常规模块中编写代码:

私人Sub cmdOK_Click()

昏暗的工作簿

调光行

昏暗搜索范围

昏暗的发现

Dim rngFoundCells作为范围

Dim rngFoundCell作为范围

昏暗的行

Application.ScreenUpdating = False

‘ 赋值工作表Sheet1

设置wks =工作表(“ Sheet1”)

有星期

‘ 工作表中的最后一个数据行

lngRow = .Range(“ A”&Rows.Count).End(xlUp).Row

‘ 被查找的单元格区域

设置rngSearch = .Range(“ O2:T”&lngRow)

“ 查找的数据文本值

‘ 由用户在文本目录输入

FindWhat =“ *”&Me.txtSearch.Text和“ *”

‘ 调用FindAll 函数查找数据值

‘ 存储满足条件的所有单元格

设置rngFoundCells = FindAll(SearchRange:= rngSearch,_

FindWhat:= FindWhat,_

LookIn:= xlValues,_

LookAt:= xlWhole,_

SearchOrder:= xlByColumns,_

MatchCase:=假,_

BeginsWith:= vbNullString,_

EndsWith:= vbNullString,_

BeginEndCompare:= vbTextCompare)

‘ 如果没有找到则称为消息

如果rngFoundCells什么都没有,那么

转到SendInfo

万一

‘ 清空工作表Sheet2

Sheets(“ Sheet2”)。Cells.Clear

‘ 获取数据单元格所在的行并复制到工作表Sheet2

对于rngFoundCells中的每个rngFoundCell

lngCurRow = Val(Mid(rngFoundCell.Address,4,Len(rngFoundCell.Address)))

范围(“ A”&lngCurRow和“:Z”&lngCurRow)。

Sheets(“ Sheet2”)。Cells(Rows.Count,1).End(xlUp).Offset(1)

下一个rngFoundCell

结束于

Application.ScreenUpdating = True

卸载我

退出子

SendInfo:

MsgBox“ 没有找到数据 ”,,“ 查找 ”

结束子

代码中使用的 FindAll 函数代码如下:

‘ 自定义函数

‘ 获取满足条件的所有单元格

函数FindAll(SearchRange AsRange,_

FindWhat作为变体,_

可选的LookIn为XlFindLookIn = xlValues,_

XlLookAt = xlWhole的可选LookAt,_

可选SearchOrder AsXlSearchOrder = xlByRows,_

可选MatchCase为布尔值= False,_

可选的BeginsWith As String = vbNullString,_

可选的EndsWith As String = vbNullString,_

可选的BeginEndCompare AsVbCompareMethod = vbTextCompare)作为范围

昏暗FoundCell作为范围

昏暗的FirstFound作为范围

DimLastCell作为范围

昏暗ResultRange作为范围

昏暗的XLookAt作为XlLookAt

暗含为布尔

Dim CompMode作为VbCompareMethod

昏暗区域作为范围

昏暗的MaxRow只要长

昏暗的MaxCol只要

昏暗的BeginB为布尔

将EndB昏暗为布尔值

CompMode = BeginEndCompare

如果BeginsWith <> vbNullString或EndsWith <> vbNullString然后

XLookAt = xlPart

其他

XLookAt = LookAt

万一

对于SearchRange.Areas中的每个区域

有面积

如果.Cells(.Cells.Count).Row> MaxRow然后

MaxRow = .Cells(.Cells.Count).Row

万一

如果.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

结束功能

这是一个通用函数,直接拿来使用就行了,可用于在指定的区域查找并返回满足条件的所有单元格。

阅读全文
相关推荐

如何自制蛋挞

如何自制蛋挞
1、倒入低筋面、黄油和水,揉成面团状,藏一小时后取出,抹上黄油卷起,包上保鲜膜冷藏半小时。2、取出,将面团切成一厘米的面团,放入模具内,用力按压,中间稍薄,外缘要比模具高,将蛋挞液倒入蛋挞皮中,放入烤箱里烤30分钟即可。

肉火烧面怎么和面

肉火烧面怎么和面
1、首先用温水把酵母融开,加入面粉,用手把面粉揉成非常软的面团,可以放一点熬好的猪油在面团里面。2、然后放在温暖的地方,盖上保鲜膜发酵至2倍大,发好的面团用手插入不回缩,就说明面团发酵好了。

奶茶几分糖好喝

奶茶几分糖好喝
1、不同的人对奶茶的口感要求是不一样的,一般来说,奶茶有三分糖、五分糖、七分糖三种不同的口味。2、女生一般都喜欢喝甜一点的,而男生则喜欢喝不那么甜的,七分糖的奶茶最好喝。

过桥米线是哪里的?

过桥米线是哪里的?
过桥米线是来自云南省滇南地区的一种有名特色小吃。过桥米线最早是在清朝就已经出现,距离现在至少有一百多年的历史啦!起源于建水县东城外锁龙桥西侧的鸡市街头处,有建水的特产草芽、地椒作配料,风味独特而远近闻名。深受广大美食爱好者的喜欢,不少人为此专门长途跋涉,只为尝

面霜和乳液的区别

面霜和乳液的区别
面霜和乳液的区别,相较而言乳液的水分含量要比面霜高,乳液质地要轻薄一些,乳液主要作用是保湿,滋润可以隔离外界干燥的气候,面霜既可保湿,又可美白,还能抗衰老,乳液的吸收快一些,而面霜吸收比较慢一些,因为液体的吸收速度都比较快。

怎么摘隐形眼镜

怎么摘隐形眼镜
在摘隐形眼镜之前,先用洗手液将手清洗干净,以免将细菌带入眼睛内,对着镜子,用右手中指轻拉眼睛下眼睑,左手中指轻拉眼睛上眼睑,让黑色眼球暴露在空气中,用右手食指和拇指轻触镜片的两边缘部分,向中间推使镜片拱起,再用两手指轻轻捏出镜片即可。

粉饼和散粉的区别

粉饼和散粉的区别
粉饼是呈压缩固体状态,多呈圆形或者方形,散粉则是细腻的粉末状,粉饼遮瑕力会比较强一些,可以湿用做粉底,或者用来补妆,而散粉则是定妆的效果,粉饼通常用在底妆的第一步,而散粉通常用在底妆最后一步。

冷烫和热烫的区别

冷烫和热烫的区别
冷烫和热烫的区别:冷烫对头发的要求是要在保温状态下才能给卷有个好的效果,而热烫是在干和湿的情况下都行,热烫烫出来的头发比较自然明显而有弹力,冷烫的头发风干后基本看不出来,并且发质会有点干。

高品质香水如何鉴别?用三步就可以解决

高品质香水如何鉴别?用三步就可以解决
1、看色泽以天然香料调制而成的高级香水,都有它本来的颜色,且大都是琥珀色或褐色,看起来很像宝石,比如,从茉莉、玫瑰或水仙等天然鲜花中所萃取的精油都呈黄色、褐白或绿褐色;此外,香水中所添加的魅惑香气物性香料也是褐色,苔类中的橡树苔是绿色,从树根或树根脂类中萃取的

如何去除黑眼圈

如何去除黑眼圈
去除黑眼圈首先可以用热毛巾敷眼,然后再用冷毛巾敷,十分钟就能让黑眼圈淡化的不那么严重,其次将去壳后的鸡蛋用无菌纱布包裹住,敷于眼部轻轻转动,可以急救去除黑眼圈,另外抹完眼霜后,用双手顺时针按摩,可以促进血液循环消除黑眼圈。
本文Tag