Member 12734412 Ответов: 1

Как скопировать данные из определенных ячеек?


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



Один
------------------
1 Больничное Учреждение
------------------
2 Общая Палата
------------------
3 Полуотдельной Палате
------------------
4 Полуотдельной Палате
------------------
5 Плата За Посещение Врача
---------------------
6 Плата За Посещение Врача
---------------------
7 Расходы Престарелых
---------------------
8 Зарядов Престарелых
----------------------
9 Требуется Депозит (Для Входа)
---------------------
10
--------------------

я скопировал данные в 9-ю строку,теперь я хочу начать копировать данные из 10-й строки с других листов с помощью vba

как я могу это сделать?

Что я уже пробовал:

я пробую этот код

Public Sub m()


n = ThisWorkbook.Worksheets.Count
For i = 2 To n
ThisWorkbook.Worksheets(i).Select
ThisWorkbook.Worksheets(i).Columns(2).Copy Destination:=ThisWorkbook.Worksheets("sheet1").Columns(1)
lastRow = ThisWorkbook.Worksheets("sheet1").Cells(Rows.Count,"A").End(xlUp).Row
Next
End Sub

1 Ответов

Рейтинг:
2

Patrice T

Путем копирования Columns- вы мешаете себе делать то, что хотите.
У вас есть в основном 2 возможности:
Вы можете копировать ячейку за ячейкой или копировать диапазоны.