Excel VBA質問箱 IV

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

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


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

24031 / 76807

←次へ　｜　前へ→


	【58131】数値データのみ抽出

まさと - 08/10/5(日) 14:31 -


	引用なし

	パスワード

お世話になります。
以下の例のように、数値のブロックと文字のブロックのデータがあるのですが、現在数値以外を片っ端から消去して、数値だけ残した状態で他のシートに飛ばしているといった現状です。現在私の使っているコードは以下の通りで、数値だけを抽出しています。
ここで質問なのですが、この処理では若干速度が遅く、使い物にならない状態でして、これより高速に数値だけのブロックを他のシートに移動させたいのですが
。結果させ、伴っていたら方法は選ばないので方法論としてご存知の方がいましたらどうぞアドバイスお願いします。

Dim mymax,i　as variant
mymax = Worksheets("ﾃｽﾄ").RANGE("A65536").End(xlUp).row
For i = mymax To 1 Step -1
　If IsNumeric(Sheets("ﾃｽﾄ").Cells(i, 2)) = False Or Cells(i, 2) = "" Then
　　　 Rows(i).Select
　　　 Selection.Delete Shift:=xlUp
　End If
Next

////////////例/////////////////////////
(シート1）
11111111111111
11111111111111

あああああああ

22222222222222
　　↓
（シート2）
11111111111111
11111111111111
22222222222222

0 hits

▼

【58131】数値データのみ抽出 まさと 08/10/5(日) 14:31

≪