CatUnderString-下のセルの文字列を連結 - mytips@wiki

CatUnderString-下のセルの文字列を連結

Public Sub CatUnderString()
'-- 下のセルと文字列を連結し、書式に「折り返して～」をセット
'-- 単一のセルを選択しているときにしか機能しない
'
   If Selection.Rows.Count = 1 _
    And Selection.Columns.Count = 1 Then
       
       With ActiveCell
           .Value = .Value & vbLf & _
               .Offset(1, 0).Value
           .VerticalAlignment = xlTop
           .WrapText = True
           .MergeCells = False
           Rows(.Row & ":" & .Row).EntireRow.AutoFit
       
           .Offset(1, 0).Value = ""
       End With
   End If
End Sub