Распечатать следующий месяц

Question

Я хочу, чтобы Excel напечатал дату следующего месяца в следующей строке.(В третьем ряду есть счетчик)

Например:

B28 = 01.07.2019 C24 = 01.06.2019  D16 = 01.02.2019 E19 = 01.07.2019

Не могли бы вы мне помочь?

Вот скриншот: https://ibb.co/d0mW8GB

Answer 1

есть много недостающих частей в вашем вопросе, но я пытаюсь создать код для удовлетворения ваших потребностей. Вы можете попробовать:

Option Explicit

Sub makro3()

    Dim LastColumn As Long, LastRow As Long, Column As Long, Row As Long, Paid As Long

    'In your quetion there is no starting date so i use the current one

    With ThisWorkbook.Sheets("Sheet1")

        LastColumn = .Cells(3, .Columns.Count).End(xlToLeft).Column

        For Column = 2 To LastColumn

            Paid = .Cells(3, Column).Value

            For Row = 1 To Paid

                LastRow = .Cells(.Rows.Count, Column).End(xlUp).Row

                .Cells(LastRow + 1, Column).Value = DateAdd("m", Row, Date)

            Next Row

        Next Column

    End With

End Sub

Результаты:

Answer 2

Да, вы правы.

Отсутствующие детали:

1. «дата начала отсутствует» - дата начала - последняя дата в каждом столбце.Например, для столбца B это B27, а для столбца C - C24.
2. «Сколько данных».Когда вы нажимаете кнопку команды, вы должны получить только одну дату.просто дата следующего месяца.