我的宏应该简单地复制粘贴一块数据。Excel VBA复制搜索后粘贴
我的问题是,它只将数据复制到一列,我不知道如何解决这个问题。
Sheets("Auswertung").Select
Daten = Range("L4:R17")
Sheets("Übersicht").Select
With Application
.DisplayAlerts = True
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
For S = 2 To Range("nz85").End(xlToLeft).Column
If Cells(85, S) = Sheets("Auswertung").Range("L3") Then
Range(Cells(86, S), Cells(98, S)) = Daten
Exit For
End If
行85包含日期。我想在某个日期复制数据。 Daten
包含日期的信息,如果“L3”和接下来的6天。所以一周的数据。 我以为我可以简单地将一周的数据放入Daten
,并在一周的第一天粘贴它,希望它能粘贴下一个6天。问题在于它只在一列中粘贴日期。
我该如何解决这个问题?