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.を繰り返すといったものを作成したいのですがよろしくお願いいたします。

0 hits

【15296】セルの結合を解除して、 やまちく 04/6/19(土) 23:31 質問
【15300】Re:セルの結合を解除して、 ちゃっぴ 04/6/20(日) 14:37 回答
【15357】Re:セルの結合を解除して、 やまちく 04/6/22(火) 13:06 お礼
【15362】Re:セルの結合を解除して、 ちゃっぴ 04/6/22(火) 14:47 回答
【15388】Re:セルの結合を解除して、 やまちく 04/6/23(水) 9:54 お礼

66004 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free