Как скопировать переменный диапазон строк и столбцов из одной рабочей книги в другую?

Question

Я использую файл Master Excel для извлечения данных из внешних рабочих книг.В настоящее время мой макрос учитывает переменный диапазон строк, но я не могу понять, как также учитывать переменный диапазон столбцов.

Приведенный ниже код требует ввода диапазона ячеек, которые я хотел бы скопировать,В идеале я хотел бы удалить J, чтобы не ограничиваться внешним столбцом, но я не смог выяснить это с помощью исследований.Чтобы усложнить задачу, у меня есть формулы в столбцах K и L, которые ссылаются на значения в столбце A, но это отдельная проблема, которая не является актуальной.

Sub Copy_Raw_Data()

  Application.ScreenUpdating = False

  Dim CopySheet As Worksheet
  Dim pasteSheet As Worksheet

  Set CopySheet = Worksheets("Raw Data Sheet1")
  Set pasteSheet = Worksheets("Master Sheet")

  Workbooks.Open ("S:\Raw Data.xlsx")

  With Sheets("Raw Data Sheet1").Range("A2:J" & Cells(Rows.Count, "J").End(xlUp).Row).Copy

  Workbooks("Master.xlsm").Activate

  pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
  Application.CutCopyMode = False
  Application.ScreenUpdating = True

  End With

  Workbooks("Raw Data.xlsx").Save
  Workbooks("Raw Data.xlsx").Close

  Worksheets("Master Sheet").Select

End Sub

Я ожидаю, что копия передаст переменный диапазонстроки и столбцы из рабочей книги «Raw Data» в рабочую книгу «Master».Сделав еще один шаг вперед, я бы хотел, чтобы мои формулы в последних двух столбцах переместились с новыми данными.

Answer 1

Пример комментария:

dim sr as long, er as long, sc as long, ec as long
sr = 2 'starting row
er = cells(rows.count,1).end(xlup).row 'end row
sc = 1 'starting column ("A")
ec = cells(1, rows.count).end(xltoleft).column 'end column
'utilize above variables
Range(Cells(sr,sc),Cells(er,ec)).Value = ""