Excel VBA質問スレ Part5

Excel VBA質問スレ Pa ..

14:デフォルトの名無しさん
07/12/12 21:23:03
Sub 空白セル削除()
Worksheets("Sheet1").Activate
For i = 1 To 1000
If Cells(A, i) = "" Then
Cells(A, i).Delete shift:=xlUp
End If
Next
End Sub

これのダメなところを教えてください。
エラーが出るんですよね

次ページ