結合セルの高さを中に入っている字数に応じて見切れないように自動調整したい

Question

1行ずつCからK列のセルを結合した欄があります。VBAで各結合セルにコメントを転記しているので、内容が見切れてしまうセルが出てきます。
掲題の作業をVBAで各結合セルに行いたいのですが、行16のコードで「RangeクラスのColumnwidthプロパティを設定できません」とエラーになります。
ちなみにネットから拾ってきたオリジナルのプロシージャーはfor　next構文で各結合セルに処理を行わず、行7のコードのRangeをダイレクトに設定しています。＜Range("C11:K11")等＞その為うまくいくのですが、1行分の結合セルだけに対しての処理になります。

どなたかご教示いただければ幸いです。

1:Sub test()

2: Dim echRng As Range, allRng As Range
3: Dim colWdtSum As Double
4: Dim colWdtLft As Double
5: Dim n As Integer

6: For n = 11 To 97
7: Set allRng = Range(Cells(n, 3), Cells(n, 11))
8: ReDim colWdtArr(allRng.Column To allRng(allRng.Count).Column)
9: If allRng.Rows.Count > 1 Then
10:Exit Sub
11: colWdtLft = allRng(1).ColumnWidth

12: For Each echRng In allRng
13:colWdtSum = colWdtSum + echRng.ColumnWidth
14: Next echRng

15:allRng.UnMerge
16:allRng(1).EntireColumn.ColumnWidth = colWdtSum
17: allRng(1).WrapText = True
18: allRng(1).EntireRow.AutoFit
19: allRng.Merge
20: allRng(1).ColumnWidth = colWdtLft

21: Next

22:End Sub

Answer 1

下記の一行を6行目～12行目の間に入れてください。

colWdtSum = 0

この値がループ中に初期化されないために無限に大きくなり、300を超えたあたりでエラーが発生しています。

ただ、エラーが出てる処理の後、20行目で同じColumnWidthを上書きしていますし、そもそも操作している列はずっと一緒なので、ループのなかではcolWdtSumかcolWdtLftの最大値だけ決定して、ループを抜けた後に一回で設定してしまう方がいいような気がします。

Comments

[退会済みユーザー]

ありがとうございます！うまくいきました！繰り返し処理で値が溜まっていってることに全然気づきませんでした( ;´･ω･`)