Скопируйте и вставьте VBA

Question

Я работаю над проектом, которому требуется много копировать и вставлять ячейки между рабочими листами в excel, которые не в порядке. Я едва мог запрограммировать VBA. Я думаю, что если я смогу написать программу (щелкните или щелкните правой кнопкой мыши, чтобы скопировать клип и дважды щелкнуть, чтобы вставить другой рабочий лист), что могло бы ускорить мою работу. Пожалуйста, предложите мне.

Answer 1

вы могли бы использовать формулу первенствовать скопировать из одного листа к другому

следовать инструкциям на этом сайте

http://ccm.net/faq/9795-transfer-data-between-excel-spreadsheets

это в основном говорит

в типе клетки-мишени + затем выберите исходный лист нажмите на исходную ячейку , затем нажмите ввод

эти шаги сделают копию, например, рабочий лист 1, ячейку A1 в рабочий лист 2 ячейки A1

формула выглядит следующим образом: = + Лист1! A1

Я надеюсь, что это в какой-то помогите вам

Answer 2

У вас есть несколько вариантов здесь, но позвольте мне сначала объяснить вам одну вещь.

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

Опции Без излишеств:

Sub Copy_and_Paste() 
Sheets("Your Sheet Name").Range("Your Range").Copy 
Sheets("Your Destination Sheet Name").Range("Your Destination Range").Paste 
End sub 

Пример Нет оборка

Sub Copy_and_Paste() 
Sheets("Sheet 1").Range("A1:A10").Copy 
Sheets("Sheet 2").Range("B1:B10").Paste 
' You don't have to paste them in the exact same range. 
' Just make sure they are the same size. 
End sub 

Значение опция

Sub Value_to_Value() 
Sheets("Your Destination Sheet Name").Range("Your Destination Range").value = Sheets("Your Sheet Name").Range("Your Range").value 
End sub 

Пример Значение

Sub Value_to_Value 
Sheets("Sheet 2").Range("B1:B10").value = Sheets("Sheet 1").Range("A1:A10").value 
End sub 

Экспериментируйте с обоими, чтобы придумать версию, которую вы предпочитаете.