Как мне написать код для копирования, вставки, сверху вниз с интервалами 15-16, используя следующую строку в моей рабочей таблице? - PullRequest
Новая
       47

Как мне написать код для копирования, вставки, сверху вниз с интервалами 15-16, используя следующую строку в моей рабочей таблице?

0 голосов
/ 24 мая 2019

Я пытаюсь преобразовать входящий файл для выполнения повторяющихся задач. 1. Вставьте 15 пустых строк. (завершено) 2. Скопируйте первую строку, столбцы A: D в пустые строки ниже. 3. Процесс два необходимо продолжить этот процесс для всех 500+ клиентов. 4. Столбец E начинается с первой даты за этот период, и он должен разбивать даты в пустых ячейках ниже. (16.11.19, 17.11.19 и т. Д., Но только для пустых пустых строк в столбце. Почти все, что я нашел, было на другом листе, но все это должно происходить на активном рабочем листе Кто-нибудь может мне помочь, пожалуйста?

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

Sub InsertRowsAtIntervals () 

Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer

Dim xNum2 As Integer

Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "Inquiry Box"

Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval

Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2

Следующий End Sub

Было бы неплохо запустить макрос для ежемесячного входящего файла и запустить макрос, который обрабатывает все эти маленькие шаги. У кого-нибудь есть предложения?

...