如何在sheet6区域"b2:b“中的所有单元格中搜索sheet2区域m7:m1000中的匹配值

Question

如何将id更改为一个范围？对于范围中的每个单元格，搜索最后一行。

Dim id As String
Dim finalrow As Integer
Dim i As Integer
Dim rng As Range
Set rng = Sheet6.Range("B2:B8")
id = Sheet6.Range("A2").Value
finalrow = Sheet2.Range("C6000").End(xlUp).Row

For i = 2 To finalrow
    For Each cell In rng
    If Sheet2.Cells(i, 3) = id Then
    'MsgBox "FOUND IT"
    Sheet6.Range("D2").Value = Sheet2.Cells(i, 2).Value
End If
Next
    Next i

Answer 1

a) VB代码

截图(b)指的是：

Sub search_tool()
  i = 0
  For Each cell_1 In Range("b6", Range("b6").End(xlDown))
    target = cell_1.Value
   
    For Each cell_2 In Range(target).Cells
      i = i + 1
      Range("b16").Offset(i - 1).Value = cell_2.Value
      Range("c16").Offset(i - 1).Formula2R1C1 = target
    Next
  Next
End Sub

b)截图

​

​

(谷歌工作表，w/ VB代码和其他工作表-隐藏的，受保护的-参见c- included here)

c)它是如何工作的

1. inputs :将要搜索的目标单元格输入为常规文本(带黄色阴影的单元格)
2. Include sheet names (隐藏或其他)，如first和last inputs (B6，B10)中所示。注意:受密码保护的工作表和窗口结构不会禁止/限制此宏的功能(仅在基本限制下测试-有关执行宏时填充的不同工作簿(open/closed).
3. Outputs:的详细信息，请参阅d节)(现有值将被覆盖为required)
4. Alternative VB代码，以便快速引用/查找单元格：

Application.Goto Reference:="R6C5:R7C5"

d)其他

(非必要信息，不直接相关/在Q中请求，但根据需要值得考虑)。

测试隐藏/受保护的工作表。以下截图的基本标准：

工作表中的

• 单元格已锁定(默认设置，但使用右键单击进行检查|在隐藏“隐藏”工作表之前对工作表和结构应用了properties)
• Password保护。

​

​