VBA (Excel) 与 SQL - 比较两行中的值（循环）

使用VBA（Visual Basic for Applications）和SQL（Structured Query Language）可以轻松比较Excel中的两行数据，并进行循环操作。本文将介绍如何使用这两种技术来实现该功能，并提供案例代码进行演示。

vba
Sub CompareRows()
    Dim rng As Range
    Dim i As Integer
    
    ' 设置要比较的范围
    Set rng = Range("A1:B2")
    
    ' 循环比较每个单元格的值
    For i = 1 To rng.Columns.Count
        ' 使用SQL语句来比较两行的值
        If rng.Cells(1, i).Value > rng.Cells(2, i).Value Then
            ' 如果第一行的值大于第二行的值，则在第三行输出“较大”
            rng.Cells(3, i).Value = "较大"
        ElseIf rng.Cells(1, i).Value < rng.Cells(2, i).Value Then
            ' 如果第一行的值小于第二行的值，则在第三行输出“较小”
            rng.Cells(3, i).Value = "较小"
        Else
            ' 如果两行的值相等，则在第三行输出“相等”
            rng.Cells(3, i).Value = "相等"
        End If
    Next i
End Sub