| |
▼（。。ｊ） さん：
>VLOOKUPの数式を使って値の入っていないセル（エラー値になっているセル）だけをクリアにするマクロ式を教えてくださいm(_ _)m
>
>因みに数値が入っているセルは既に値を代入しているので数式は入っていない状態です。
>
> #N/A
> #N/A
> #N/A ←全ての#N/Aだけをクリアにしたい。
> 80 ←数式は入っていない。
> #N/A
> 90
「VLOOKUPの数式を使って値の入っていないセル（エラー値になっているセル）だけ」なのに
なんで「 ←数式は入っていない。」とかが絡んでくるのか解りません。
最終的にどうしたいのか全くわかってません。
なんとなく、回答がすでに出ていると思いますが、取りあえずどっちだか解らないけどこんな感じのこと？？？
Sub GTV()
Dim Cel As Range, St As String
For Each Cel In Range("A1:A12")
St = Cel.Formula
If InStr(1, St, "VLOOKUP") > 0 Then
Cel.Formula = "=if(isna(" & Mid(St, 2) & "),""""," & Mid(St, 2) & ")"
End If
Next
End Sub
Sub GTR()
Dim Cel As Range, St As String
For Each Cel In Range("A1:A12")
St = Cel.Formula
If InStr(1, St, "VLOOKUP") > 0 Then
If IsError(Cel) Then
Cel.Value = Empty
End If
End If
Next
End Sub
|
|
Jaka
- 07/7/4(水) 11:02 -
