遍历工作表中的范围并更新另一个范围

Question

我希望能够： 查找范围B1:B4中的单元格是否包含范围A1:A4中的字符串，然后将该字符串插入C1:C4中 即在B1:B4的单元格中查找第一个字符串，然后在A1:A4中查找它，如果找到，则将该字符串放在C1:C4中，并将其与A1:A4中的匹配项放在同一行 请参阅我的示例表和预期的输出。 我从=INDEX(C1:C4,MATCH(1,A1:A4, B1:B4 ,0))开始，然后考虑使用VBA。参见下面的代码：

编辑1“

Option Explicit 

Sub findMatch() 

Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range
Dim cell1 As Range
Dim cell2 As Range 
Dim cell3 As Range

With Worksheets("Sheet1")
Set rng1 = .Range("A1:A4")
Set rng2 = .Range("B1:B4") 
Set rng3 = .Range("C1:C4")

For Each cell1 In rng1
   For Each cell2 In rng2 
          For Each Cell3 In rng3
   If cell1 Like *'cell2'* Then 
   cell1 In rng3 = cell2 In rng3
   End If 
   Next cell2 
   Next cell1 
   Next cell3
   End With 
   
End Sub

表格：

`A1:A10` `B1:B10` 
+-------+--------+
+ 123   + 555    +
+-------+--------+
+ 555   + 66     +
+-------+--------+
+ S666E + 666    +
+-------+--------+
+ 77E   + 123    +
+-------+--------+

预期：

`A1:A4` `B1:B4` `C1:C4`
+-------+--------+-----+
+ 123   + 555    + 123 +
+-------+--------+-----+
+ 555   + 66     + 555 +
+-------+--------+-----+
+ S666E + 666    + 666 +
+-------+--------+-----+
+ 77E   + 123    +     +
+-------+--------+-----+

编辑2

也尝试过：

Dim rng as Range
Set rng = Range("A:A").Find(What:=Range("B:B").Value), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False)
If rng Not Is Nothing Then
Range("C:C").Value =  Range("B1:B").Value 
End If

Answer 1

此代码提供您的输出：

' spreadsheet data
With Cells
.Clear
.HorizontalAlignment = xlHAlignRight
End With
Range("a1:a4") = WorksheetFunction.Transpose([{"123", "555", "S666E", "77E"}])
Range("b1:b4") = WorksheetFunction.Transpose([{"555",  "66", "666", "123"}])

' code
For Each cellB In Range("b1:b4")
For Each cellA In Range("a1:a4")
If InStr(cellA, cellB) > 0 Then Range("c" & cellA.Row) = cellB
Next cellA
Next cellB

如果在cellB中找到了cellA，则cellB被写在C列中，并且匹配行从A列开始。

Answer 2

这里是您可以使用公式来完成此操作的一种方法，但它需要使用附加的列作为帮助程序。

例如，将以下公式粘贴到单元格D1中（在此示例中，列D将为帮助列）。这是一个数组公式，因此您可能需要按Ctrl + Shift + Enter才能完成公式。之后，您可以将公式复制到该列中。此示例假定数据从第1行到第500行，但是您可以轻松地对其进行更改。

{=IF(B1<>"", MAX(IF(ISNUMBER(FIND(B1, $A$1:$A$500)), ROW($A$1:$A$500), 0)), "")}

上述公式的作用是查找A1：A500范围内的B1值，如果找到该行，则返回找到行的行号。

接下来，将以下公式粘贴到单元格C1中。同样，这是一个数组公式，因此您可能需要按Ctrl + Shift + Enter才能完成公式。之后，您可以将公式复制到列中。

{=IFERROR(INDIRECT(ADDRESS(MAX(IF(ROW()=$D$1:$D$500, ROW($D$1:$D$500), 0)), 2)), "")}

上面的公式会查找D1：D500范围内的当前行号，如果找到，它将获取找到该行的行的行号，并检索在B列的同一行中找到的值。

>

下面是一个示例：

  A1:A4   B1:B4   C1:C4   D1:D4
+-------+-------+-------+-------+
+ 123   + 555   + 123   + 2     +
+-------+-------+-------+-------+
+ 555   + 66    + 555   + 3     +
+-------+-------+-------+-------+
+ S666E + 666   + 666   + 3     +
+-------+-------+-------+-------+
+ 77E   + 123   +       + 1     +
+-------+-------+-------+-------+