我在A列中有一个值,我想将其与B列中的多个值进行比较,并根据该值将答案放在C列中。
例如,使用下表,它在B列中搜索小于或等于12的值,并将答案按相同顺序放在C列中。
Column A Column B Column C
12 0,12,13,14 Yes, Yes, No, No
101 101,102,103,104 Yes, No, No, No
如何在Excel中做到这一点?
这正是您想要的。
Option Explicit
Sub DoTheThing()
Dim row As Integer
row = 1 ' WHAT IS THE STARTING ROW
Do While (Range("A" & row).Value <> "")
Dim vals() As String
vals = Split(Range("B" & row).Value, ",")
Dim lookUpValue As String
lookUpValue = Range("A" & row).Value
Dim result As String
result = ""
Dim i As Integer
For i = 0 To UBound(vals)
If CSng(lookUpValue) >= CSng(vals(i)) Then
result = result & "Yes, "
Else
result = result & "No, "
End If
Next i
result = Trim(result)
result = Left(result, Len(result) - 1)
Range("C" & row).Value = result
row = row + 1
Loop
End Sub
我的工作表看起来像
在我运行VBa之后
Excel始终将列的格式设置为number
。它必须保持为Text
!
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句