Excel VBA将单个值复制到变量列范围

Question

已解决

我正在尝试将A1中的值跨多张纸（例如18+张纸）复制到E3：E5。除A1中的值（不同的日期）和每张纸的行数外，表和列的计数匹配。因此，每个工作表将始终具有E列，而Date列将始终为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 ，它遍历每张纸，其余的粘贴在每张纸的整列中。

谢谢！