セルの結合を解除して同じ値を入力

以前に同じ列にある同値を結合するマクロを作ってみたが
今回は、結合したセルを解除してそのセルの値を入力するマクロを作ってみた。

Sub セルの結合を解除して同じ値を入力()
Dim mydate As Date
Range("B3").Activate

Do Until ActiveCell = ""
  mydate = ActiveCell.Value
     If ActiveCell.MergeCells Then
        ActiveCell.UnMerge
        Selection.Value = mydate
     Else
          ActiveCell.Offset(1).Activate
      End If
Loop
End Sub

かなり頼りない感じもするが、一応は目的の結果が得られた。
e0080122_1352369.gif

[PR]
by slayer0210 | 2005-11-04 14:00 | マクロ


<< LeftとRightを使用して... 文字列を改行して結合する >>