|
対象データ 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
---------------------------------------------------
何卒、アドバイスをお願い致します。
|
|