Excel2007で質問です

質問

U3～AF3のセルの１つずつにアイウエオカキクケコのいずれかがランダムに入ります。

ランダムに入ったそれらを利用してアイウエオカキクケコの記号から消して残った記号をセルAHから右に向かって各セルに１つずつ入れます。

先程の残った記号の入ったAHから右のセル群を今度はsheet1に行きましてA1から下に向かって入れたいです。

誰か教えて下さい。

回答No.4

watabe007 · ベストアンサー

参考に
Sub Test()
Dim myArr As Variant, myStr As Variant, i As Long
myArr = Array("ア", "イ", "ウ", "エ", "オ", "カ", "キ", "ク", "ケ", "コ")
For Each myStr In myArr
If IsError(Application.Match(myStr, Sheets("Sheet2").Range("U3:AF3"), 0)) = True Then
Sheets("Sheet2").Range("AH3").Offset(, i).Value = myStr
Sheets("Sheet1").Range("A1").Offset(i).Value = myStr
i = i + 1
End If
Next
End Sub

回答No.3

msMike

》 で、教えて頂いけたらと思います
貴方が説明されていることを、いまだに理解できないので、サヨナラです。

お礼

そうですか。それは残念です。

回答No.2

msMike

質問文で
》 U3～AF3のセルの１つずつにアイウエオカキクケコの
》 いずれかがランダムに入ります。
と貴方は仰った、ウン。

今度は
》 U3～AF3のセル１つずつにアだけが入れば…
え？！矛盾してませんか？

チコちゃんの声「ボーっと生きてんじゃねーよ!」

お礼

それは例えなんですけども…。例と書いとくべきでしたね。

ランダムなんで無作為に記号が入りますし法則性は無いに等しいです。勿論、アだけが入ることも十分にありえますので、分かりやすく例としてその様な形で上げさせていただきました。付け加えで空白が入る場合もあります。

いつもお気に掛けて頂いてありがとうございますmsMikeさん。
チコちゃんによろしく。

で、教えて頂いけたらと思います。

補足

ランダムって言葉はいらなかったですね。

規則性が無いことを強調したかったのでつい欲張ってその言葉を入れてしまいました

いずれかが入るってありますが、空白のセル(常に有るわけではないです。)もあります。

回答No.1

msMike

「アイウエオカキクケコの記号から消して残った記号」の意味が不明です。
末尾に「今度はsheet1に行きまして」とあるけど、それまで述べられていたのはどの Sheet についてだったのですか？
チコちゃんから叱られないように、分かり易く解説願います。

お礼

>「アイウエオカキクケコの記号から消して残った記号」の意味が不明です。

例えばU3～AF3のセル１つずつにアだけが入れば、アが除かれたイウエオカキクケコをセルAH3から右に向かってのセルの１つずつにイウエオカキクケコと入れたいです。
AH3にイ、AI3にウ、AJ3にエ、AK3にオ、AL3にカ……という風に。
その次にU3～AF3にイ、ウ、エ、オ、がランダムに(空白があっても)入れば
AH4にア、AI4にカ、AJ4にキ、AK4にク、AL4にケ……という風にしたいです。

>末尾に「今度はsheet1に行きまして」とあるけど、それまで述べられていたのはどの Sheet についてだったのですか？

それまでに述べられていたのはsheet2です。

>チコちゃんから叱られないように、分かり易く解説願います。
チコちゃんのお叱りが目に浮かびます…。
下手な質問ですみません。