Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

23627 / 76738

←次へ　｜　前へ→


	【58476】条件に当てはまる行を削除

すー - 08/10/27(月) 17:19 -


	引用なし

	パスワード

最近VBAを始めた初心者ですが、どうか皆さん力を貸して下さい。

エクセルで、A列のセルに数値以外のものが入ってる時、その行を削除（上にスクロール）できる様なマクロを作成しましたが、どうも上手く動作しません。エラーは出ないんですが、実行された後も見られないんです。何処が駄目なんでしょうか??どなたかアドバイスをよろしくお願い致します。

Option Explicit

Sub Macro1()

Dim fig As Long
Dim num As Variant

For fig = 1 To 60000

num = Cells(fig, 1).Value

If num > -1 Then
Else
　　
　　Rows(fig).Select
　　Selection.Delete Shift:=xlUp

End If
Next fig

End Sub

2 hits

▼

【58476】条件に当てはまる行を削除 すー 08/10/27(月) 17:19

≪