Excel VBA код для вырезания из одной ячейки и вставки в другую [закрыто]

чтобы помочь вам вдоль некоторых, для того, чтобы скопировать вставить с помощью VBA посмотрите на следующее:

Sub Copy_paste()
    ThisWorkbook.Sheets("Sheet1").Range("A1").Copy
    ThisWorkbook.Sheets("Sheet1").Range("B1").Select
    ThisWorkbook.Sheets("Sheet1").Paste
End Sub

Это должно быть довольно прямолинейно, но все, что помещено в "A1", является источником для копирования, и все, что помещено в" B1", является местом назначения. Кстати говоря вырезать вместо скопировать, просто заменить .Копировать С.Отрежьте вместо.

насколько ваша логика больше, чем и такой, просто добавьте некоторые логические операторы вокруг метода копирования / вставки I показать выше. Например, чтобы скопировать A1 В B1, если A1 больше 2:

Sub Copy_paste()
    If ThisWorkbook.Sheets("Sheet1").Range("A1") > 2 Then
        ThisWorkbook.Sheets("Sheet1").Range("A1").Copy
        ThisWorkbook.Sheets("Sheet1").Range("B1").Select
        ThisWorkbook.Sheets("Sheet1").Paste
    End If
End Sub

Примечание

Также обратите внимание, что вы можете ссылаться на ячейки по-разному. Ниже приведены все синонимы, если все происходит в одном и том же рабочая тетрадь:

• ThisWorkbook.Sheets("Лист1").Диапазон("А1")
• Диапазон ("'Sheet1'!A1")
• ThisWorkbook.Sheets("Лист1").Клетки(1,1)
• Sheets("Лист1").Клетки(1,1)
• Sheets("Лист1").Диапазон("А1")