VBA 怎么用除法？

VBA 怎么用除法？

是这个意思吗？

Sub a()
    Dim arr, i As Integer
    arr = Array(4, 7, 12, 15)
    For i = 0 To UBound(arr)
        Cells(arr(i), 3) = Cells(arr(i), 2) / Range("F15")
    Next
End Sub追问除了这四个外，剩下的单元格是除以100，放在一起，怎表达？追答Sub aa()
    Dim arr, i As Integer, iRow
    iRow = Range("B60000").End(xlUp).Row
    arr = Array(4, 7, 12, 75)
    For i = 2 To iRow
        Cells(i, 3) = Cells(i, 2) / Range("F13")
    Next
    For i = 0 To UBound(arr)
        Cells(arr(i), 3) = Cells(arr(i), 2) / Range("F15")
    Next
End Sub先都除以100，然后用第二个循环把特殊的单元格除以500即可。
追问嗯，明白，请问这个可以通过循环来得到吗？
通过行的循环，但是我不知道怎么表示这几行特殊行追答Sub aaa()
    Dim arr, i As Integer, iRow
    On Error Resume Next
    iRow = Range("B60000").End(xlUp).Row
    arr = Array(4, 7, 12, 15)
    For i = 2 To iRow
        If IsError(WorksheetFunction.Match(i, arr, 0)) Then
            Cells(i, 3) = Cells(i, 2) / Range("F13")
        Else
            Cells(i, 3) = Cells(i, 2) / Range("F15")
        End If
    Next
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息