Как ввести параметр диапазона в код? - PullRequest
Новая
       15

Как ввести параметр диапазона в код?

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

Код здесь делает только один столбец за раз, что замечательно, и это работает.Однако я хотел бы, чтобы он был более эффективным, поскольку я хотел бы, чтобы код видел диапазон столбцов, чтобы выполнить задачу во всех четырех столбцах.Вы знаете, как я исправляю этот код, чтобы сделать это?

Я пробовал много вещей, которые привели меня к этому вопросу.(Пожалуйста, смотрите предыдущие вопросы.) В Интернете и через коллег можно найти много информации, которую можно найти в сети, а поиск чего-то конкретного, что может удовлетворить уникальную задачу, только добавляет к исследованию.Мой последний код указан ниже.

Sub FillDownCol()

  Dim Area As Range, LastRow As Long

  On Error Resume Next
  LastRow = Cells.Find(What:="*", SearchOrder:=xlRows, _
           SearchDirection:=xlPrevious, _
           LookIn:=xlFormulas).Row
    For Each Area In ActiveCell.EntireColumn(1).Resize(LastRow). _
           SpecialCells(xlCellTypeBlanks).Areas
    Area.Value = Area(1).Offset(-1).Value
  Next
End Sub

Я надеюсь добавить параметр диапазона или код, который позволяет читать, чтобы принимать несколько столбцов для одновременного заполнения, спускаясь по странице.Любые комментарии, предложения, идеи, отзывы приветствуются.:)

...