Excel VBA копирует одно значение в переменный диапазон столбцов - PullRequest
Новая
       13

Excel VBA копирует одно значение в переменный диапазон столбцов

0 голосов
/ 30 августа 2018

решаемые

Я пытаюсь скопировать значение из A1 в E3: E5 на нескольких листах, таких как 18+ листов. Количество таблиц и столбцов совпадает, за исключением значения в A1 (разные даты) и количества строк для каждого листа. Таким образом, каждый лист всегда будет иметь число столбцов E, а столбец даты всегда будет E. 

DateToCopy
Variable 1  Variable 2  Variable 3  Variable 4  Variable Date
value       value       value       value       paste Date
value       value       value       value       paste Date
value       value       value       value       paste Date

Решение 

Option Explicit

Sub CopyDate()

Dim wsVar As Worksheet

For Each wsVar In ThisWorkbook.Sheets
   With wsVar
       Dim lastRow As Long

        lastRow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

        .Range("M6:M" & lastRow).Value = .Range("A4").Value

   End With
Next wsVar

End Sub

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

Спасибо!

...