如何解决遍历工作表中的范围并更新另一个范围
我希望能够:
查找范围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
解决方法
此代码提供您的输出:
' 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列开始。
这里是您可以使用公式来完成此操作的一种方法,但它需要使用附加的列作为帮助程序。
例如,将以下公式粘贴到单元格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),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 +
+-------+-------+-------+-------+
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。