我的这个程序，容易死循环，数据溢出，请高手帮忙修改下

xujie_nust

Sub tt()
Dim rg As Range
For Each rg In Range("c1:q100")
If rg = "" And rg.Offset(0, -1) <> "" And rg.Offset(0, -2) <> "" Then
rg = rg.Offset(0, -1) * rg.Offset(0, -2)
End If
Next rg
End Sub

hrpotter

1. Sub test()
   
2.     Dim ar
   
3.     Dim i As Integer, j As Integer
   
4.     ar = Range("a1:q100")
   
5.     For i = 1 To UBound(ar)
   
6.         For j = 3 To UBound(ar, 2)
   
7.             If ar(i, j) = "" And ar(i, j - 1) <> "" And ar(i, j - 2) <> "" Then
   
8.                 ar(i, j) = ar(i, j - 1) * ar(i, j - 2)
   
9.             End If
   
10.         Next
    
11.     Next
    
12.     Range("a1:q100").ClearContents
    
13.     Range("a1:q100") = ar
    
14. End Sub

复制代码