No.2
- 回答日時:
添付図参照
C1: =LEN(A1)
D1: =IF(COLUMN(A1)>LEN($A1),"",IFERROR(VLOOKUP(MID($A1,COLUMN(A1),1),clist,2,FALSE)," "))
ただし、clist は、範囲 AS1:At26 に付けた名前
セル D1 を右方にズズーッと(W列まで)オートフィル
セル X1 は空白のまま放置
Y1: =X1&D1
セル Y1 を右方にズズーッと(AQ列まで)オートフィル
B1: =AQ1
範囲 B1:AQ1 を下方にズズーッとオートフィル
mike_gさん
ありがとうございます。ビジュアルでわかりやすくまとめてくださり
たすかりました。
本当にありがとうございます。
No.1ベストアンサー
- 回答日時:
こんにちは!
手っ取り早くVBAでの一例です。
↓の画像のようにD・E列に対応表を作成しておきます。
(最終行は両セルとも半角スペースをいれています)
元データはA2セル以降にあり、B列に表示するとします。
画面左下の操作したいシート見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)マクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
Sub Sample1() '//この行から//
Dim i As Long, k As Long
Dim c As Range, myStr As String, buf As String
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
For k = 1 To Len(Cells(i, "A"))
myStr = Mid(StrConv(Cells(i, "A"), vbNarrow), k, 1)
Set c = Range("E:E").Find(what:=myStr, LookIn:=xlValues, lookat:=xlPart)
buf = buf & c.Offset(, -1)
Next k
Cells(i, "B") = buf
buf = ""
Next i
End Sub '//この行まで//
※ アルファベット限定としています。
E列にない文字があるとエラーになります。m(_ _)m
tom04さん
早速にありがとうございます!教えていただいた通りにやってみたらすぐにできました!!
「教えて!goo」は初投稿で、こんなに早く、丁寧にお返事をいただき、感動しています。
tom04さんとても分かりやすく教えていただきありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
[EXCEL]ボタン押す→時刻が表に...
-
エクセル マクロで数値が変っ...
-
特定の文字がある行以外を削除...
-
エクセルのセルに指定画像(.jpg...
-
【Excel関数】UNIQUE関数で"0"...
-
Excel グラフのプロットからデ...
-
VBAで色の付いているセルの行削除
-
Excel2007で、指定範囲の行高さ...
-
Excel ウインドウ枠の固定をす...
-
EXCEL 「最後のセル」のリセット
-
セルの色によって条件文をつけ...
-
完全一致したら代入するマクロ...
-
エクセル 上下で列幅を変えるには
-
excelのデータで色つき行の抽出...
-
アクティブになっている行をマ...
-
excel 同じ番号のデーターを横...
-
電話番号の入力方式が違うデー...
-
Excelでカタカナ・ひらがな・英...
-
エクセルマクロで偶数行(又は...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
【Excel関数】UNIQUE関数で"0"...
-
特定の文字がある行以外を削除...
-
エクセル マクロ オートフィ...
-
[EXCEL]ボタン押す→時刻が表に...
-
AのセルとB行を比較して、一致...
-
VBAで色の付いているセルの行削除
-
Excel グラフのプロットからデ...
-
エクセル マクロで数値が変っ...
-
excel 小さすぎて見えないセル...
-
エクセル 上下で列幅を変えるには
-
罫線の斜線を自動で引くマクロ
-
結合されたセルをプルダウンの...
-
セルの色によって条件文をつけ...
-
エクセルのマクロで意図しない...
-
エクセルVBA 最終行を選んで並...
-
excelのデータで色つき行の抽出...
-
Excelのフィルター後の一番上の...
-
エクセル 時間の表示形式AM/PM...
-
Excelでカタカナ・ひらがな・英...
おすすめ情報