行幅をなくしたいのですが…

質問

行幅を０にするマクロを作成したのですが、セルが結合されているとそのセルの文字まで消えてしまいます。下のマクロは一度セル結合を解除して、その文字をコピーしたままセル幅を０にして、またセル結合してコピー貼り付けるようなやり方です。最後の３行は残しといて幅を合わしています。もっと良いやり方あれば教えてください。分かりずらいかもしれませんがお願いします。
又、元の幅に合わしたいマクロも教えていただければ助かります。
　　Range("A4:A14").Select
Selection.UnMerge
Range("A4").Select
Selection.Copy
Range("A12").Select
ActiveSheet.Paste
Rows("4:11").Select
Selection.RowHeight = 0
Range("A12:A14").Select
Application.CutCopyMode = False
Selection.Merge
Rows("12:14").Select
Selection.RowHeight = 14.25

回答No.1

pauNed · ベストアンサー

こんにちは。
>セルが結合されているとそのセルの文字まで消えてしまいます。
という点が少しわかりません。
A4:A14が結合されていて、A4:A11を非表示にした時に、A4の値が非表示にならなければ良いのですか？
Sub sample()
　　Rows("4:11").Hidden = True
End Sub
...という事とは意味が違います？

お礼

説明不足ですいません。
文字がA4のセルに入力されて、A14まで結合されているので、4:14の幅を0にするとA4のも文字も表示されないという意味だったもですが…
でも、このマクロでなんとか出来そうです。
ありがとうございます。

回答No.3

Cupper

根本的に間違っていますので指摘します。

　幅０（または、高さ０）に設定されたセルの内容は表示されません。

セル幅を最小（1ピクセル）にして右隣のセルの幅をその分（1ピクセル）だけ狭くするようにしてみてください。

回答No.2

p-applepie

全然別の方向の回答だと思いますが・・。

セルの結合は必ず必要ですか？
入りきらない文字列を表示させる時、結合ではなく横に並んだ
二つのセルを選択した状態でセルの書式設定で　配置タブから
横位置を選択範囲内の中央とすれば、結合せずに
セルを結合して中央に表示と同じ結果が得られます。