2つのマクロを1つにしたい
いつもお世話になっております。
今回もよろしくお願いいたします。
(1)14のシートがあるのですが、データーのある2から14までのシートを印刷する。
(2)上記のうち、ｃ列のデーターで連続しているセルを結合する。
(1)と(2)を合わせて1つのマクロにしたいのですが、アクティブシート１つにしか(2)のマクロが動きません。
下記のコードの間違いを教えてください。
Sub 契約書目次印刷()
Dim Sh As Worksheet
Dim t As Long
Dim i As Range
t = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
'データーのあるシートだけ印刷
For Each Sh In Worksheets(Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14))
If Sh.Range("A2").Value <> "" Then
'連続データーセル結合
For Each i In Range("C1:C" & t)
If i.MergeArea(1).Value = i.Offset(1).Value Then
Range(i.MergeArea, i.Offset(1)).Merge
End If
Application.DisplayAlerts = False
Next i
End If
Sh.PrintPreview
Next Sh
End Sub
