マクロでセル値をAND

質問

xxx3xx3x
x2x313x1
2x2132xx　　sheet1

x2x122xx
1xx22x3x
x1x33321　　sheet2

xxx1xxxx
xxx22xxx
xxx333xx　　sheet3

上記のようなデータがあり、各文字はセル１つずつに入っています。
sheet3はsheet1とsheet2のANDであり、片側がxならばsheet3ではx、
違う数値同士ならばsheet2の値を活かす　としています。
これを実現するマクロの例を１つ挙げて頂ければと思います。
よろしくお願いします。

回答No.2

keithin · ベストアンサー

＞sheet3はsheet1とsheet2のANDであり、…

フム。。？？

作成例：
sub macro1()
　dim Target as range
　set target = worksheets("Sheet1").range("A1:H3")
　’あるいは
　’set target = worksheets("Sheet1").range("A1").currentregion

　with worksheets("Sheet3").range(target.address)
　　.formula = "=IF(COUNT(Sheet1:Sheet2!A1)=2,Sheet2!A1,""X"")"
　　.value = .value
　end with
end sub

＃「絶対マクロじゃなきゃイヤ」というんじゃなければ，シート３のA1に
=IF(COUNTA(Sheet1:Sheet2!A1)<2,"",IF(COUNT(Sheet1:Sheet2!A1)=2,Sheet2!A1,"X"))
のような式を入れて，近所のセルにコピーして貼り付けておいてください。

お礼

回答ありがとうございます。
やはりワークシート関数も盛り込まないと難しいですよね？
というか、使わずにやるとかなり長めのコードになってしまいます。
今後もよろしくお願いします。

補足

あぁぁぁぁ、、、、
ズレた事を口走ってしまいました。
無視して頂いて助かりました！
アンドーです

回答No.1

__Scorpion__

sheet3のA1に以下の計算式を入力して、縦横にコピーすればOKです。

=IF(Sheet1!A1<>"x",IF(Sheet2!A1<>"x",Sheet2!A1,"x"),"x")

お礼

素早い回答ありがとうございました。
今後もよろしくお願いします。