检查其他多个工作表上是否存在excel单元格值-如果是，则返回存在于另一列中的工作表名称

Question

我的工作簿的前两页各包含一个单独的列，即A列，其值约为2000。 除了这两张纸之外，我还有42张其他纸，每张纸都包含20-1500个值，也都在单列A中。

对于工作表1和2的A列中的〜2000值中的每个值，我试图检查这些值是否存在于其他42个工作表中。 如果是这样，我希望它们存在的工作表的名称显示在B列中。

所以：

IF sheet1.A1.value EXISTS IN sheet3.A:A
RETURN sheet3.name
ELSE IF sheet1.A1.value EXISTS IN sheet4.A:A
RETURN sheet4.name

等等...

Answer 1

Sub test()

Dim ws As Worksheet
Dim i As Integer
Dim fRange As Range

'Perform search for Sheet1
Set ws = Sheets("Sheet1")

i = 3

While i <= ActiveWorkbook.Sheets.Count

ws.Select
Set fRange = Range("A1")
fRange.Select

While fRange.Value <> ""

Sheets(i).Select
Range("A1").Select

While ActiveCell.Value <> ""

If ActiveCell.Value = fRange.Value Then

fRange.Offset(0, 1).Value = Sheets(i).Name
ActiveCell.Offset(1, 0).Select

Else

ActiveCell.Offset(1, 0).Select

End If

Wend

Set fRange = fRange.Offset(1, 0)

Wend

i = i + 1

Wend

'Perform search for Sheet2
Set ws = Sheets("Sheet2")

i = 3

While i <= ActiveWorkbook.Sheets.Count

ws.Select
Set fRange = Range("A1")
fRange.Select

While fRange.Value <> ""

Sheets(i).Select
Range("A1").Select

While ActiveCell.Value <> ""

If ActiveCell.Value = fRange.Value Then

fRange.Offset(0, 1).Value = Sheets(i).Name
ActiveCell.Offset(1, 0).Select

Else

ActiveCell.Offset(1, 0).Select

End If

Wend

Set fRange = fRange.Offset(1, 0)

Wend

i = i + 1

Wend

End Sub

Answer 2

在工作表集合上使用For Each循环在工作表之间循环。 然后使用Range.Find方法检查是否在工作表上找到该单元格。 如果是这样，只需将工作表名称写到封面。 您可以连接到一个单元格，或使用计数器移动到下一个可用列。