Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4541 / 13644 ツリー ←次へ | 前へ→

【56020】マクロでCONCATENATEをするには にしもり 08/5/29(木) 19:17 質問[未読]
【56031】Re:マクロでCONCATENATEをするには りん 08/5/29(木) 23:04 回答[未読]
【56037】Re:マクロでCONCATENATEをするには にしもり 08/5/30(金) 2:03 お礼[未読]

【56020】マクロでCONCATENATEをするには
質問  にしもり  - 08/5/29(木) 19:17 -

引用なし
パスワード
   こんにちは。
CONCATENATEをマクロで記録しました。

Sub Macro1()
  ActiveCell.FormulaR1C1 = "=CONCATENATE(R[-1]C,R[-1]C[1])"
End Sub

これを
Sub Macro1()
  ActiveCell.FormulaR1C1 = "=CONCATENATE(a46,b46)"
End Sub
に変えたら結果が?NAMEとなってしまいました。
絶対参照にするにはどうしたらいいでしょうか。

なぜマクロでしたいかというと、コンカチしたいセルが127個もあるからです。

【56031】Re:マクロでCONCATENATEをするには
回答  りん E-MAIL  - 08/5/29(木) 23:04 -

引用なし
パスワード
   にしもり さん、こんばんわ。

 ActiveCell.FormulaR1C1 = "=CONCATENATE(a46,b46)"
        ↓ 
 ActiveCell.Formula = "=CONCATENATE(a46,b46)"

これで解決ですが、結合するだけなら「&」で文字列をくっつける方が簡単では?

式を入れたいなら。
Sub Macro1()
 ActiveCell.Formula = "=a46&b46"
End Sub

結果だけでよければ。
Sub Macro1()
  ActiveCell.Value = Range("a46").Value & Range("b46").Value
End Sub

【56037】Re:マクロでCONCATENATEをするには
お礼  にしもり  - 08/5/30(金) 2:03 -

引用なし
パスワード
   ▼りん さん:
返信まことにありがとうございます。
式をいれたいので上の方を使わせていただきます。
大変助かりました。

4541 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free