これ以上省略することは出来ないですか?
IF文をvbaで記載しているのですが
もっと省略できないか?と思っています。
配列は0から14まで格納済みです。
下記のコードは正常に動きます。(一部のみの記載ですが)
置換 = _
IIf(文字列 Like "*" & A配列(0) & "*", "" & B配列(0) & "", _
IIf(文字列 Like "*" & A配列(1) & "*", "" & B配列(1) & "", _
IIf(文字列 Like "*" & A配列(2) & "*", "" & B配列(3) & "", _
IIf(文字列 Like "*" & A配列(3) & "*", "" & B配列(3) & "", _
IIf(文字列 Like "*" & A配列(4) & "*", "" & B配列(4) & "", _
IIf(文字列 Like "*" & A配列(5) & "*", "" & B配列(5) & "", _
IIf(文字列 Like "*" & A配列(6) & "*", "" & B配列(6) & "", _
IIf(文字列 Like "*" & A配列(7) & "*", "" & B配列(7) & "", _
IIf(文字列 Like "*" & A配列(8) & "*", "" & B配列(8) & "", _
IIf(文字列 Like "*" & A配列(9) & "*", "" & B配列(9) & "", _
IIf(文字列 Like "*" & A配列(10) & "*", "" & B配列(10) & "", _
IIf(文字列 Like "*" & A配列(11) & "*", "" & B配列(11) & "", _
IIf(文字列 Like "*" & A配列(12) & "*", "" & B配列(12) & "", _
IIf(文字列 Like "*" & A配列(13) & "*", "" & B配列(13) & "", _
IIf(文字列 Like "*" & A配列(14) & "*", "" & B配列(14) & "", _
"")))))))))))))))
規則としては配列(i)を1つづつ増やすだけなので
どうにか省略できないでしょうか?
(withステートメントみたいに)
よろしくお願いします。
お礼
実際試してみたらそれらしく動いたのですが、ヘルプを見てもバリアント型が何なのかよくわからず、気持ち悪いので今回は一つひとつ代入しました。 データ数が増えたらまじめに検討したいと思います。 回答ありがとうございました。