Есть ли способ объединить листы с одинаковыми начальными 2 алфавитами в один лист? - PullRequest
0 голосов
/ 27 июня 2019

Я хотел объединить данные с одинаковыми заголовками и нет.столбцов в одном листе.У меня есть листы разных стран, например, США, Великобритания, EU1, EU2, EU3, EU4 .... и мне интересно, можно ли объединить лист с именем EU1, EU2, EU3 и EU4 в один лист с кодировкой vba?

PS.число ЕС меняется каждый раз, когда в другом файле может быть 5 ЕС или даже 6 листов ЕС, поэтому я бы хотел, чтобы оно также распространялось на другой файл

1 Ответ

0 голосов
/ 27 июня 2019
Sub Aggregate
Dim ws as worksheet
Dim Target as worksheet
dim x as integer
dim t as range
Set target = worksheets(1)
set t = target.range(target.usedrange.rows.count,1) 'first blank cell
for x = 2 to worksheets.count
    set ws = worksheets(x)
    ws.usedrange.copy t
    set t = target.range(target.usedrange.rows.count,1) 'first blank cell
next ws
End sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...