|
初めて質問させて頂きます。
F3セル(3行目の6列目)からQ3セルを検索
F4セル(4行目の6列目)からQ4セルを検索・・・・
というふうに検索していって、#N/Aのセルを削除する
というやり方が分かりません。
Dim GYOU As Integer
Dim RETU As Integer
GYOU = 3
RETU = 6
For GYOU = 3 To 300
For RETU = 6 To 16
If IsError(ActiveCell.Value) Then
ERRVAL = ActiveCell.Value
Select Case ERRVAL
Case CVErr(xlErrDiv0)
Range(GYOU, RETU).Delete
Case CVErr(xlErrNA)
Range(GYOU, RETU).Delete
Case CVErr(xlErrRef)
Range(GYOU, RETU).Delete
Case CVErr(xlErrValue)
Range(GYOU, RETU).Delete
End Select
End If
RETU = RETU + 1
Next RETU
RETU = 6
GYOU = GYOU + 1
Next GYOU
自分なりに考えて、このように書いてみました。
よろしくお願いします。
|
|