多个单元格区域转数组问题，请各位老师看一下如何解决，谢谢！

老磨石

function 单元格区域转数组并遍历数组(){
        const ShB = Sheets("数据表")
        var arr=[];
        var rng=Application.Union(ShB.Range('A3:A100'),ShB.Range('B3:B100'),ShB.Range('G3:G100'));  //把三个区域rng
        Cou=rng.Areas.Count
        for (let i=1;i<=rng.Areas.Count;i++){
                arr.push(rng.Areas(i).Value2.flat());  //flat()方法，一次性读出数据转二维数组
        }
        var h=arr.length; //数组行数
        var l=arr[0].length;  //数组列数
        ShB.Range("J3:S999").ClearContents();
        Range('J3').Resize(l,h).Value2=WorksheetFunction.Transpose(arr);  //转置
}
单元格区域转数组，列不相邻时数组正常为三列，当两列相邻时转数组时，数组列只有两列，如：rng=Application.Union(ShB.Range('A3:A100'),ShB.Range('B3:B100'),ShB.Range('G3:G100'))
单元格区域为A、B列时数组只有两列
rng=Application.Union(ShB.Range('A3:A100'),ShB.Range('C3:C100'),ShB.Range('G3:G100'))
单元格区域为A、C列时数组正常三列
请问一下如何解决。

今铭昔

铁马1980

1、Areas属性返回一个Areas集合，表示在组合后的Range中，每个不连续的区域。每个不连续区域都是Areas集合中的一个Range对象。
2、如果合并的多个区域实际上是连续的，那么Areas集合将只包含一个区域，而Areas.Count是用来获取不连续区域的数量的，所以Union(ShB.Range('A3:A100'),ShB.Range('B3:B100')）的Areas.ount=1，而不是2。
3、在Excel中，连续的单元格区域是指所有单元格都相邻且形成一个矩形区域。即便比如A1:A9 和 B2:B10，虽然这两个区域在行的部分有重叠（例如 A2:A9 和 B2:B9 的行是相同的），但它们在列上算是不相邻的，因此不能算作一个连续的区域。

sdytsxd991122

今铭昔 发表于 2024-9-2 08:10

今佬，此处是否应互换一下？原代码跑不出来

今铭昔

sdytsxd991122 发表于 2024-9-2 14:02
今佬，此处是否应互换一下？原代码跑不出来

h,l参数互换

一江春水1688

今铭昔 发表于 2024-9-2 08:10

大佬的回复，首先评分，然后慢慢细看