[[20061111093649]]　『二つのセル内の文字をつなげる』（はやっちょ）　ページの最後に飛ぶ

『二つのセル内の文字をつなげる』（はやっちょ）Excel2000　WindowsXP

いつも参考にさせていただいております。

隣り合った二つのセルそれぞれの内容を残しつつセルの結合はできないものでしょうか。

どなたか知ってらっしゃる方がいらっしゃいましたら教えてください。

よろしくお願いいたします。

はやっちょ

 おはようございます。
マクロでよければ、
A1とB1に結合したいデータがあるとします。
こんな感じでできますが、
 Sub test()
    Dim AA, BB

    AA = Range("A1").Value
    BB = Range("B1").Value
    Application.DisplayAlerts = False
    Range("A1:B1").Merge
    Application.DisplayAlerts = True
    Range("A1").Value = AA & BB
End Sub

 VBA です。任意の選択したセルを結合します。
 Alt+F11 でVBAEditorをだし、次のコードを貼り付けます。

 Sub test()
    Dim Temp
    Dim I As Integer

    Temp = ""
    For I = 1 To Selection.Count
        Temp = Temp & Selection.Cells(I)
    Next I

    Application.DisplayAlerts = False
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Merge
        .Value = Temp
    End With
    Application.DisplayAlerts = True
 End Sub

 シートに戻って、任意の隣り合ったセルを選択し、ツール＞マクロ＞マクロ で
 test を選んで実行。
 ※複数行・複数列でも結合できます。

 （ホグペン）

 vbaで...

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim r As Range, txt As String
 On Error Resume Next
 With Target
     If .Count < 2 Then Exit Sub
     If vbYes = MsgBox("結合しますか?",vbYesNo) Then
         For Each r In .Cells
             txt = txt & r.Text & Chr(32)
         Next
         Application.DisplayAlerts = False
         .Merge
         Application.DisplayAlerts = True
         .Cells(1,1).Value = Trim(txt)
     End If
 End With
 End Sub
 (seiya)

ありがとうございました。
参考にして使わせていただきます。
はやっちょ

コメント返信：

[ 一覧(最新更新順) ]

[[20061111093649]] 『二つのセル内の文字をつなげる』（はやっちょ） ページの最後に飛ぶ

[[20061111093649]]　『二つのセル内の文字をつなげる』（はやっちょ）　ページの最後に飛ぶ