[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『タイトル行の文字に置換させたい』（melo）
初めて質問させて頂きます。
1行目にタイトル行として
A列：タイトル1、B列：タイトル2、C列：タイトル3 とします。
それぞれの列に「0」「1」の数字の値があります。
こちらの「1」の文字が入ったものをそれぞれの列でタイトル行の文字に置換したいのです。
（A列の「1」の文字は「タイトル1」という文字に置換したい。）
このような作業をすべての列を選択して一括で行いたいので、
タイトル行（指定したセル）の文字列に置換するという方法はありませんでしょうか。
お力添えを頂けましたら幸いです。
＜ 使用 Excel：Excel2010、使用 OS：Windows7 ＞
（melo） 2017/12/05(火) 11:41
1を =INDIRECT(ADDRESS(1,COLUMN())) に置換というのはどうだろうか？ 式でなく文字列にしたいということであればマクロだろうか。
（ねむねむ） 2017/12/05(火) 11:45
A B C 1 あ1 あ2 あ3 2 0 0 1 3 1 1 0 4 0 1 0 5 1 1 1 6 1 1 0 7 0 0 1
↓
A B C 1 あ1 あ2 あ3 2 0 0 あ3 3 あ1 あ2 0 4 0 あ2 0 5 あ1 あ2 あ3 6 あ1 あ2 0 7 0 0 あ3
みたいにしたいということでしょうか？
Sub 置換()
Columns("A").Replace What:="1", Replacement:=Range("A1"), LookAt:=xlWhole
Columns("B").Replace What:="1", Replacement:=Range("B1"), LookAt:=xlWhole
Columns("C").Replace What:="1", Replacement:=Range("C1"), LookAt:=xlWhole
End Sub
もし違うということであれば無視してください。 （bi） 2017/12/05(火) 11:48
ありがとうございます。
上手く出来なかったので少し研究してみます。
（melo） 2017/12/05(火) 12:13
認識まったくその通りです！
また、マクロも正しく反映されました！
本当に助かりました。ありがとうございます！
（melo） 2017/12/05(火) 12:14
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.