檢查其他多個工作表上是否存在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方法檢查是否在工作表上找到該單元格。 如果是這樣，只需將工作表名稱寫到封面。 您可以連接到一個單元格，或使用計數器移動到下一個可用列。