Excel2007でまた質問です

質問

Excel2007のマクロで置き換えと言うか代入という表現が正しいのかは不明なんですが、次のことがしたいです。
１、セルM29からS29までかそれ以上のセルの1つずつにデータが3つずつ入ってます。

２、それらのデータを入ってる形によって別な記号に変えてM30からS30までかそれ以上に入れたいです。
M29アイウ→M30にA
N29アウイ→N30にB
O29イウア→O30にC
P29アイウ→P30にA
Q29イアウ→Q30にD
R29ウアイ→R30にE
S29ウイア→S30にF
………

と、この様になんですが。お願いいたします。

回答No.5

SI299792 · ベストアンサー

マクロは、既に上がっているので必要ないと思いました。
同じやり方を載せてもも仕方が無いので、違うやり方を載せます。
但し、watabe007 さんのやり方の方が優れてます。
'
Option Explicit
'
Sub Macro1()
'
　　Dim Col As Integer
　　Dim Cell As Variant
'
　　For Col = 13 To [M29].End(xlToRight).Column
　　　　Cell = "," & Cells(29, Col) & ","
　　　　Cell = InStr("　 ,アイウ,アウイ,イウア,イアウ,ウアイ,ウイア,", Cell) \ 4
　　　　Cells(30, Col) = Mid(" ABCDEF", Cell + 1, 1)
　　Next Col
End Sub

私ならこの程度にマクロは使いません。
関数だとあまりに複雑になるため、関数でできてもマクロを使った方が良いという事もあります。
マクロの学習のためにあえてマクロを使うのもいいですが、関数でも可能ということは頭に入れておいた方が良いです。

お礼

できました。ありがとうございました。

回答No.4

SI299792

=IF(M29="","",MID("ABCDEF",FIND(","&M29&",",",アイウ,アウイ,イウア,イアウ,ウアイ,ウイア,")/4+0.75,1))
という関数でもできます。

お礼

待ってました！ありがとうございます。マクロの場合はどうなりますか？

回答No.3

watabe007

マクロで行うのなら
Sub Test()
　　Dim c As Range, myArr1 As Variant, myArr2 As Variant, n As Variant
　　myArr1 = Array("アイウ", "アウイ", "イウア", "イアウ", "ウアイ", "ウイア")
　　myArr2 = Array("A", "B", "C", "D", "E", "F")
　　For Each c In Range("M29:S29")
　　　　n = Application.Match(c.Value, myArr1, 0)
　　　　If Not IsError(n) Then c.Offset(1).Value = myArr2(n - 1)
　　Next
End Sub

お礼

ありがとうございました。ちょっと勉強しながら試してみます。

回答No.2

mt2015

別な場所にデータと記号の対応表を作って、30行目のセルにVLOOKUP関数を使って記号を表示します。
添付の図の例では対応表をO21:P26に作成し、M30には以下の式を入れました。
=VLOOKUP(M29,$O$21:$P$26,2,FALSE)

お礼

多種多様な解答があるんですね。ありがとうございました。試してみます。

回答No.1

kanti42

LOOKUP関数の使用でどうでしょう？
画像参照願います。

条件を別セルに
LOOKUPで検索し条件別書き込み
セル関数はｆｘ欄参照願います

お礼

色々勉強してみます。ありがとうございました。