マクロのエラーについて
マクロ記録とネットを参考に、初めて下記のマクロを作成しましたが、マクロを作成したBOOKでは、エラー無く動作し、テスト用に2番目の別BOOKのマクロ編集に貼り付けマクロ実行したところ、エラー1004が出ました。なぜなのでしょうか?
通常は原紙ファイルのシートにデータをコピー⇒貼り付け・保存、ピボットテーブルで集計したものを印刷し使用しています。
下記画像の表にて、D列4行目(黄色)の同日付をセル結合、E列5行目(水色)の同時間をセル結合したものを複数枚作成しています。
この作業をマクロ処理化したいのですが、社内にVBAの扱える人はおらず、外注の許可も出ないので自分で何とかしたいと思っています。
どなたか良いコードや下記コードの訂正などご教授頂けないでしょうか。
宜しくお願いいたします。
Sub 予定表セル結合2()
K = 0
For K = 1 To 100
If Cells(4, 4 + K) <> Cells(4, 5 + K) Then
セル範囲3 = 5 + K
工程名 = Cells(4, 5 + K)
ElseIf Cells(4, 4 + K) = Cells(4, 5 + K) And Cells(4, 5 + K) <> Cells(4, 6 + K) Then
セル範囲4 = 5 + K
'工程名2 = Cells(4, 5 + K)
Range(Cells(4, セル範囲3), Cells(4, セル範囲4)).Select ***ここでエラーです***
Application.DisplayAlerts = False
Selection.Merge 'セル結合
Application.DisplayAlerts = True
End If
Next K
***この後5列目の同時間のセル結合をしたいのです****
End Sub
お礼
素早いご回答ありがとうございます!完璧です。 意外と簡単なプログラムでびっくりです。