Excel 线阵

我正在努力自学数组。有人能用数组翻译下面的代码并解释吗

Dim i As Integer
For i = 1 To 100

If Sheets("Sheet1").Range("A" & i) < Sheets("Sheet1").Range("B1") Then
    Sheets("Sheet1").Range("C" & i) = "Less than"

ElseIf Sheets("Sheet1").Range("A" & i) > Sheets("Sheet1").Range("B1") Then
    Sheets("Sheet1").Range("C" & i) = "Greater than"

Else: Sheets("Sheet1").Range("C" & i) = "Equal to"

End If


Next i

Dim i作为整数
对于i=1到100
如果板材（“板材1”）范围（“A”和i）小于板材（“板材1”）范围（“B1”），则
板材（“板材1”）。范围（“C”和i）=“小于”
其他板材（“板材1”）.范围（“A”和i）>板材（“板材1”）.范围（“B1”）然后
板材（“板材1”）。范围（“C”和i）=“大于”
其他：板材（“板材1”）。范围（“C”和i）=“等于”
如果结束
接下来我

---

谢谢

这段代码使用数组存储根据a列和B列中单元格的比较可能给出的结果

Option Explicit

Sub marine()
    Dim rowNumber As Integer

    ' create an array of strings here
    Dim values(-1 To 1) As String

    ' populate the values
    values(-1) = "less than"
    values(0) = "equal to"
    values(1) = "greater than"


    For rowNumber = 1 To 100
        Dim signValue As Integer
        signValue = Math.Sgn(Sheets("Sheet1").Cells(rowNumber, 1) - Sheets("Sheet1").Cells(rowNumber, 2))

        ' copy the correct value from the array into the cell
        Sheets("Sheet1").Cells(rowNumber, 3).Value = values(signValue)
    Next rowNumber
End Sub

---

你在谷歌搜索过

数组吗？

？谢谢。我给B列赋值，效果很好。