[神马]VBA查找匹配项

为了一顿小龙虾，不惜花了一下午时间。

Sub 小龙虾()Dim sheetCnt As Integer, zongbiaorow As Integer, biaorow As Integer, i As Integer, j As Integer, k As Integer, p As IntegerDim s As String, target As StringDim ww As Rangesheetname = ActiveWindow.ActiveSheet.Name '当前表格名字sheetCnt = Worksheets.Count '表示数量zongbiaorow = ActiveSheet.UsedRange.Rows.Count   '总表行数Debug.Print "总表行数", zongbiaorowFor j = 1 To zongbiaorowtarget = Cells(j, 3).Value '要查找的对象'遍历表格For i = 1 To sheetCntIf Worksheets(i).Name <> sheetname Then '排除总表Set ww = Application.ThisWorkbook.Worksheets(i).Range("C:C").Find(target, , , , , , xlNext)If Not ww Is Nothing ThenDebug.Print "查找数据", target, " 在", Worksheets(i).Name, " 在", ww.RowApplication.ThisWorkbook.Worksheets(i).cells(j,9) = Worksheets(i).NameEnd If            End IfNext
NextMsgBox "吃小龙虾了" End Sub

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！