将单个单元格添加到公式中的范围

Question

I have a Sub that dynamically selects a range of cells and then passes that range in to the Internal Rate of Return Formula. I need to have a single cell appended to the beginning of the range for the formula to work. See below:

Dim calcrange As Range
Set calcrange = Range(Range("B57"), Range("B57").End(xlToRight))

Range("IRR").Formula = "=IRR(" & calcrange.Address & ")"

So ideally, what I'd like to do is add a named range cell "InvestmentOutlay" to be the first cell in the range. The InvestmentOutlay Cell is on a previous sheet, but the order I'd like the formula to run through is

=IRR(InvestmentOutlay,B57,C57, etc)

... Is this possible to do?

Answer 1

这样，使用Union加入两个范围？

Set calcrange = Union(Range("InvestmentOutlay"), Range(Range("B57"), Range("B57").End(xlToRight)))