|
こんにちは。
こんな感じにして、F8ステップモードで1行1行確認してみるとわかるとお見ます。
With rngb
.Offset(0, 2).Select '←これ追加
.Offset(0, 2).Formula = "=IF(SUMPRODUCT((" & Aadd & "=rc[-2])*(" & _
Badd & "=rc[-1]))=1,true,"""")"
On Error Resume Next
Set ans = .Resize(, 3).SpecialCells(xlCellTypeFormulas, xlLogical)
ans.Select '←これ追加
.Offset(0, 2).Select '←これ追加
.Offset(0, 2).ClearContents
If Err.Number = 0 Then
ans.EntireRow.Select '←IF文改行して、これ追加
ans.EntireRow.Delete
End If
On Error GoTo 0
End With
ichinoseさんへ
sushiki = "=if(iserror(FIND(""ED""," & myadd & "))," & _
"if(" & myadd & "="""",""""," & myadd & ")," & _
"MID(" & myadd & ",FIND(""ED""," & myadd & "),LEN(" & myadd & ")))"
Debug.Print sushiki '数式を確認して下さい
rng.Value = Evaluate(sushiki)
う〜ん、さすがと言うか、こういうセル範囲でのEvaluateと、セル範囲での関数は全く思いつかなかったです。
勉強になりました。
今度からこれ使おうっと...。
どうも、ありがとうございました。
でも、SpecialCellsで、飛び飛びになった場合はやっぱしダメでしたね。
|
|