如何使用 VBA 中的两个变量选择一系列单元格

Question

I would like to use:

    Set rng1 = .Range("A1")
    Set rng2 = .Range("C3")

as discussed in this link . The OP had cell A1 and cell C3 as two separate one-cell ranges. He asked how to change the range so that all cells in between them are also included in a new bigger range. My issue is similar, but my cell range changes with each new scenario. Example #1 start date in cell D1 and end date in cell Y1, new range is D1:Y1; or example #2 start date in cell B1 and end date in cell AZ1, new range is B1:AZ1. How can I change the above code so that a variable can be used instead of a static range?

Answer 1

I am not sure if I understood the question correctly. So, please have a look at the following and let me know if this resolves your "problem":

Option Explicit

Public Sub tmpTest()

Dim rng1 As Range
Dim rng2 As Range
Dim rngComposite As Range

With ThisWorkbook.Worksheets(1)
    Set rng1 = .Range("A1")
    Set rng2 = .Range("C3")
    Set rngComposite = .Range(rng1, rng2)
    Debug.Print rngComposite.Address
End With

End Sub

Essentially, the range .Range(rng1, rng2) is as dynamic as the underlying ranges and will change each time that rng1 or rng2 changes.

Answer 2

Here's a brute-force solution that builds the composite range using strings:

rngTxt1 = Cells(Cost_Row, Cost_PnCol).Address(RowAbsolute:=False, columnabsolute:=False)
rngTxt2 = Cells(Cost_LastRow, Cost_PnCol).Address(RowAbsolute:=False, columnabsolute:=False)

Worksheets(Cost_SheetName).Range(rngTxt1 & ":" & rngTxt2).ClearFormats