Копировать данные из ячейки в несколько листов, вставить в несколько листов - PullRequest
0 голосов
/ 12 марта 2020

Я хочу скопировать данные в ячейку "C1" в sheet1 и вставить в динамический c диапазон "AA: AA" (Dynami c на основе диапазона "Z") на том же листе. После этого я хочу, чтобы циклы копировались из ячейки "c1" с каждого листа и вставлялись в диапазон "AA: AA" для каждого листа, делайте это до конца sh всех листов, но это не получается.

Ошибка: «Не удалось выбрать метод класса Range» в «Sheets (i) .Range (« Z21 »). End (xlDown) .Offset (0, 1) .Select»

Sub copy()
Dim i As Long
Dim s As Worksheet

Application.ScreenUpdating = False
For i = 1 To Sheets.Count

If Worksheets(i).Range("C1").Value <> "" Then
Sheets(i).Range("Z21").End(xlDown).Offset(0, 1).Select
Range(Selection, Selection.End(xlUp).Offset(1, 0)).Select = Worksheets(i).Range("C1").Value
End If
Next
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...