程序出错，不过正常运行，请高手指教。红色这段出现错误

lrqiang

Sub 分析()
Application.ScreenUpdating = False
end_1 = Sheets("数据").Cells(Rows.Count, 1).End(xlUp).Row
      Set reg = CreateObject("Vbscript.Regexp")
      For i = 2 To end_1
    With reg
        .Global = True
        .IgnoreCase = True
    .Pattern = "[^0-9]+|\d+|[号]"
    End With
   Set mc = reg.Execute((ThisWorkbook.Sheets("数据").Cells(i, 1).Value))
   For Each x In mc
   Debug.Print x
   Next
   Cells(i, 2) = mc(0)
   Cells(i, 3) = mc(1)
   Cells(i, 4) = mc(2)
   Cells(i, 5) = mc(3) & mc(4)
   Next
   Application.ScreenUpdating = False
End Sub

Chip_Kenny

Item 數量不符所至, 可以試下面代碼。

1. Sub zz()
   
2. Dim a, b, c(), k
   
3. b = Split([i1], ",")
   
4. a = [a2:a100]
   
5. ReDim c(1 To UBound(a), 1 To 4)
   
6. With CreateObject("vbscript.regexp")
   
7.     .Pattern = "(\D+)\b(\d+)号(.*)\b(\d+)房.*"
   
8.     For i = 1 To UBound(a)
   
9.         If .test(a(i, 1)) Then
   
10.             k = Split(.Replace(a(i, 1), "$1|$2|$3|$4"), "|")
    
11.             For j = 0 To 3
    
12.                 c(i, j + 1) = k(j)
    
13.             Next
    
14.         End If
    
15.     Next
    
16.     [b2].Resize(i - 1, 4) = c
    
17. End With
    
18. End Sub

复制代码

lrqiang

谢谢你的支持，可运行时有部分拆分不了。

lrqiang

Chip_Kenny 发表于 2020-7-10 10:14
Item 數量不符所至, 可以試下面代碼。

还有我的数据量是变量，不固定。

Chip_Kenny

不是变量問題,是當中的 items 問題, 你的代碼會提取5個原素 (即: 地址,路街巷名,门牌1,门牌2,....),是否每項都有5個原素這點要明白, 我的代碼取巧提取3~4個原素, 但當個原素少過3個就提取不了。

lrqiang

Chip_Kenny 发表于 2020-7-10 11:11
不是变量問題,是當中的 items 問題, 你的代碼會提取5個原素 (即: 地址,路街巷名,门牌1,门牌2,....),是否每 ...

如：广东省广州市环市东路465号1幢102房，提取为：环市东路，465，号1幢，102房；
　　广东省中山市孙民东路65号102房，提取为：孙民东路，65，102房；
　　广东省佛山佛陈路46号，提取为：佛陈路，46，号；

lrqiang

Chip_Kenny 发表于 2020-7-10 11:11
不是变量問題,是當中的 items 問題, 你的代碼會提取5個原素 (即: 地址,路街巷名,门牌1,门牌2,....),是否每 ...

a = [a2:a100]   这个值我是变量，是一个随机数

Chip_Kenny

1. Sub zz()
   
2. Dim a, b, c(), k, s$, n&
   
3. b = Split([i1], ",")
   
4. a = [a2:a103]
   
5. ReDim c(1 To UBound(a), 1 To 100)
   
6. With CreateObject("vbscript.regexp")
   
7.     .Pattern = "(\d+\D?)"
   
8.     .Global = 1
   
9.     For i = 1 To UBound(a)
   
10.         If .test(a(i, 1)) Then
    
11.         k = Split(Replace(.Replace(a(i, 1), "|$1|"), "||", "|"), "|")
    
12.         n = IIf(UBound(k) > n, UBound(k), n)
    
13.         For j = 0 To UBound(k)
    
14.             c(i, j + 1) = k(j)
    
15.         Next
    
16.     End If
    
17. Next
    
18. [b2].Resize(i - 1, n) = c
    
19. End With
    
20. End Sub

复制代码

Chip_Kenny

lrqiang 发表于 2020-7-10 12:20
a = [a2:a100]   这个值我是变量，是一个随机数

這基礎自行更改吧!

lrqiang

Chip_Kenny 发表于 2020-7-10 13:16

谢！
可以我把　a = [a2:a103]　改为　a = [a2:a100003]　　　
　　　　　ReDim c(1 To UBound(a), 1 To 100)　改为　ReDim c(1 To UBound(a), 1 To 100000)
就报错了因为我手头上要处理的数量是上百万。