Question

在VBA里这段程序只有引用中间段数据的时候可用，前面数据运算显示除数为0，后面的数据运算显示溢出

Private Sub cmd_Click()
Dim arr() As Variant
Dim index1 As Variant, index2 As Variant, gdp1 As Variant, gdp2 As Variant, i, j
arr = Range("A1:C62")
For i = LBound(arr) To UBound(arr)
If a.Value = arr(i, 1) Then
gdp1 = arr(i, 2)
index1 = arr(i, 3)
End If
Next i
For j = LBound(arr) To UBound(arr)
If b.Value = arr(j, 1) Then
gdp2 = arr(j, 2)
index2 = arr(j, 3)
End If
Next j
c.Value = (index1 / index2) * gdp2
d.Value = gdp1 / ((index1 / index2) * gdp2)
End Sub

Answer 1

当所有arr(j,1)不符合b.Value = arr(j, 1) 条件时，index2=0（默认值为0），这样就会导致除数为0的错误。
c.value,d.value 不知道是什么类型，如果是整形的话，最大是65536，根据你的代码，很容易超过这个值，导致溢出。