Excel VBA質問箱 IV

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

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


23956 / 76732 ←次へ | 前へ→

【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
1 hits

【58131】数値データのみ抽出 まさと 08/10/5(日) 14:31 質問
【58132】Re:数値データのみ抽出 カウボーイズ 08/10/5(日) 15:08 回答
【58133】Re:数値データのみ抽出 Hirofumi 08/10/5(日) 17:35 回答
【58134】Re:数値データのみ抽出 Hirofumi 08/10/5(日) 18:24 発言
【58135】Re:数値データのみ抽出 Hirofumi 08/10/5(日) 18:41 回答
【58136】Re:数値データのみ抽出 まさと 08/10/5(日) 19:12 お礼
【58139】Re:数値データのみ抽出 まさと 08/10/6(月) 0:12 質問
【58156】Re:数値データのみ抽出 Hirofumi 08/10/6(月) 18:52 回答
【58157】Re:数値データのみ抽出 Hirofumi 08/10/6(月) 18:56 回答
【58222】Re:数値データのみ抽出 まさと 08/10/12(日) 12:46 お礼

23956 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free