Excel VBA質問箱 IV

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

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


14474 / 76734 ←次へ | 前へ→

【67755】特定の値を含む行の抽出で困っています。
質問  lawry  - 11/1/6(木) 17:27 -

引用なし
パスワード
   現状 下のコードを書いて、特定の値が含まれる行を抽出して別のシートに抽出したのはいいのですが、空白行が多く詰めようと思い色々なサイト等で書かれている空白行削除のマクロをつかってみましたが。空白行がまったく削除されませんでした。 
やりたい事は特定の値を含む行の抽出して別シートに揃える事なので
このコードから空白行を仕分けられるやり方、若しくは根本的に別のやり方がありましたら教えてください。 

2003を使用しています。


自分で書いたもの、
Sub findtheword()

Dim CurPos As Range
Dim i As Integer


i = 2 '行2段目から開始

Application.ScreenUpdating = False

Do
With Worksheets("sheet1")

Set CurPos = Cells(i, 13)  '特定値を含む列にあわせる

If CurPos = "" Then '値が空白だった場合 別シートに行ごとコピペ
Range(Cells(i, 1), Cells(i, 200)).Copy Destination:=Worksheets("sheet2").Cells(i, 1)
Set CurPos = CurPos.Offset(1, 0)
ElseIf CurPos = "特定値" Then '特定値だった場合 別シートに行ごとコピペ
Range(Cells(i, 1), Cells(i, 200)).Copy Destination:=Worksheets("sheet3").Cells(i, 1)
Set CurPos = CurPos.Offset(1, 0)

Else '値が上に当てはまらない場合下セルに移行する。
Set CurPos = CurPos.Offset(1, 0)

End If
End With

i = i + 1


Loop Until i = 26000
End Sub
1 hits

【67755】特定の値を含む行の抽出で困っています。 lawry 11/1/6(木) 17:27 質問
【67770】Re:特定の値を含む行の抽出で困っています。 Jaka 11/1/7(金) 10:54 発言
【67774】Re:特定の値を含む行の抽出で困っています。 lawry 11/1/7(金) 13:29 お礼
【67772】Re:特定の値を含む行の抽出で困っています。 UO3 11/1/7(金) 11:41 発言
【67773】Re:特定の値を含む行の抽出で困っています。 UO3 11/1/7(金) 12:20 回答
【67775】Re:特定の値を含む行の抽出で困っています。 lawry 11/1/7(金) 14:30 お礼

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