Диапазон копирования vba на другой лист + книгу
Чтобы скопировать ячейку или диапазон ячеек на другой лист, вы должны использовать метод VBA «Копировать». В этом методе вам необходимо определить диапазон или ячейку, используя объект диапазона, который вы хотите скопировать, а затем определить другой рабочий лист с диапазоном, в который вы хотите его вставить.
Скопируйте ячейку или расположите ее на другом листе
Range("A1").Copy Worksheets("Sheet2").Range("A1")- Сначала установите диапазон или ячейку, которую вы хотите скопировать.
- Затем введите точку (.) и выберите метод копирования из списка свойств и методов.
- Здесь вы получите intellisense для установки места назначения скопированной ячейки.
- Отсюда вам нужно определить рабочий лист, а затем диапазон назначения.
Теперь, когда вы запускаете этот код, он копирует ячейку A1 с активного листа на «Лист2». Вам нужно убедиться в том, что когда вы копируете ячейку и вставляете ее в место назначения, форматирование также вставляется туда.
Но если вы просто хотите скопировать значение ячейки и вставить его в разные листы, рассмотрите следующий код.
Worksheets("Sheet2").Range("A1") = Range("A1").ValueЭтот метод не использует метод копирования, а просто добавляет значение к целевому листу, используя знак равенства и используя свойство value с исходной ячейкой.
Скопировать ячейку из другого листа
Теперь предположим, что вы хотите скопировать ячейку из листа, который в данный момент не активен. В этом случае вам необходимо определить рабочий лист с исходной ячейкой. Точно так же, как следующий код.
Worksheets("sheet1").Range("A1").Copy Worksheets("Sheet2").Range("A1")Копирование диапазона ячеек
Range("A1:A10").Copy Worksheets("Sheet2").Range("A1:A10") Range("A1:A10").Copy Worksheets("Sheet2").Range("A1")Копирование ячейки листа в другую книгу
Когда книги открыты , но еще не сохранены.
Workbooks("Book1").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("Book2").Worksheets("Sheet1").Range("A1")Когда книги открываются и сохраняются.
Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("Book2.xlsx").Worksheets("Sheet1").Range("A1")Копирование ячейки листа в другую закрытую книгу
'to open the workbook that is saved in a folder on your system _ change the path according to the location you have in your _ system Workbooks.Open "C:UsersDellDesktopmyFile.xlsx" 'copies cell from the book1 workbook and copy and paste _ it to the workbook myFile Workbooks("Book1").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("myFile").Worksheets("Sheet1").Range("A1") 'close the workbook and after saving Workbooks("myFile").Close SaveChanges:=TrueСвязанный: Как открыть книгу с помощью VBA в Excel