Excel VBA質問箱 IV

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

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


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

7857 / 76807

←次へ　｜　前へ→


	【74535】マクロを用いたエラー値の削除

argon - 13/7/18(木) 19:58 -


	引用なし

	パスワード

対象データ　3D座標データ（x,y,z）
A列：x座標データ番号
B列：y座標データ番号
C列：x座標データ
D列：y座標データ
E列：z座標データ

目的：z座標にエラー値（周囲とは明らかに異なった値）を含む場合、
　　　1.その値を含む行を削除
　　　2.そのz座標と同じ行にあるy座標データ番号を取得
　　　3.B列を検索してy座標データ番号が等しいものを含む行をすべて削除

エラー値の基準：1.x座標データ番号が1であること
　　　　　　　　2.Z座標が(最大値と最小値の差)*2/3+最小値よりも大きいこと

例：A列10行に1
　　B列10行に20
　　E列10行にエラー値があった場合

　　B列が20となっている行を全て削除
　　削除後に、またエラー値を検索して、
　　エラー値を発見したらそのB列の値を取得し
　　B列中にその値をもつ行を全て削除

　　これをエラー値がなくなるまで継続（ループ）

トライしたこと：エラー値を含む行を削除するマクロとして"エラー"という値を含むマクロは作成できたため、これを応用して作成しようと思ったが、どうやって値を取得して、B列を検索させればいいかわからず途方に暮れています。

最初に作った、エラー値を作るマクロ↓

------------------------------

　Dim lRow As Long
　Dim i As Long
　
　　Worksheets("Sheet1").Activate
　　lRow = Cells(Rows.Count, 1).End(xlUp).Row
　　Application.ScreenUpdating = False
　　For i = lRow To 2 Step -1
　　　　If Cells(i, 5).Value = "エラー" Then
　　　　　　Cells(i, 5).EntireRow.Delete
　　　　End If
　　Next i
　　Application.ScreenUpdating = True

---------------------------------------------------
何卒、アドバイスをお願い致します。

0 hits

▼

【74535】マクロを用いたエラー値の削除 argon 13/7/18(木) 19:58

≪