エクセル2007で、マクロで、結合セルに入れた文字列の折り返し回数を取

質問

エクセル2007で、マクロで、結合セルに入れた文字列の折り返し回数を取得する方法はありますか。改行回数（chr(10))ではなく折り返し回数です。

回答No.2

Wendy02

#1の方の引用先の内容は、せっかくで申し訳ないけれども、解決はしていないと思います。
結合セルにAutoFit を使えば、折り返しが崩れてしまいます。Justifyを用いればよいのではないかと思います。

手動で説明すると、
例えば、A1 にあるとしたら、どこかの新しいシートのひとつの結合していないセルの幅を、元のA1セルの幅に合わせ、文字列のみをコピーして、編集--フィル--文字の割り付け
で行を数えればよいということです。

あまり実用的ではないと思いますが、それをマクロにすると以下のようになるように思いました。ただ、基本的には、結合セルは、VBAでは、ネックになります。挙動がまったく変わってしまうことがあるからです。

'//
Sub CountLineInCell()
　Dim sh1 As Worksheet, sh2 As Worksheet
　Dim w As Double, c As Variant
　Dim tmpCell As Range
　Dim msg As Variant
　Set sh1 = ActiveSheet
　With sh1.Range("A1").MergeArea 'Range("A1")は、ActiveCell でも可能
　　If .Cells(1, 1).Value = "" Then Set sh1 = Nothing: Exit Sub
　　For Each c In .Cells
　　　w = w + .ColumnWidth
　　Next
　　Set sh2 = Worksheets.Add(After:=Worksheets(Sheets.Count))
　　sh2.Cells(1, 1).Value = .Value
　End With
　Application.DisplayAlerts = False
　With sh2.Cells(1, 1)
　　.ColumnWidth = w
　　.WrapText = True
　　.EntireRow.AutoFit
　　.Justify
　　msg = .Cells(Rows.Count, 1).End(xlUp).Row
　End With
　sh2.Delete
　Application.DisplayAlerts = True
　sh1.Activate
　MsgBox msg
　Set sh1 = Nothing: Set tmpCell = Nothing: Set sh2 = Nothing
End Sub