У меня очень слабый опыт работы с VBA, но теперь я столкнулся с проблемой, где это действительно необходимо.Цитирование всех активных рабочих листов
Мне нужно скопировать значение ячейки из нескольких листов (кроме «Сводка») в один рабочий лист, но перед проблемой. При запуске макроса я получаю около 30 строк со значениями, которые мне нужны, но все 30 значений принадлежат одному и тому же листу. Кажется, что цикл работает только около 1 листа. Не могли бы вы помочь мне найти ошибку в коде?
Sub CopyTotalSalesPrice()
For Each Worksheet In ActiveWorkbook.Worksheets
If Worksheet.Name <> "Summary" Then
Worksheet.Cells(Rows.Count, 7).End(xlUp).Select
End If
If Selection.Value > "0" Then
Selection.Copy
Worksheets("Summary").Cells(Rows.Count, 6).End(xlUp).Offset(2, 0).PasteSpecial (xlPasteValues)
Range("D4").Select
Selection.Copy
Worksheets("Summary").Cells(Rows.Count, 4).End(xlUp).Offset(2, 0).PasteSpecial (xlPasteValues)
End If
Next Worksheet
Worksheets("Summary").Select
End Sub
Спасибо вам большое! Tried WorkSheet.Cells, но он допустил ошибку «Select Method or Range Class Failed», но активация рабочего листа сделала именно то, что мне было нужно! :) Хорошего дня! –
отметьте его как правильный ответ, пожалуйста. в любом случае это рабочий лист, а не рабочий лист .... – Gotrekk