質問: y - 1 end sub 以上です。
回答: こんばんは、 >a列作業日のところを1か月であれば作動しますが、 数か月分となるとエラーが発生します。 どのようにして数か月にしているのかな? 不思議なところ、エラーがちらほら、、、あるけれど 取り敢えず a1セルが空白の時に発生する可能性を回避して '項目数のカウント z = 1 do while ws2.cells(1, z).value <> "" z = z + 1 loop z = z - 1 ’a1が空白だと0になる。 をやめて z = ws2.cells(1, columns.count).end(xltoleft).column とするといかがでしょう。