Добрый День! Есть у нас большой график с множеством фильтров, один из фильтров исполнитель, их 5 шт. каждый исполнитель заполняет за себя сам. Но вот возникла необходимость объединить график в один. и о чудо, он не даёт копировать ячейки с заполненными данными ( просто цифры, без формул). пробовал вот такой вот макрос:
взял его из темы:
пишет: Диапазоны копирования и вставки разного размера!
хотя ячейки одного размера во всех файлах. подскажите, как быть.
| Код |
|---|
Sub PasteToVisible() Dim copyrng As Range, pasterng As Range
Dim cell As Range, i As Long
'запрашиваем у пользователя по очереди диапазоны копирования и вставки
Set copyrng = Application.InputBox("Диапазон копирования", "Запрос", Type:=8)
Set pasterng = Application.InputBox("Диапазон вставки", "Запрос", Type:=8)
'проверяем, чтобы они были одинакового размера
If pasterng.SpecialCells(xlCellTypeVisible).Cells.Count <> copyrng.Cells.Count Then
MsgBox "Диапазоны копирования и вставки разного размера!",vbCritical
Exit Sub
End If
'переносим данные из одного диапазона в другой только в видимые ячейки
i = 1
For Each cell In pasterng
If cell.EntireRow.Hidden = False Then
cell.Value = copyrng.Cells(i).Value
i = i + 1
End If
Next cell
End Sub |
пишет: Диапазоны копирования и вставки разного размера!
хотя ячейки одного размера во всех файлах. подскажите, как быть.
