Excel VBA質問箱 IV

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

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


7784 / 76734 ←次へ | 前へ→

【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

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

4 hits

【74535】マクロを用いたエラー値の削除 argon 13/7/18(木) 19:58 質問
【74539】Re:マクロを用いたエラー値の削除 γ 13/7/19(金) 8:45 発言
【74540】Re:マクロを用いたエラー値の削除 γ 13/7/19(金) 23:47 発言
【74550】Re:マクロを用いたエラー値の削除 argon 13/7/21(日) 23:49 回答
【74551】Re:マクロを用いたエラー値の削除 γ 13/7/22(月) 20:05 発言
【74556】Re:マクロを用いたエラー値の削除 argon 13/7/23(火) 22:03 発言
【74559】Re:マクロを用いたエラー値の削除 γ 13/7/24(水) 8:10 発言

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