Автоматическое копирование в excel с листа на лист при занесении данных

Эта статья может вам помочь для автоматического копирования и вставки значения ячейки в текущем листе или с одного листа на другой без использования сочетаний клавиш.

Автоматическое копирование и вставка ячейки в текущий лист или с одного листа на другой с формулой
Автоматическое копирование и вставка ячейки в текущий лист с помощью VBA
Скопируйте и вставьте несколько диапазонов на текущий лист или с одного листа на другой с помощью Kutools for Excel

Автоматическое копирование и вставка ячейки в текущий лист или с одного листа на другой с формулой

Вы можете использовать формулу для автоматического копирования и вставки ячейки. Пожалуйста, сделайте следующее.

1. Чтобы скопировать и вставить ячейку в текущий лист, например, скопировать ячейку с A1 в D5, вы можете просто выбрать ячейку назначения D5, а затем ввести = A1 и нажмите клавишу Enter, чтобы получить значение A1.

2. Для копирования и вставки ячейки с одного листа на другой, например для копирования ячейки A1 листа Sheet1 в ячейку D5 листа Sheet2, выберите ячейку D5 на листе Sheet2, затем введите = Лист1! A1 и нажмите клавишу Enter, чтобы получить значение.

Tips: Целевая ячейка связана с скопированной ячейкой и будет изменена по мере изменения исходной ячейки.

Автоматическое копирование и вставка ячейки в текущий лист с помощью VBA

Следующий код VBA помогает скопировать ячейку или диапазон ячеек и вставить их в указанные ячейки на текущем листе.

1. Нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте приведенный ниже код VBA в окно модуля.

Код VBA: автоматическое копирование и вставка ячейки в текущий лист

Sub RangeTest()
    On Error Resume Next
    Dim xRg As Range
    Set xRg = Application.Selection
    Range("A1 ").Copy Range("D5")
    xRg.Select
End Sub

Внимание: В коде A1 — это ячейка, которую вы скопируете, а D5 — это ячейка назначения для размещения значения ячейки A1. Для автоматического копирования и вставки диапазона ячеек замените ячейку диапазоном, например замените A1 на A1: A10 и замените D5 на D1: D10.

3. нажмите F5 нажмите клавишу для запуска кода, то определенная ячейка (диапазон) будет автоматически скопирована и вставлена ​​в указанную ячейку (диапазон), а также форматирование ячейки.

Скопируйте и вставьте несколько диапазонов на текущий лист или с одного листа на другой с помощью Kutools for Excel

Если у вас есть несколько диапазонов, которые нужно скопировать одновременно, вы можете попробовать Копировать диапазоны полезности Kutools for Excel.

1. Выберите несколько диапазонов, которые нужно скопировать, удерживая Ctrl ключ. Затем нажмите Кутулс > Копировать диапазоны. Смотрите скриншот:

2. в Копировать несколько диапазонов диалоговое окно, вы можете увидеть, что выбранные диапазоны перечислены в Диапазоны для копирования коробка. Затем укажите параметр в Специальная вставка раздел, проверьте Включая высоту строки или Включая ширину столбца поле, как вам нужно, и, наконец, нажмите OK кнопка. Смотрите скриншот:

3. В секунду Копировать несколько диапазонов диалоговом окне укажите пустую ячейку для вставки выбранных диапазонов, а затем щелкните значок OK кнопку.

Внимание: если вы хотите вставить выбранные диапазоны на другой лист, выберите ячейку на этом листе и нажмите кнопку «ОК» во втором диалоговом окне «Копировать несколько диапазонов».

Теперь выбранные диапазоны копируются и вставляются в указанное место.

  Если вы хотите получить бесплатную пробную версию (30-день) этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.

Скопируйте и вставьте несколько диапазонов в текущий лист или с одного листа на другой

Статьи по теме:

• Как автоматически заполнять другие ячейки при выборе значений в раскрывающемся списке Excel?
• Как выполнить автозаполнение при вводе в раскрывающемся списке Excel?
• Как автоматически заполнять дату в ячейке, когда соседняя ячейка обновляется в Excel?

Код

=ЕСЛИ(Лист1!A1<>»»;Лист1!A1;»»)

Код

=ЕСЛИ(ЕПУСТО(A1);»»;»1″)

Код

=ЕСЛИ(ЕПУСТО(A1);»»;»яблоко»)

This macro allows you to quickly and easily copy all new data from one worksheet to another; it also allows you to delete all data from the ‘import’ worksheet after it has been copied over.

