Доброго времени суток! Уважаемые форумчане помогите пожалуйста поправить макрос. Копирует с 13 по 23 столбцы в один на лист 2. Дело в том что в этих столбцах находятся формулы и они же копируются на второй лист в итоге вместо данных получаем "#ССЫЛКА!". Как сделать что бы на второй лист копировались только значения?
Макрос взят и немного переделан из темы
Заранее благодарен за помощь, в макросах совсем дилетант.
| Код |
|---|
Sub Macros1()
Dim i As Long, iLastColumn As Long, iLastRow As Long, lastRow As Long
iLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("Лист2")
lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 13 To 23
iLastRow = Cells(Rows.Count, i).End(xlUp).Row
If lastRow = 1 Then
Range(Cells(1, i), Cells(iLastRow, i)).Copy .Cells(lastRow, 1)
Else
Range(Cells(1, i), Cells(iLastRow, i)).Copy .Cells(lastRow + 1, 1)
End If
lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
Next
End With
End Sub
|
Макрос взят и немного переделан из темы
Заранее благодарен за помощь, в макросах совсем дилетант.
Изменено: - 27.04.2015 14:40:29
