изменить макрос, чтобы копировались только значения

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

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

изменить макрос, чтобы копировались только значения (Макросы/Sub)

amaksimus85

Дата: Воскресенье, 21.08.2022, 17:00 | Сообщение № 1

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

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

Сообщений: 21

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

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

здравствуйте.
что нужно поменять или добавить в макросе, чтобы копировались только значения, а не формулы (специальная вставка - значения)?
[vba]

Код

Sub CollectDataFromAllSheets()
    Dim ws As Worksheet

    Set wbCurrent = ActiveWorkbook

    Set wbReport = ActiveWorkbook

    wbCurrent.Worksheets(1).Range("A1:D1").Copy Destination:=wbReport.Worksheets(1).Range("A1")


    For Each ws In wbCurrent.Worksheets

        n = wbReport.Worksheets(1).Range("A1").CurrentRegion.Rows.Count


        Set rngData = ws.Range("A1:D5")


        rngData.Copy Destination:=wbReport.Worksheets(1).Cells(n + 1, 1)


    Next ws
End Sub

[/vba]

Ответить

jun

Дата: Воскресенье, 21.08.2022, 18:53 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 145

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

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

amaksimus85, здравствуйте!

Цитата amaksimus85, 21.08.2022 в 17:00, в сообщении № 1 (

)

специальная вставка - значения

да:
использовать метод:
https://docs.microsoft.com/ru-ru....special
с переменной https://docs.microsoft.com/ru-ru/office/vba/api/excel.xlpastetype == xlPasteValues

Сообщение отредактировал jun - Воскресенье, 21.08.2022, 18:53

Ответить

amaksimus85

Дата: Понедельник, 22.08.2022, 21:46 | Сообщение № 3

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

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

Сообщений: 21

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

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

jun,
я, так понимаю, нужно втавить этот код?
[vba]

Код

.Range("C1:C5").Copy
.Range("D1:D5").PasteSpecial _
Operation:=xlPasteSpecialOperationAdd

[/vba]

вопорос - куда?
я, просто, в этом не силен

Ответить

jun

Дата: Вторник, 23.08.2022, 08:11 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 145

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

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

amaksimus85, например так:
[vba]

Код

.Range("C1:C5").Copy
.Range("D1:D5").PasteSpecial xlPasteValues

[/vba]

К сообщению приложен файл: PasteSpecial.xlsb (14.5 Kb)

Сообщение отредактировал jun - Вторник, 23.08.2022, 08:13

Ответить

Sancho

Дата: Вторник, 23.08.2022, 12:58 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 279

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

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

2007, 2010, 2013

amaksimus85, jun, добрый день!
Просто, скопируйте равенством
[vba]

Код

.Range("F1:F5") = .Range("C1:C5").Value

[/vba]

Ответить

amaksimus85

Дата: Вторник, 23.08.2022, 14:32 | Сообщение № 6

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

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

Сообщений: 21

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

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

Цитата jun, 23.08.2022 в 08:11, в сообщении № 4 (

)

.Range("C1:C5").Copy
.Range("D1:D5").PasteSpecial xlPasteValues

куда это вставить или заменить именно в исходном макросе? ( макрос копирует данные со всех листов книги, листы всегда меняются)

Ответить

Sancho

Дата: Среда, 24.08.2022, 10:44 | Сообщение № 7

Группа: Проверенные

Ранг: Обитатель

Сообщений: 279

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

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

2007, 2010, 2013

amaksimus85,
Замените строки[vba]

Код

        Set rngData = ws.Range("A1:D5")


        rngData.Copy Destination:=wbReport.Worksheets(1).Cells(n + 1, 1)

[/vba]
на [vba]

Код

        With wbReport.Worksheets(1)
        .Range(.Cells(n + 1, 1), .Cells(n + 1 + 4, 4)) = ws.Range("A1:D5").Value
        End With

[/vba]
PS: С файлом примером было бы проще понять что вам надо копировать без формул, так только на догадках, ибо в 9й строке вы тоже зачем-то копируете и вставляете на тот же самый лист

Set wbCurrent = ActiveWorkbook

Set wbReport = ActiveWorkbook

wbCurrent.Worksheets(1).Range("A1:D1").Copy Destination:=wbReport.Worksheets(1).Range("A1")

Ответить

изменить макрос, чтобы копировались только значения (Макросы/Sub)

Страница 1 из 1
1