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

Мой код ниже

  Range("H" & Target.Row).Copy Destination:=Sheets("Accepted Template").Range("P4").PasteSpecial Paste:=xlPasteValues

Любая идея, что я сделал не так здесь. VBA продолжает выбрасывать неожиданную конечную ошибку.

|источник

1 ответ1

0

Вы можете попробовать этот код скопировать отформатированное значение ячейки из листа 1 и вставить в лист 2 в ячейку / ячейки назначения без форматирования (только значение). 

Private Sub CommandButton1_Click()
Sheets("Sheet1").Range("A3").Copy
Sheets("Sheet2").Range("A3, A4").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

NB

  • Если вы хотите скопировать форматированный диапазон, замените строку 2 в коде на эту, Sheets("Sheet1").Range("A3:A10").Copy

Заметка,

  • Этот код также может быть использован в качестве стандартного модуля.
  • Просто для целенаправленного тестирования кода я использовал 2 ячейки назначения, вы можете использовать одну или даже несколько.
  • Это может быть сделано даже при использовании опции Paste Special и Value .
|источник

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