[[20050927144320]]　『結合しているセルの指定（R1C1形式）』（yo）　ページの最後に飛ぶ

『結合しているセルの指定（R1C1形式）』（yo）

 Ａ１、Ａ２が結合・・・東京　都
 Ｂ１・・・中野区
 Ｂ２・・・新宿区
 と入力されています。

 Ｃ１に東京都中野区
 Ｃ２に東京都新宿区

 マクロのＲ１Ｃ１形式で上記のように表示させるにはどのようにしたら良いでしょうか？

 Private Sub CommandButton1_Click()

   Sheet5.Select
   Range("C1").Select
    　ActiveCell.FormulaR1C1 = _
        "=SUBSTITUTE(SUBSTITUTE(RC[-2],""　"",""""),""　"","""")&RC[-1]"
　 Range("C2").Select
    　ActiveCell.FormulaR1C1 = _
        "=SUBSTITUTE(SUBSTITUTE(RC[-2],""　"",""""),""　"","""")&RC[-1]"
 End Sub

 で実行すると、C1は「東京都中野区」とうまく行きますが、結合されているセルの下の行が
 うまく行かず、「新宿区」となってしまいます。
 対応方法を教えて下さい。

 これじゃダメでしょうか？

  With Sheets("Sheet5").Range("C1:C2")
      .Formula = "=SUBSTITUTE(SUBSTITUTE(" & .Offset(, -2).Cells(1).Address & _
       ",""　"",""""),""　"","""")&" & .Offset(, -1).Address
  End With
 BJ

 BJさんありがとうございます。
 できました。
 申し訳ないのですが、もう少し教えていただいてよろしいでしょうか。
 実は続きがありまして、
 A3、A4が結合していて　千葉　県
 B3・・・船橋市
 B4・・・千葉市
 となっていた場合、このまま選択範囲を変更しただけでは
 「東京都船橋市」「東京都千葉市」となってしまいました。
 常に左矢印キー（←）を使ったように指定したセルを参照したいのですが、
 C3に「千葉県船橋市」、C4に「千葉県千葉市」とするには
 どの様にしたら良いでしょうか？

 選択したセルの意味が解りません。

 range("C1:C10").select
 For Each CL In Selection
     With CL
         .Formula = "=SUBSTITUTE(SUBSTITUTE(" & .Offset(, -2).MergeArea.Cells(1).Address & _
                   ",""　"",""""),""　"","""")&" & .Offset(, -1).Address
     End With
 Next
 BJ

 すいません。
 どう表現すれば良いのか・・・。
 でも！
 思ったとおりに実行する事ができました。
 感謝です。
 ありがとうございました！

コメント返信：

[ 一覧(最新更新順) ]

[[20050927144320]] 『結合しているセルの指定（R1C1形式）』（yo） ページの最後に飛ぶ

[[20050927144320]]　『結合しているセルの指定（R1C1形式）』（yo）　ページの最後に飛ぶ