如何从一个工作簿复制的行和列的可变范围到另一个?

问题描述 投票:0回答:1

我使用的是主excel文件拉从外面工作簿中的数据。目前,我的宏占行的可变范围,但我无法弄清楚如何也占列的可变范围。

下面的代码要求我输入一个范围,我想复制的细胞。理想情况下,我想删除Ĵ这样,我就不限于外部列,但我一直没能明白这一点通过研究。为了使问题更复杂我在列K和L的公式,在列的引用值但这是一个单独的问题并不迫切。

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

我希望复制到从“原始数据”工作簿传送可变范围的行和列的“主”的工作簿。以这一步,我想我的公式最后两列与新数据移位。

excel vba loops copy-paste
1个回答
0
投票

注释的例子:

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 = ""
© www.soinside.com 2019 - 2024. All rights reserved.