Перенос только значений при копировании

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Перенос только значений при копировании - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Перенос только значений при копировании (Макросы/Sub)

Перенос только значений при копировании

aivella

Дата: Среда, 28.09.2022, 15:41 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 37

Репутация: 10 ±

Замечаний: 20% ±

Excel 2013

Добрый день, Excel-волшебники!

Есть макро для объединения таблиц из разных листов в первом листе.
Надо при копировании переносить только значения, а не формулы и ссылки.

Буду благодарна за подсказку, как подправить макро.

[vba]

Код

Dim Wks As Worksheet
Dim RG As Range
Dim strLC As String
Dim i As Long
Dim iCopyRowsCount As Long

For i = 2 To Worksheets.Count
With Worksheets(i).UsedRange
strLC = .Cells(.Rows.Count, .Columns.Count).Address
Set RG = .Range("A3:" & strLC)
iCopyRowsCount = .Rows.Count
End With
With Sheets("SUM").Cells(Rows.Count, 2).End(xlUp)
RG.Copy Destination:=.Offset(1, 0)
.Offset(1, -1).Resize(iCopyRowsCount) = Worksheets(i).Name
End With
Next i

End Sub

[/vba]