匪夷所思的Range()合并区域赋值问题

山菊花

手工操作与程序操作效果不一样，又是一个疑惑。

lee1892

发现一个非常有意思的现象，貌似为解决Range对象的区域不连续时，微软采用了一些很有趣的做法：

Range对象选定区域连续时：

1. With ActiveSheet.Range("D1:F5")
   
2.     Debug.Print .Cells.Count '-> 15 选定区域的单元格数量
   
3.     Debug.Print .Cells.Item(4).Address '-> $D$2 说明是先同行计序数，到达区域列尾返回至下一行的区域内首列
   
4.     Debug.Print .Cells.Item(20).Address '-> $E$7 超出区域但不报错，限制在区域的列内
   
5.     Debug.Print .Cells(3,3).Address '-> $F$3 以选定区域左上角单元格为起始单元格
   
6.     Debug.Print .Cells(5,6).Address '-> $I$5 同上，可以超出选定区域
   
7. End With

复制代码

Range对象选定区域不连续时：

1. With ActiveSheet.Range("D1:E5,G1:H5")
   
2.     Debug.Print .Cells.Count '-> 30 选定区域的单元格数量
   
3.     Debug.Print .Cells.Item(4).Address '-> $E$2 或许你会以为是 H1
   
4.     Debug.Print .Cells.Item(11).Address '-> $D$6 或许你会以为是 G1
   
5.     Debug.Print .Cells.Item(66536).Address '-> $E$33268 看来是到不了G列的了
   
6.     Debug.Print .Cells(3,3).Address '-> $F$3 以选定区域左上角单元格为起始单元格
   
7.     Debug.Print .Cells(5,6).Address '-> $I$5 同上，可以超出选定区域
   
8. End With

复制代码

但是用前面提到的 For Each oRng In .Cells 的方法，又可以获得后续的不连续区域的内容，且限定在所选区域内，这实在是非常有意思~

显然.Cells方法返回的是一个类似于Collection集合的对象，对于连续区域而言，下面的两种方法是等效的

1. With ActiveSheet.Range("D1:F5")
   
2.     For Each oRng In .Cells
   
3.         Debug.Print oRng.Address
   
4.     Next
   
5.     For i = 1 To .Cells.Count
   
6.         Debug.Print .Cells.Item(i).Address
   
7.     Next
   
8. End With

复制代码

但对于不连续区域而言，这两者就不一样了

1. With ActiveSheet.Range("D1:E5,G1:H5")
   
2.     For Each oRng In .Cells
   
3.         Debug.Print oRng.Address
   
4.     Next
   
5.     For i = 1 To .Cells.Count
   
6.         Debug.Print .Cells.Item(i).Address
   
7.     Next
   
8. End With

复制代码

Zamyi

的确奇怪：

1. 
   
2. a = [{1;2;3;4;5}]
   
3. Range("a1:a5,b1:f1") = a
   
4. Range("b11:f11,a11:a15") = a

复制代码

列转行可以，行转列却不行：

1. 
   
2. a = [{1;2;3;4;5}]
   
3. Range("a1,a1:e1") = a
   
4. 
   
5. a = [{1,2,3,4,5}]
   
6. Range("a10,a10:a14") = a

复制代码

m_n_j001

看了12楼的，试了下，以下是在2013下的结果：
With ActiveSheet.Range("D1:E5,G1:H5")
    Debug.Print .Cells.Count '20 选定区域的单元格数量
    Debug.Print .Cells.Item(4).Address ' 与.Areas(1).Cells.Item(4).Address等效
    Debug.Print  .Areas(2).Cells.Item(4).Address 得到$h$2
……
End With
区域不连续（即多区域），缺省时默认是Areas(1)，并从它的第一个格子开始计行列偏移量。
指定区域时，则从指定区域的第一个格子开始计行列偏移量。
行列偏移量可以偏移出区域范围，只要不超出区域整张sheet的行列范围：
With ActiveSheet.Range("D3:E5,G1:H5")
     Debug.Print .Cells(44,30).Address ' 有结果
     Debug.Print  .Cells(1048576,30) ' 报错
