EXCEL如何使用VBA一次羅列表中三省的員工姓名？

EXCEL如何使用VBA一次羅列表中三省的員工姓名？

請(qǐng)羅列“四川省”、“湖南省”、“湖北省”三個(gè)省份員工的資料。

VBA代碼如下：

Sub test()‘定義變量Dim rng As Range, RngTemp As Range, firstAddress As StringDim i As Byte, findCell As Range, sh As Worksheet, shtname As String‘將查找的目標(biāo)設(shè)置為C2單元格到C列最后一個(gè)非空單元格賦予變量為rngSet rng = Range([C2], Cells(Rows.Count, "C").End(xlUp))‘循環(huán)賦予查找數(shù)組的每一個(gè)元素For i = 0 To UBound(Array("四川省", "湖南省", "湖北省"))‘開(kāi)始查找數(shù)據(jù)，按值精確查找，不區(qū)分大小寫(xiě)Set RngTemp = rng.Find(What:=Array("四川省", "湖南省", "湖北省")(i), LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)‘ 如果找到目標(biāo)，則賦予該目標(biāo)的單元格地址給firstAddressIf Not RngTemp Is Nothing ThenfirstAddress = RngTemp.AddressDo‘變量findCell沒(méi)有初始化，則需要初始化，否則合并查找到的數(shù)值If findCell Is Nothing ThenSet findCell = RngTempElseSet findCell = Union(findCell, RngTemp)End If‘查找下一個(gè)Set RngTemp = rng.FindNext(RngTemp)‘循環(huán)到不為第一個(gè)找到的目標(biāo)地址為止Loop While RngTemp.Address <> firstAddressEnd IfNext i‘如果查找的內(nèi)容不為空，則選擇查找到內(nèi)容所在行，否則顯示提醒If Not findCell Is Nothing ThenfindCell.EntireRow.SelectElseMsgBox "沒(méi)有找到符合條件的數(shù)據(jù)!"Exit SubEnd If‘防止錯(cuò)誤On Error Resume Next‘把當(dāng)前工作表的名稱(chēng)賦予shtnameshtname = ActiveSheet.NameSet sht = Sheets("查詢(xún)結(jié)果")‘如果不存在查詢(xún)結(jié)果表，則添加一個(gè)“查詢(xún)結(jié)果”工作表If Err.Number <> 0 ThenSheets.Add after:=Sheets(Sheets.Count)Sheets(Sheets.Count).Name = "查詢(xún)結(jié)果"ElseSheets(Sheets.Count).Cells.ClearEnd IfSheets(shtname).SelectSelection.Copy Sheets(Sheets.Count).[A1]End Sub

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

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