excel - if else 中的 if else 错误

Question

我正在尝试在另一个 if else 中执行一个 if else 。但它一直给我带来了 Else without If 的错误。我有一个 if 但为什么 VBA 没有看到它？

a = Sheet1.ComboBox1.value
If unit <> a Then
  If a = "mils" Then
    Set cx = Sheet9.range("E2", Sheet9.range("E2").End(xlDown))
    For Each rng In cx
    rng.value = rng.value * y
  Else
    Set cx = Sheet9.range("E2", Sheet9.range("E2").End(xlDown))
    For Each rng In cx
    rng.value = rng.value / y
  End If
End If

Answer 1

您缺少 For 的 Next，这使得 IF 和 For block 交错.

a = Sheet1.ComboBox1.value
If unit <> a Then
  If a = "mils" Then
    Set cx = Sheet9.range("E2", Sheet9.range("E2").End(xlDown))
    For Each rng In cx
      rng.value = rng.value * y
    Next ' <------------------------------ Missing
  Else
    Set cx = Sheet9.range("E2", Sheet9.range("E2").End(xlDown))
    For Each rng In cx
      rng.value = rng.value / y
    Next ' <------------------------------- Missing
  End If
End If