タイトル : Re^4: Excelセルを結合した場合 投稿日 : 2008/02/19(Tue) 12:05 投稿者 : るしぇ
十分な検証・調査ができていないから、 相変わらず必要な情報が足りないで、不必要な情報が 増えてますね。 >詳しく説明すると以下のような環境なのですが。 環境というならExcelのバージョンくらい書いたら? VBからコードで操作しているのか、手作業で操作して いるのかも分かりませんし、ボクは『手作業で再現でき ない』と書いたはずです。再現できる説明がないですよね? >←ここから上は保護されている。以下だけスクロール出来る。 正確には『ウィンドウ枠の固定』のような気がしますが、 その『保護』とやらを解除したものを用意して、再現テスト をやりましたか?現象が変わらないなら『保護』が原因では ないと予想できます。不必要な情報です。 [Excel2003]で再現しました。 結合後に AutoFit するとそうなるみたいですね。 AutoFit しなければいいのでは? [Excel VBA] Sub Macro1() ' Dim wst As Worksheet Set wst = ThisWorkbook.Worksheets("Sheet1") wst.Range("$A$1").Value = "11" & vbLf & "22" wst.Range("$B$1").Value = "AAAA" & vbLf & "BBBB" & vbLf & "CCCC" wst.Rows("1:1").AutoFit wst.Range("$B$1:$C$1").Merge ' wst.Rows("1:1").AutoFit End Sub |