[[20031222170703]]　『セル結合』（あや）　ページの最後に飛ぶ

『セル結合』（あや）

データを失うことなくセル結合したいです。セル結合しようとすると「複数のデータ値があるため‥」と表示され最左の値のみ表示されます。

 ＞最左の値のみ表示されます。
 ってかいてあるからには、ひとつ二つのセル結合ではなさそうですね。
 「データをためておく」ことと、人間が見やすいように「データを表現する」ことを
 同居させるのはなかなか難しいもので、
 データベースのAccessなんかでは完全に切り離した考え方をします。
 Excelは何とか同居させることが出来てしまうので、
 今回のようなケースにぶち当たります。

 その場しのぎの方法ですけど今回の場合はA1、B1、C1を結合させるとすると、
 いったん使用範囲外のセルへ例えば　D1　へ文字列演算子（=A1&B1&C1)で文字列を結合、
 結合した文字列をA1へ「形式を選択して貼り付け」「値」で貼り付け
 A1からC1をセル結合、
 不用になった文字列を結合したセル　D1を削除
 という段取りになります。

 結構面倒くさいです。
 (KAMIYA)　まだ仕事チュ～

 結構面倒くさい仕事はマクロにまかせましょう。

 (1)[ツール(T)]→[マクロ(M)]→[VisualBasicEditor]でVBEの世界に入ります。

 (2)[挿入(I)]メニュー→[標準モジュール(M)]を選択

 (3)下のコードをコピーしてからVBE画面右側の白紙に貼り付けます。

 (4)これで準備OK。画面右上の×[閉じる]をクリックしてVBEの世界から抜けます。

 (5)結合したいセルを選択してから、
 [ツール(T)]メニュー→[マクロ(M)]→[マクロ(M)...]で merge を選択します。

 このマクロの例ではセルのデータの区切りに半角スペースが入ります。

 Sub merge()
     Dim wrk As String, c As Range
     wrk = ""
     Application.DisplayAlerts = False
     For Each c In Selection
         wrk = wrk & " " & c.Value
     Next c
     Selection.merge
     Selection.Value = wrk
     Application.DisplayAlerts = True
 End Sub

 （kazu）

コメント返信：

[ 一覧(最新更新順) ]

[[20031222170703]] 『セル結合』（あや） ページの最後に飛ぶ

[[20031222170703]]　『セル結合』（あや）　ページの最後に飛ぶ