VBA-excel双循环条件

Question

我目前正在excel vba中工作，尽管我的编程非常糟糕。 我想执行以下功能。 我有2个数据范围：

一个范围（a1：a10）指的是需要对照另一范围（b1：b250）检查的变量。 变量要检查的条件是，如果变量（<）小于范围（b1：b250）内的值，则应吐出该变量，否则应显示“ 0”。

因此，a = 1到10应该对照b = 1到250的所有值，就像循环应运行2500次以确保范围（a1：a10）的所有值都对照范围（b1：b250）一样。 如果您可以提供帮助或需要其他什么信息，请告诉我。

Answer 1

您可以做到没有任何循环。 SQL查询为您工作。 这是您可以执行的操作。

Sub tadaaa()

Dim con As Object, rs As Object
Dim query As String, query1 As String
Dim connector As String
Dim address As String
Dim sht As Worksheet
    Set sht = Sheets("Sheet1")


    Set con = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")

    address = ThisWorkbook.FullName

    connector = "provider=microsoft.ace.oledb.12.0;data source=" & _
             address & ";extended properties=""Excel 12.0 Macro;hdr=yes"""

    con.Open connector


    query = "select Defender from [sheet1$] where Defender < "
                            'Source sheet

    For i = 2 To sht.Range("b" & Rows.Count).End(xlUp).Row

        query1 = query & sht.Cells(i, 2).Value

        Set rs = con.Execute(query1) 'Execute the query

        'Recording query results to any sheet you want.
        sht.Cells(6500, 2 * i).End(3).Offset(1, 0).CopyFromRecordset rs

        sht.Cells(1, 2 * i).Value = rs.Fields(0).Name & " vs A" & i

        Set rs = Nothing

        query1 = Empty

    Next


Set con = Nothing


End Sub

这是我的初始工作表。 您的B值在A列中，而A值在B列中。

这是之后的vba代码。

Answer 2

感谢Ali SM展示了一种出色而鲜为人知的方式！ 在使用Ali之前，我会建议另一种Loop-Less方法：

Sub WithoutLoop()

Range("E1").FormulaR1C1 = "=""Vs Examiner ""&OFFSET(R2C2,COLUMN()-5,0)"
Range("E2").FormulaR1C1 = "=IF(OFFSET(R2C2,COLUMN()-5,0)<RC4,OFFSET(R2C2,COLUMN()-5,0),0)"
Range("E1").Copy
Range("E1", Range("E1").Offset(0, 9)).PasteSpecial xlPasteFormulas
Range("E2").Copy
Range("E2", Range("E2").Offset(2500, 9)).PasteSpecial xlPasteFormulas

End Sub

在宏之前：

在宏之后：