blocks|key|1533851|text|有许多是为了实现这一目标。其中之一是使用IF+&+COUNTIF|type|unstyled|depth|inlineStyleRanges|offset|length|style|BOLD|entityRanges|data|1533852|公式|1533853|=IF(COUNTIF($E$2:$E$6,A2)>0,"TRUE","FALSE")|code-block|syntax|javascript|1533854|结果：|1533855|​|1533856|📷|atomic|1533857|1533858|VBA代码|1533859|Option+Explicit

Sub+findvalues()

++++Dim+i+As+Long
++++Dim+rng+As+Range

++++With+ThisWorkbook.Worksheets("Sheet1")+'Change+if+needed

++++++++Set+rng+=+.Range("A2:A130")+'set+rng+to+includes+values+from+column+A,+rows+2:130

++++++++For+i+=+2+To+130+'Loop+from+row+2+to+130
++++++++++++'Check+if+the+values+in+column+C+includes+in+the+rng
++++++++++++If+Application.WorksheetFunction.CountIf(rng,+.Range("C"+&+i).Value)+>+0+Then
++++++++++++++++.Range("D"+&+i).Value+=+"TRUE"
++++++++++++Else
++++++++++++++++.Range("D"+&+i).Value+=+"FALSE"
++++++++++++End+If

++++++++Next+i

++++End+With

End+Sub|1533860|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://developer.qcloudimg.com/http-save/yehe-900000/4134957ba6d8899e79033164a7c05beb.png|imageAlt^0|K|2|P|7|0|0|2|0|0|0|0|0|1|0|0|0|0|5|0|0^^$0|@$1|2|3|4|5|6|7|17|8|@$9|18|A|19|B|C]|$9|1A|A|1B|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|1C|8|@$9|1D|A|1E|B|C]]|D|@]|E|$]]|$1|H|3|I|5|J|7|1F|8|@]|D|@]|E|$K|L]]|$1|M|3|N|5|6|7|1G|8|@]|D|@]|E|$]]|$1|O|3|P|5|6|7|1H|8|@]|D|@]|E|$]]|$1|Q|3|R|5|S|7|1I|8|@]|D|@$9|1J|A|1K|1|1L]]|E|$]]|$1|T|3|P|5|6|7|1M|8|@]|D|@]|E|$]]|$1|U|3|V|5|6|7|1N|8|@$9|1O|A|1P|B|C]]|D|@]|E|$]]|$1|W|3|X|5|J|7|1Q|8|@]|D|@]|E|$K|L]]|$1|Y|3|-4|5|6|7|1R|8|@]|D|@]|E|$]]]|Z|$10|$5|11|12|13|E|$14|15|16|-4]]]]

There are many was to achieve that. one of them is by using IF &amp; COUNTIF

Formula

<pre><code>=IF(COUNTIF($E$2:$E$6,A2)&gt;0,"TRUE","FALSE")
</code></pre>

Results:

<a href="https://i.stack.imgur.com/WiUb4.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/WiUb4.png" alt="enter image description here"></a>

VBA CODE

<pre><code>Option Explicit

Sub findvalues()

 Dim i As Long
 Dim rng As Range

 With ThisWorkbook.Worksheets("Sheet1") 'Change if needed

 Set rng = .Range("A2:A130") 'set rng to includes values from column A, rows 2:130

 For i = 2 To 130 'Loop from row 2 to 130
 'Check if the values in column C includes in the rng
 If Application.WorksheetFunction.CountIf(rng, .Range("C" &amp; i).Value) &gt; 0 Then
 .Range("D" &amp; i).Value = "TRUE"
 Else
 .Range("D" &amp; i).Value = "FALSE"
 End If

 Next i

 End With

End Sub
</code></pre>

blocks|key|84560|text|根据您在第1和第3栏中提供的数据对您的代码做了轻微的修改。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|84561|Sub+findvalues()
++++Dim+i+As+Long,+j+As+Long,+bResult+As+Boolean

++++For+i+=+2+To+16
++++++++strValueToLookFor+=+Cells(i,+1)

++++++++For+j+=+2+To+16
++++++++++++bResult+=+False

++++++++++++If+strValueToLookFor+=+Cells(j,+3).Value+Then
++++++++++++++++bResult+=+True
++++++++++++++++Exit+For
++++++++++++End+If
++++++++Next+j

++++++++Cells(i,+6).Value+=+bResult
++++Next+i
End+Sub|code-block|syntax|javascript|84562|..。您可能只需要在第二个列表上按下列，这样第一个列表就会搜索，反之亦然。|84563|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

Slight mods to your code based on the data you provided in columns 1 &amp; 3. As always, things could be improved but this should get you going ...

<pre><code>Sub findvalues()
 Dim i As Long, j As Long, bResult As Boolean

 For i = 2 To 16
 strValueToLookFor = Cells(i, 1)

 For j = 2 To 16
 bResult = False

 If strValueToLookFor = Cells(j, 3).Value Then
 bResult = True
 Exit For
 End If
 Next j

 Cells(i, 6).Value = bResult
 Next i
