要理解“Collection存储Union区域后能分两次Resize写入单元格”的核心原因，需先理清Collection的存储特性、Union区域的结构和Resize写入的逻辑三者的关系，以下是逐层拆解：
一、核心前提：Collection存储的是“独立的Range对象”，而非合并的Union
你提到的“用Collection添加Union”，实际场景通常是：
DimcolAsNewCollection' 分两次添加两个独立Range（而非直接添加合并后的Union）col.Add Range("A1:A3")' 第一个区域col.Add Range("C1:C2")' 第二个区域' （而非 col.Add Union(Range("A1:A3"), Range("C1:C2"))）这是能“分两次Resize写入”的关键——Collection中存储的是两个独立的Range对象（而非合并后的Union），每个对象都保留了自身的行数、列数和值，因此可逐个取出并单独Resize写入。
二、为什么能“分两次Resize入单元格”？
1. Collection的“有序性+独立存储”
Collection是有序的对象容器，存入的每个Range会被分配独立的索引（如col(1)对应第一个Range，col(2)对应第二个），且每个Range对象的属性（.Rows.Count/.Columns.Count/.Value）完全保留，可单独提取。
2. Resize的“适配性”
Resize(行数, 列数)可根据单个Range的尺寸，精准匹配写入的单元格范围：
- 若取出的是单行多列Range（如
C1:C2是2列1行），则startCell.Resize(1, 2)可刚好容纳该区域的值； - 若取出的是多行单列Range（如
A1:A3是1列3行），则startCell.Resize(3, 1)可匹配。
3. “连续写入”的逻辑：动态更新起始单元格
分两次写入时，只需在第一次写入后，将起始单元格偏移到已写入区域的下一列/行，即可实现连续拼接，示例如下：
三、完整示例：Collection存储两个Range，分两次Resize连续写入
SubWriteCollectionRangeByResize()DimcolAsNewCollectionDimrng1AsRange,rng2AsRangeDimstartCellAsRangeDimiAsIntegerDimcurrentCellAsRange' 动态更新的写入起点' 1. 初始化两个独立Range，存入CollectionSetrng1=Range("A1:A3")' 3行1列Setrng2=Range("C1:C2")' 1行2列col.Add rng1' 第一个区域（索引1）col.Add rng2' 第二个区域（索引2）' 2. 定义写入起始单元格（如F1）SetstartCell=Range("F1")SetcurrentCell=startCell' 初始起点' 3. 分两次取出Collection中的Range，Resize写入Fori=1Tocol.CountDimtempRngAsRangeSettempRng=col(i)' 取出第i个Range' 关键：根据取出Range的尺寸Resize，写入当前起点currentCell.Resize(tempRng.Rows.Count,tempRng.Columns.Count).Value=tempRng.Value' 更新起点：横向连续（按列偏移），若纵向则改为 .Offset(tempRng.Rows.Count, 0)SetcurrentCell=currentCell.Offset(0,tempRng.Columns.Count)Nexti MsgBox "写入完成！区域：" & startCell.Address & "至 "¤tCell.Offset(0,-1).AddressEndSub四、对比：Union vs Collection存储的差异
| 存储方式 | 存储内容 | 能否分两次Resize写入 | 原因 |
|---|---|---|---|
| Collection | 多个独立的Range对象 | ✅ 可以 | 每个Range独立存储，可通过索引逐个取出，单独Resize适配 |
| Union | 合并后的单个Range对象 | ❌ 直接不行 | Union是“合并的整体”，遍历需拆解子区域，无法直接按原独立区域分两次取出 |
五、补充：若Collection中存的是“合并后的Union”，如何分两次写入？
如果Collection中实际存储的是Union(rng1, rng2)（而非两个独立Range），则需先拆解Union的子区域，再分两次写入：
SubWriteUnionFromCollection()DimcolAsNewCollectionDimunionRngAsRange,subRngAsRangeDimstartCellAsRange,currentCellAsRange' 1. Collection中存入合并后的UnionSetunionRng=Union(Range("A1:A3"),Range("C1:C2"))col.Add unionRng' 2. 取出Union并拆解子区域SetstartCell=Range("F1")SetcurrentCell=startCellFor EachsubRngIncol(1)' 遍历Union的子区域（分两次）currentCell.Resize(subRng.Rows.Count,subRng.Columns.Count).Value=subRng.ValueSetcurrentCell=currentCell.Offset(0,subRng.Columns.Count)NextsubRngEndSub总结
核心原因是：
- Collection有序且独立存储每个Range对象，保留了原Range的尺寸和值；
- 每次取出一个Range后，可通过
Resize匹配其尺寸写入单元格； - 动态更新起始单元格的位置，实现“连续写入”。
而如果是直接存储合并后的Union，需先拆解其子区域（For Each subRng In UnionRng），才能按原区域分两次Resize写入。
)