使用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