行方向の同じ値のセルを結合する

例えばA列に日付などが入っているデータがあったとして
下方向に同じデータが入っているセルを結合するマクロを作ってみた。(自信ないけど・・・)


Sub セル結合()
Dim r As Integer '行数
Dim i As Integer 'カウンタ
r = Sheets(1).Range("a1").CurrentRegion.Rows.Count - 1

Application.DisplayAlerts = False

For i = 2 To r
  Cells(i, 1).Activate '項目の一つ下のセルをアクティブに
    If ActiveCell.Value = ActiveCell.Offset(1).Value Then
         Range(ActiveCell, ActiveCell.Offset(1)).Merge
     End If
Next
Application.DisplayAlerts = True
End Sub
目的の結果は得られたが、いまいちスッキリしない・・・
e0080122_2158663.gif
[PR]
by slayer0210 | 2005-10-26 21:56 | マクロ


<< 図のコピー貼り付け(Shiftキー) ファイル名を指定してアクティブ... >>