如何在VBA中从两个范围创建一个范围? [英] How to create a range from two ranges in VBA?

问题描述

我有两个范围，每个范围包含一个单元格(例如"A1"和"C3").

I have two ranges, each containing a single cell (for example "A1" and "C3").

如何获得包含这两个之间的所有单元格的新范围("A1:C3")?

How do I get a new range containing all the cells between these two ("A1:C3")?

我尝试过:

Set NewRange = Range(Range1.Address:Range2.Address)

我还如何设置R1C1格式的范围?我想使用Range("R1C2")之类的东西，而不是Range("A2").

Also how do I set a range in R1C1 format? I want to use something like Range("R1C2") instead of Range("A2").

推荐答案

喜欢吗?

Sub Sample()
    Dim rng1 As Range, rng2 As Range
    Dim NewRng As Range

    With ThisWorkbook.Sheets("Sheet1")
        Set rng1 = .Range("A1")
        Set rng2 = .Range("C3")

        Set NewRng = .Range(rng1.Address & ":" & rng2.Address)

        Debug.Print NewRng.Address
    End With
End Sub

使用Cells(r,c)代替R1C1格式.这样可以为您带来更多的灵活性和控制力

Instead of R1C1 format use Cells(r,c). That will give you more flexibility + control

因此Range("A2")可以写为Cells(2,1)

这篇关于如何在VBA中从两个范围创建一个范围?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！