Excel VBA質問箱 IV

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

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


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

23620 / 76732

←次へ　｜　前へ→


	【58477】Re:条件に当てはまる行を削除

こぎつね - 08/10/27(月) 17:50 -


	引用なし

	パスワード

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

下から実行する事と、数値に変換できない値であるかで判断した場合、

Sub Macro1_test()

Dim fig As Long

For fig = 60000 To 1 Step -1

If Not IsNumeric(Cells(fig, 1).Value) Then
　　Rows(fig).Select
　　Selection.Delete Shift:=xlUp
End If
Next fig

End Sub
こんな感じでしょうか？
ただ60000行から実行する場合があるのかが疑問ですけど。

1 hits

▼

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