使用VBA创建偏移动态范围

Question

我希望将偏移函数包含到我的VBA代码中，我目前在单独的电子表格的名称管理器部分中有偏移量，但是希望将其包含在代码中。我希望将其集成到代码中作为注释。请有人帮忙吗？

Sub Unmet_Projects()

Dim x As Workbook
Dim y As Workbook

Set x = ThisWorkbook
Set y = Workbooks.Open("C:\Users\turnbull\Documents\Global Unmet Demand\1-extract-Unmet projects.xls")
y.Sheets("Sheet1").Range("Unmet_Projects").Copy
x.Sheets("Unmet Projects").Range("L3").PasteSpecial xlValues

End Sub



'=OFFSET(Sheet1!$A$4,0,0,COUNT(Sheet1!$A:$A),79)

Answer 1

因为WorsheetFunction Offset返回有效范围;您可以使用Worksheet.Range中的公式，也可以只使用Worksheet.Range中定义的名称。

您的代码看起来正确。您应该测试公式以确保它正在选择范围。

y.Sheets("Sheet1").Range("OFFSET(Sheet1!$A$4,0,0,COUNT(Sheet1!$A:$A),79)").Copy

x.Sheets("Unmet Projects").Range("L3").PasteSpecial xlValues