excel搜索工作表指定列范圍中的數(shù)據(jù)替換其復(fù)制到另一個工作表中

excel搜索工作表指定列范圍中的數(shù)據(jù)替換其復(fù)制到另一個工作表中

這里的應(yīng)用場景如下：

“ 在工作表 Sheet1 中存儲著數(shù)據(jù)，現(xiàn)在想要在該工作表的第O 列至第T 列中搜索指定的數(shù)據(jù)，如果發(fā)現(xiàn)，則將數(shù)據(jù)所在行復(fù)制到工作表Sheet2 中。

用戶在一個一級中輸入要搜索的數(shù)據(jù)值，然后自動將滿足前面條件的所有行復(fù)制到工作表Sheet2 中。”

首先，使用用戶預(yù)先設(shè)計的輸入第一步，如下圖 1 所示。

圖 1

在該用戶常規(guī)模塊中編寫代碼：

私人Sub cmdOK_Click（）

昏暗的工作簿

調(diào)光行

昏暗搜索范圍

昏暗的發(fā)現(xiàn)

Dim rngFoundCells作為范圍

Dim rngFoundCell作為范圍

昏暗的行

Application.ScreenUpdating = False

‘ 賦值工作表Sheet1

設(shè)置wks =工作表（“ Sheet1”）

有星期

‘ 工作表中的最后一個數(shù)據(jù)行

lngRow = .Range（“ A”＆Rows.Count）.End（xlUp）.Row

‘ 被查找的單元格區(qū)域

設(shè)置rngSearch = .Range（“ O2：T”＆lngRow）

“ 查找的數(shù)據(jù)文本值

‘ 由用戶在文本目錄輸入

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

‘ 調(diào)用FindAll 函數(shù)查找數(shù)據(jù)值

‘ 存儲滿足條件的所有單元格

設(shè)置rngFoundCells = FindAll（SearchRange：= rngSearch，_

FindWhat：= FindWhat，_

LookIn：= xlValues，_

LookAt：= xlWhole，_

SearchOrder：= xlByColumns，_

MatchCase：=假，_

BeginsWith：= vbNullString，_

EndsWith：= vbNullString，_

BeginEndCompare：= vbTextCompare）

‘ 如果沒有找到則稱為消息

如果rngFoundCells什么都沒有，那么

轉(zhuǎn)到SendInfo

萬一

‘ 清空工作表Sheet2

Sheets（“ Sheet2”）。Cells.Clear

‘ 獲取數(shù)據(jù)單元格所在的行并復(fù)制到工作表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

結(jié)束于

Application.ScreenUpdating = True

卸載我

退出子

SendInfo：

MsgBox“ 沒有找到數(shù)據(jù) ”，，“ 查找 ”

結(jié)束子

代碼中使用的 FindAll 函數(shù)代碼如下：

‘ 自定義函數(shù)

‘ 獲取滿足條件的所有單元格

函數(shù)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

昏暗區(qū)域作為范圍

昏暗的MaxRow只要長

昏暗的MaxCol只要

昏暗的BeginB為布爾

將EndB昏暗為布爾值

CompMode = BeginEndCompare

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

XLookAt = xlPart

其他

XLookAt = LookAt

萬一

對于SearchRange.Areas中的每個區(qū)域

有面積

如果.Cells（.Cells.Count）.Row> MaxRow然后

MaxRow = .Cells（.Cells.Count）.Row

萬一

如果.Cells（.Cells.Count）.Column> MaxCol然后

MaxCol = .Cells（.Cells.Count）.Column

萬一

結(jié)束于

下一個區(qū)域

設(shè)置LastCell = SearchRange.Worksheet.Cells（MaxRow，MaxCol）

出錯時轉(zhuǎn)到0

設(shè)置FoundCell = SearchRange.Find（What：= FindWhat，_

之后：= LastCell，_

LookIn：= LookIn，_

LookAt：= XLookAt，_

SearchOrder：= SearchOrder，_

MatchCase：= MatchCase）

如果Not FoundCell一無所有

設(shè)置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無效，則

設(shè)置ResultRange = FoundCell

其他

設(shè)置ResultRange = Application.Union（ResultRange，F(xiàn)oundCell）

萬一

萬一

設(shè)置FoundCell = SearchRange.FindNext（之后：= FoundCell）

如果（FoundCell什么都沒有）然后

退出做

萬一

如果（FoundCell.Address = FirstFound.Address）然后

退出做

萬一

循環(huán)

萬一

設(shè)置FindAll = ResultRange

結(jié)束功能

這是一個通用函數(shù)，直接拿來使用就行了，可用于在指定的區(qū)域查找并返回滿足條件的所有單元格。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。