如何在VBA中比较两列，根据第1列的值确定第2列的值，而不将公式添加到第2列

Sub CompareColumns()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取第一列和第二列的最后一行
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 循环遍历每一行
    For i = 1 To lastRow
        ' 比较第一列和第二列的值
        If ws.Cells(i, 1).Value > 10 Then
            ' 如果第一列的值大于10，则将第二列的值设置为"大于10"
            ws.Cells(i, 2).Value = "大于10"
        Else
            ' 否则将第二列的值设置为"小于等于10"
            ws.Cells(i, 2).Value = "小于等于10"
        End If
    Next i
End Sub