[[20160428102542]]　『タイトル名で列を選択してマクロを実行』（ライスペーパー）　ページの最後に飛ぶ

『タイトル名で列を選択してマクロを実行』（ライスペーパー）

Sheet1のＡ列にタイトルがあり、「メモ」というタイトルの列にのみ、下記のマクロを実行したいのですが、うまくいきません。どのようにやるのか教えて下さい。
よろしくお願い致します。

    Sheets("Sheet1").Select
    Selection.Replace What:="A", Replacement:="1", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="B", Replacement:="2", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="C", Replacement:="3", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("A1").Select
End Sub

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

行なのか列なのか、正確に教えてください。例えば「メモ」という文字は、A1セルだったりB1セルだったり、でしょうか？
それとも、A1セルだったりA3セルだったり、なのでしょうか？

とりあえず、1行目のどこかに「メモ」があると仮定した場合の例なぞ。

 Sub test()
    Dim i As Long

    For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
        If Cells(1, i).Value = "メモ" Then
            With Columns(i)
                .Replace What:="A", Replacement:="1"
                .Replace What:="B", Replacement:="2"
                .Replace What:="C", Replacement:="3"
            End With
            Exit For
        End If
    Next i
 End Sub
（???） 2016/04/28(木) 10:54

回答ありがとうございます。
おっしゃるとおり1行目のどこかに「メモ」があります。
こちらで、上手く変換されました。
ありがとうございました。

「メモ」というタイトルが複数箇所にあった場合、最初の１列だけしか変換されていませんでした。
「メモ」というタイトルは３～４箇所くらいあります。
そのすべての列に対して変換をしたいと思っております。
あらためてお教え下さい。
よろしくお願い致します。
（ライスペーパー） 2016/04/28(木) 11:37

複数列「メモ」があるならば、Exit For の行を削除してください。ここで1つ見つけたら処理を抜けています。
（???） 2016/04/28(木) 12:11

出来ました。ありがとうございました。

（ライスペーパー） 2016/04/28(木) 13:13

コメント返信：

[ 一覧(最新更新順) ]

[[20160428102542]] 『タイトル名で列を選択してマクロを実行』（ライスペーパー） ページの最後に飛ぶ

[[20160428102542]]　『タイトル名で列を選択してマクロを実行』（ライスペーパー）　ページの最後に飛ぶ