Excel VBA質問箱 IV

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

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


13637 / 13645 ツリー ←次へ | 前へ→

【4489】複数セルに書かれた文字列の結合 関心感心 03/3/22(土) 23:59 質問
【4490】ん? こう 03/3/23(日) 2:22 回答
【4491】セル内容の結合について 関心感心 03/3/23(日) 4:01 質問
【4492】Re:セル内容の結合について こう 03/3/23(日) 12:05 回答
【4493】Re:セル内容の結合について 関心感心 03/3/23(日) 13:16 お礼

【4489】複数セルに書かれた文字列の結合
質問  関心感心  - 03/3/22(土) 23:59 -

引用なし
パスワード
   一つのセル内の文字列を複数のセルに分けるという手法は良く聞きますが、
この逆で、複数セルに書かれた文字列をひとつのセルに結合する方法は
ありますでしょうか? こちら、&記号で文字列は足し算できるといった
知識しかありませんが、VBAでできる方法がありましたら、教えて下さい。
たとえば、A1セルとA2セルに書かれた文字列を結合してA1セルに
入れるといったことがしたいのですが。

【4490】ん?
回答  こう E-MAIL  - 03/3/23(日) 2:22 -

引用なし
パスワード
   関心感心 さん,こんにちわ。
>たとえば、A1セルとA2セルに書かれた文字列を結合してA1セルに
>入れるといったことがしたいのですが。
  Range("A1") = Range("A1") + Range("B1")
でよいのかな?

ちなみにワークシート関数でセルの文字列を結合するのは,
=CONCATENATE(A1,A2)です。ただしA1には設定できませんが....

【4491】セル内容の結合について
質問  関心感心  - 03/3/23(日) 4:01 -

引用なし
パスワード
   一般論として、下記のようなことをしたいのですが、
恐れ入りますが、添削お願いします。(構文むちゃくちゃですが…)

 nextCell = currentCell.Offset(1, 0)
    
 ActiveCell = ActiveCell + nextCell
  
 nextCell.EntireRow.Delete

【4492】Re:セル内容の結合について
回答  こう E-MAIL  - 03/3/23(日) 12:05 -

引用なし
パスワード
   前回の投稿の訂正です
>Range("A1") = Range("A1") + Range("B1")
                  ↓
                  A2
でしたね。

>一般論として、下記のようなことをしたいのですが、
>恐れ入りますが、添削お願いします。(構文むちゃくちゃですが…)

currentCellというプロパティはないので,ここではActiveCellとします。

> nextCell = currentCell.Offset(1, 0)  
> ActiveCell = ActiveCell + nextCell
ActiveCell = ActiveCell + ActiveCell.Offset(1, 0)
ActiveCellの内容とそこの下セルを結合しActiveCellに代入します。
ただし,文字列でなければだめで,123+456なら468になります。
  
> nextCell.EntireRow.Delete
ActiveCell.Offset(1, 0).EntireRow.Delete
ActiveCellの下セルを消去するということですよね。

【4493】Re:セル内容の結合について
お礼  関心感心  - 03/3/23(日) 13:16 -

引用なし
パスワード
   ご指導、どうも有り難う御座いました。
お陰さまで、便利なマクロのボタンを1個
作ることができました。

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