Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4552 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   ▼りん さん：
返信まことにありがとうございます。
式をいれたいので上の方を使わせていただきます。
大変助かりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4552 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free