……
End With

oldyuan

火前留名。养肥了学习！

黄金万两︶ㄣ

这样想吧：看Worksheet.Range 属性中的这个（）里面思考，在这讨论的列子，那么比喻为Range（二维数组（老师侧试时所说的奇数），一维数组（老师侧试时所说的 偶数），二维数组（老师侧试时所说的 奇数），一维数组（老师侧试时所说的 偶数），这样一直下去 ）因为与Range（"a1"）中的a是列（那是说是二维数组），1是行（那是说是一维数组 ），是双双对应。那么得出来的结果就是老师侧试的了 。我才自学vba一个月，且不会英语。说错的请老师见谅

shejis0001

感谢。。。。。

EXCEL江湖

   利用字典设置的有规律变化的多个区域选择，为什么运用到数组函数时会出错，还请老师指导!
Dim rg As Range

For rr = 0 To d2.Count - 1
If rr = 0 Then
Set rg = Range(Cells(7 + rr * (d1.Count + 2), 2), Cells(4 + (rr + 1) * (d1.Count + 2), d.Count + 1))
Else
Set rg = Union(rg, Range(Cells(7 + rr * (d1.Count + 2), 2), Cells(4 + (rr + 1) * (d1.Count + 2), d.Count + 1)))
End If
Next
rg.Select
Range(Cells(4, 2), Cells(er, d2.Count + 3)).FormulaArray = zchj(rg)

zjwzri

连续区域给不连续区域赋值问题的解决方案，在大家的提醒中得到的
Dim rng1 As Range, rng2 As Range, arr1, arr2, rng11 As Range, rng22 As Range
Dim a As String, b As String
Sub ddd()
   Set rng1 = Sheet1.Range("a1:a10")
   Set rng2 = Union(Sheet1.Range("b1:b10"), Sheet1.Range("b14:b23"), Sheet1.Range("b28:b37"), Sheet1.Range("b41:b50"))
    For Each rng11 In rng1
        If Len(a) = 0 Then
        a = rng11.Value
        Else
        a = a & "," & rng11.Value
        End If
    Next
    For Each rng22 In rng2
        If Len(b) = 0 Then
        b = rng22.Address
        Else
        b = b & "," & rng22.Address
        End If
    Next
    arr1 = Split(a, ",")
    arr2 = Split(b, ",")
    rng2.Select
    rng2.ClearContents
    For i = 0 To UBound(arr2)
        If i > 1 And i < 2 And i Mod (UBound(arr1) + 1) = 0 Then
            Sheet1.Range(arr2(i)) = arr1(9)
        Else
            Sheet1.Range(arr2(i)) = arr1(i Mod (UBound(arr1) + 1))
        End If
    Next i
End Sub

zjwzri

再来一个，
不连续区域给不连续区域赋值问题的解决方案
前提是这两个区域相等
Dim rng1 As Range, rng2 As Range, arr1, arr2, rng11 As Range, rng22 As Range
Dim a As String, b As String
Sub ddd()
   Set rng1 = Union(Sheet1.Range("B1:B23"), Sheet1.Range("B36:B41"), Sheet1.Range("B51:B56"), Sheet1.Range("B69:B74"), Sheet1.Range("B84:B89"))
   Set rng2 = Union(Sheet1.Range("c1:c23"), Sheet1.Range("c36:c41"), Sheet1.Range("c51:c56"), Sheet1.Range("c69:c74"), Sheet1.Range("c84:c89"))
    For Each rng11 In rng1
        If Len(a) = 0 Then
        a = rng11.Value
        Else
        a = a & "," & rng11.Value
        End If
    Next
    For Each rng22 In rng2
        If Len(b) = 0 Then
        b = rng22.Address
        Else
        b = b & "," & rng22.Address
        End If
    Next
    arr1 = Split(a, ",")
    arr2 = Split(b, ",")
    rng2.Select
    rng2.ClearContents
    For i = 0 To UBound(arr1)
        Sheet1.Range(arr2(i)) = arr1(i)
    Next i
End Sub