在excel中使用VBA比较不同大小写的列

Sub CompareCaseSensitiveColumns()
    Dim ws As Worksheet
    Dim column1 As Range, column2 As Range
    Dim cell1 As Range, cell2 As Range
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置要比较的列范围
    Set column1 = ws.Range("A1:A10") ' 第一列
    Set column2 = ws.Range("B1:B10") ' 第二列
    
    ' 获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 循环比较每个单元格的值
    For i = 1 To lastRow
        Set cell1 = column1.Cells(i)
        Set cell2 = column2.Cells(i)
        
        ' 比较不区分大小写的值
        If StrComp(cell1.Value, cell2.Value, vbTextCompare) = 0 Then
            ' 如果相等，执行相应的操作
            ' 例如，可以在第三列中标记为“相等”
            ws.Cells(i, 3).Value = "相等"
        Else
            ' 如果不相等，执行相应的操作
            ' 例如，可以在第三列中标记为“不相等”
            ws.Cells(i, 3).Value = "不相等"
        End If
    Next i
End Sub