如果单元格为空白，循环goalseek弹出错误的代码

Question

我有VBA代码来循环goalseek。如果单元格为空白，则弹出错误。

Sub Button2_Click()
'
' Button2_Click Macro
'
Dim i As Integer
For i = 13 To 2000
Range("AS" & i).Select
Application.CutCopyMode = False
Application.CutCopyMode = False
Range("AS" & i).GoalSeek Goal:=0, ChangingCell:=Range("AL" & i)
ActiveSheet.Shapes.Range(Array("Button 2")).Select
Next i
End Sub

如何修改下面的代码，我发现到我的代码上面?

For i = 13 To 49 
Cells(i, 4).Select 
If Cells(i, 4).Value <> "" Then 
code.... 
End If 

Answer 1

Sub Button2_Click()
'
' Button2_Click Macro
'
Dim i As Integer
For i = 13 To 2000
If Range("AS" & i).Select <> "" Then
Range("AS" & i).Select
Application.CutCopyMode = False
Range("AS" & i).GoalSeek Goal:=0, ChangingCell:=Range("AL" & i)
ActiveSheet.Shapes.Range(Array("Button 2")).Select
End If
Next i
End Sub