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