多个不连续单元格区域，如何赋值给数组？

cui26896

lss001 发表于 2019-11-14 09:00
不连续区域赋值数组精简版！！！
arr = [Choose({1,2,3},C1:C9,G1:G19,J1:J29)]

对区域列的提取在几千行的范围内很快可以提取到，union无法做的事用此法可以做到了，太强大了！！

蹩脚的袜子2019

lss001 发表于 2019-11-14 09:00
不连续区域赋值数组精简版！！！
arr = [Choose({1,2,3},C1:C9,G1:G19,J1:J29)]

赞啊，非常谢谢

zhangmi

只试过union，不行就放弃了。重新认识了一下函数

ning84

Union方法。

1. '
   
2. Sub TraverseFolderDeleteRow()
   
3.     Dim Fso As FileSystemObject, oFile As File
   
4.         Set Fso = New FileSystemObject
   
5.     Dim Rng As Range, oRng As Range, oRng1 As Range
   
6.     Dim Sht As Worksheet
   
7.         Set Rng = Selection
   
8.         Set Sht = Rng.Parent
   
9.         Set Rng = Sht.Cells(25, 1).CurrentRegion
   
10.         'Debug.Print Rng.Address
    
11.         For ii = 1 To Rng.Rows.Count
    
12.              PathName = ThisWorkbook.Path & "" & Sht.Name & "" & Rng(ii, 2)
    
13.              ''
    
14.              'Debug.Print Rng(ii, 2), Fso.FileExists(PathName)
    
15.              'Debug.Print PathName
    
16.              '''
    
17.              If Fso.FileExists(PathName) = False Then
    
18.                  If oRng Is Nothing Then
    
19.                       Set oRng = Rng(ii, 1).Resize(, 26)
    
20.                  Else
    
21.                       Set oRng = Union(oRng, Rng(ii, 1).Resize(, 26))
    
22.                  End If
    
23.                  'Debug.Print oRng.Address
    
24.                  oRng.Select
    
25.                  'Rng(ii, 1).Resize(, 26).Select
    
26.                  
    
27.                  'Rng(ii, 1).Resize(, 26).Delete
    
28.              Else
    
29.                 Set oFile = Fso.GetFile(PathName)
    
30.                 'Debug.Print oFile.Path
    
31.                 'Stop
    
32.              End If
    
33.         Next ii
    
34.         Debug.Print oRng.Address, oRng.Areas.Count
    
35.         Stop
    
36.         oRng.Delete
    
37. End Sub
    
38. 
    
39. 
    

复制代码