Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

66004 / 76734

←次へ　｜　前へ→


	【15296】セルの結合を解除して、

やまちく - 04/6/19(土) 23:31 -


	引用なし

	パスワード

お世話になります。
今週から、マクロを始めました初級者です。どうぞ、よろしくお願いいたします。

A1:A3のセルが一つに結合してあるのですが、そのセルの結合を解除してA1と同じ値をA2、A3に入力したいのですが、、、
Sub Macro2()
　　With Selection
　　　　.HorizontalAlignment = xlGeneral
　　　　.VerticalAlignment = xlCenter
　　　　.WrapText = False
　　　　.Orientation = 0
　　　　.AddIndent = False
　　　　.IndentLevel = 0
　　　　.ShrinkToFit = False
　　　　.ReadingOrder = xlContext
　　　　.MergeCells = True
　　End With
　　Selection.UnMerge
　　Range("A1").Select
　　Selection.Copy
　　Range("A1:A3").Select
　　ActiveSheet.Paste
End Sub

上記は、自動記録でとったものなのですが、最終的には、
A列で、セルが結合してあれば、1.セルの結合を解除し、2.セルの先頭の値をコピーし、3.コピーした値を解除前の範囲で内に貼り付ける。4.下のセルに結合されたセルが無いかあれば1.2.3.を繰り返すといったものを作成したいのですがよろしくお願いいたします。

2 hits

▼

【15296】セルの結合を解除して、 やまちく 04/6/19(土) 23:31

≪