End Sub
</code></pre>

... you may just need to flick the columns over so the first list searches on the second list or vice versa.

blocks|key|1533927|text|我认为不需要使用VBA+--公式是可行的--但是为了避免两个循环，可以这样做：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1533928|Sub+findvalues()

Dim+i+As+Long

For+i+=+2+To+130
++++Cells(i,+4).Value+=+IsNumeric(Application.Match(Cells(i,+1).Value,+Range("C2:C130"),+0))
Next+i

End+Sub|code-block|syntax|javascript|1533929|更新:这不适合多个匹配。|1533930|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

I don't see any need for VBA - formulas are the way to go - but to avoid two loops one could do this:

<pre><code>Sub findvalues()

Dim i As Long

For i = 2 To 130
 Cells(i, 4).Value = IsNumeric(Application.Match(Cells(i, 1).Value, Range("C2:C130"), 0))
Next i

End Sub
</code></pre>

Update: this does not cater for multiple matches.

blocks|key|1533949|text|VBA代码来协调两个列表。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1533950|+Sub+Reconciliation()
Dim+endRow+As+Long
Dim+ICount+As+Long
Dim+Match1()+As+Variant
Dim+Match2()+As+Variant
Dim+ws+As+Worksheet
Set+ws+=+Worksheets("Recon")
ICount+=+0
endRow+=+ws.Cells(ws.Rows.Count,+2).End(xlUp).Row
endRow1+=+ws.Cells(ws.Rows.Count,+11).End(xlUp).Row
Match1+=+Sheet1.Range("b2:b"+&+endRow)
Match2+=+Sheet1.Range("K2:K"+&+endRow1)

For+i+=+LBound(Match1)+To+UBound(Match1)
For+j+=+LBound(Match2)+To+UBound(Match2)
++++If+Match1(i,+1)+=+Match2(j,+1)+Then
++++ICount+=+ICount+%2B+1
++++++++Sheet1.Range("C"+&+i+%2B+1).Value+=+ICount
++++++++Sheet1.Range("L"+&+j+%2B+1).Value+=+ICount
++++Else

+++End+If
+++Next+j
Next+i
End+Sub|code-block|syntax|javascript|1533951|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

VBA code to reconcile two lists.

<pre><code> Sub Reconciliation()
Dim endRow As Long
Dim ICount As Long
Dim Match1() As Variant
Dim Match2() As Variant
Dim ws As Worksheet
Set ws = Worksheets("Recon")
ICount = 0
endRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row
endRow1 = ws.Cells(ws.Rows.Count, 11).End(xlUp).Row
Match1 = Sheet1.Range("b2:b" &amp; endRow)
Match2 = Sheet1.Range("K2:K" &amp; endRow1)

For i = LBound(Match1) To UBound(Match1)
For j = LBound(Match2) To UBound(Match2)
 If Match1(i, 1) = Match2(j, 1) Then
 ICount = ICount + 1
 Sheet1.Range("C" &amp; i + 1).Value = ICount
 Sheet1.Range("L" &amp; j + 1).Value = ICount
 Else

 End If
 Next j
Next i
End Sub
</code></pre>

I am trying to compare values in two lists. I want my code to compare a value in the first list and check all the entries in the second list. If there is a match then the code will print true next to the value in the first list and if not it will print false.

The problem I am having is that my code only compares values that are in the same row.

The code runs and I have tried it on a two smaller lists to make sure the data types are to same and there aren't any extra spaces or commas in the lists that would lead to a "False" output. I have also tried changing the order of the for and if statements but this doesn't work either.

<pre><code>Sub findvalues()
 For i = 2 To 16
 For j = 2 To 16
 If Cells(i, 3).Value = Cells(i, 1).Value Then
 Cells(i, 4).Value = "TRUE"
 ElseIf Cells(i, 3).Value = Cells(j + 1, 1).Value Then
 Cells(i, 4).Value = "TRUE"
 Else
 Cells(i, 4).Value = "FALSE"
 End If
 Next j
 Next i
End Sub
</code></pre>

<a href="https://i.stack.imgur.com/xP3BF.png" rel="nofollow noreferrer">Here are the two lists I am testing the code on</a>

How to create a nested loop to check if a value exists in a second list

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我试图比较两个列表中的值。我希望我的代码比较第一个列表中的值，并检查第二个列表中的所有条目。如果有匹配，则代码将在第一个列表中的值旁边打印true，如果不匹配，则将打印false。我遇到的问题是，我的代码只比较同一行中的值。代码运行，我在两个较小的列表上尝试过，以确保数据类型是相同的，并且列表中没有任何额外的空格或逗号...

问如何创建嵌套循环以检查第二个列表中是否存在一个值
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何创建嵌套循环以检查第二个列表中是否存在一个值EN