This will save you a lot of time when consolidating data in Excel.

Below, I’ll give you the code and an explanation of how to modify it for your use.

Sections:

The Macro

Use the Macro

Notes

The Macro

Sub Copy_New_Data()
''''''''  TeachExcel.com  ''''''''
'Copy all new rows from one worksheet to another.

Dim importSheet, destinationSheet As Worksheet
Dim importLastRow, importColumnCheck, destinationColumnCheck, _
importStartRow, destinationStartRow, curRow, destinationLastRow As Integer
Dim dataToCheck As Variant
Dim rng, rDel As Range


' ------------------------------------------------------------------- '
' ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| '
'           Change this section to work for your workbook.
' ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| '
' ------------------------------------------------------------------- '
'Set the worksheets
Set importSheet = Sheets("Import") 'worksheet to copy data from
Set destinationSheet = Sheets("backup") 'worksheet to paste new data

'Import data column to check
importColumnCheck = 1
'Destination data column to check
destinationColumnCheck = 1

'Start row on import sheet
importStartRow = 2
'Start row on destination sheet
destinationStartRow = 2
' ------------------------------------------------------------------- '
' ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| '
' ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| '
' ------------------------------------------------------------------- '


'Get last row from import worksheet
importLastRow = importSheet.Cells(Rows.Count, importColumnCheck).End(xlUp).Row

'Loop through range
For curRow = importStartRow To importLastRow

    'Get data to check
    dataToCheck = importSheet.Cells(curRow, importColumnCheck).Value

    'Get last row from destination sheet
    destinationLastRow = destinationSheet.Cells(Rows.Count, importColumnCheck).End(xlUp).Row

    'Check for duplicate
    With destinationSheet.Range(destinationSheet.Cells(destinationStartRow, destinationColumnCheck), destinationSheet.Cells(destinationLastRow, destinationColumnCheck))
        Set rng = .Find(What:=dataToCheck, _
                        LookIn:=xlValues, _
                        LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext, _
                        MatchCase:=False)

        If Not rng Is Nothing Then
            'Record already exists

            'mark rows for deletion
            If Not rDel Is Nothing Then
                Set rDel = Union(Range("A" & curRow), rDel)
            Else
                Set rDel = Range("A" & curRow)
            End If

        Else
            'New record, so copy it over
            importSheet.Range("A" & curRow).EntireRow.Copy destinationSheet.Range("A" & destinationLastRow + 1)

            'mark rows for deletion
            If Not rDel Is Nothing Then
                Set rDel = Union(Range("A" & curRow), rDel)
            Else
                Set rDel = Range("A" & curRow)
            End If

        End If

    End With

Next curRow

'Delete rows that need to be deleted
'Un-comment the next line of code if you want to delete copied rows.
'rDel.EntireRow.Delete

End Sub

Where to install macro: Module

Use the Macro

Choose Worksheet to Copy from and Paste To

Change this section of the code to the correct names of the sheets from which you will copy your data and to which you will paste your data.

'Set the worksheets
Set importSheet = Sheets("Import") 'worksheet to copy data from
Set destinationSheet = Sheets("backup") 'worksheet to paste new data

Import is the name of the sheet from which you will copy data.

backup is the name of the sheet to which you will paste the data.

Change these as needed.

Change Start Row for Copying/Pasting

This is the first row from which you will copy data. Do not include the header row.

'Start row on import sheet
importStartRow = 2
'Start row on destination sheet
destinationStartRow = 2

Right now, the import and destination rows start on row 2.

Change Comparison Column — Column that is Used to Check for Duplicate Rows

You need to select one column in which to check for duplicate rows. For instance, you could check an ID or OrderNumber, basically anything that must always be unique for each record or row of data.

'Import data column to check
importColumnCheck = 1
'Destination data column to check
destinationColumnCheck = 1

This checks in column A for duplicate values.

1 means column A; 2 means column B; 3 means column C; and so on.

Delete All Records after Being Copied to the New Sheet

If you want all records that have already been copied over or already exist on the destination sheet to be deleted from the Import worksheet, uncomment the following line:

'rDel.EntireRow.Delete

This is at the very end of the macro.

To uncomment, remove the single quotation mark from the start of this line of code.

Notes

This is a powerful little macro and it is pretty easy to customize for your needs. I recommend using it on sample data first though to make sure you get the desired results.

Make sure to download the sample file attached to this tutorial to get the macro and some sample data with which to test the macro.