Я пытаюсь найти способ использовать вырезать и вставить специальные, только значения. Из того, что я читал до сих пор, кажется, что это невозможно. Поэтому я нашел другой способ - использовать vba, чтобы копировать и вставлять значения только в мою электронную таблицу. Теперь я хотел бы добавить строку для удаления источника после того, как он был вставлен.

вот что я нашел до сих пор (извините, я совершенно новичок в VBA).

Sub PasteAsValue()
    Selection.PasteSpecial Paste:=xlPasteValues
End Sub

затем под именем макроса "PasteAsValue" я ввожу комбинацию клавиш ctrl+v

Спасибо за помощь.

|источник

1 ответ1

0

Так как вы не указали, какие строки / строки вырезать, вставить и удалить, я принял строку источника и места назначения. Лучше изменить диапазон по мере необходимости. 

Sub CutPaste()    

        Worksheets("Sheet1").Activate
        Range("A2").Select
        Selection.Cut
        Range("A10").Select
        ActiveSheet.PasteSpecial Paste:=xlPasteValues
        Range("A2").EntireRow.Delete

    End Sub

Надеюсь, это поможет вам.

|источник

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .