Задача:
VBA Excel: В одну книгу консолидировать данные с двух других
Ниже часть кода:
Dim SourceR As Range
Dim TargetR As Range
Private Sub SourceSheets_Click()
TownBox.Clear
Workbooks.Item(SourceListBox.ListIndex + 1).Activate
n = SourceListBox.ListIndex + 1
n1 = SourceSheets.ListIndex + 1...