我有一段代码，求大神们帮我安装一个执行按钮！

红臣工作室

我有一段代码，我现在把这段代码分别放到了sheet3和sheet4里但是为什么有时候可以运行，有时候不能够运行那，求大神们帮我看一下，顺便帮我在sheet3和sheet4里按个按钮，分别运行代码！注意：F列里的数据是每天都会更新的，有时每天更新一行有时两行。

红臣工作室

1. Sub zz()
   
2. Dim a, b, c(), d As Object, n As Byte, tt As Boolean
   
3. Dim k, t, tr
   
4. tr = Timer
   
5. Set d = CreateObject("scripting.dictionary")
   
6. a = Range("f4:h" & [f1048576].End(3).Row).Value
   
7. ReDim aa(1 To UBound(a), 1 To 2)
   
8. With CreateObject("vbscript.regexp")
   
9.     .Pattern = "[0-9]{3,4}"
   
10.     .Global = True
    
11.     For i = 1 To UBound(a)
    
12.         For Each b In .Execute(a(i, 1))
    
13.            ReDim c(Len(b) - 1)
    
14.             For ii = 0 To UBound(c)
    
15.                 c(ii) = Mid(b, ii + 1, 1)
    
16.             Next
    
17.             For jj = 0 To UBound(c)
    
18.                 n = c(jj)
    
19.                 For jjj = jj To UBound(c)
    
20.                     If Val(c(jjj)) < n Then n = c(jjj): k = jjj: tt = True
    
21.                 Next
    
22.                 If tt Then tt = False: c(k) = c(jj): c(jj) = n
    
23.             Next
    
24.             d(ii - 2 & "@" & Join(c, "")) = ""
    
25.         Next
    
26.         a(i, 1) = ""
    
27.         For Each k In d.keys
    
28.             t = Split(k, "@"): n = t(0)
    
29.             a(i, n) = a(i, n) & "," & t(1)
    
30.         Next
    
31.         a(i, 1) = Mid(a(i, 1), 2)
    
32.         a(i, 2) = Mid(a(i, 2), 2)
    
33.         d.RemoveAll
    
34.     Next
    
35. End With
    
36. [g4].Resize(UBound(a), 2).NumberFormat = "@"
    
37. [g4].Resize(UBound(a), 2) = a
    
38. MsgBox Timer - tr
    
39. End Sub

复制代码

红臣工作室

求安装代码按钮文件.rar (670.39 KB, 下载次数: 24)

2018-5-24 01:49 上传

点击文件名下载附件
求助文件

求助文件

红臣工作室

大神，帮帮忙呗！对你们来说应该是很简单的呀

红臣工作室

大神们呀，你们都在哪里呀，帮帮我好吗

hanzhang98

请转电脑版

红臣工作室

hanzhang98 发表于 2018-5-26 20:56
请转电脑版

我上传的附件就是电脑板的呀，要是别的我就不明白了

hanzhang98

红臣工作室 发表于 2018-5-29 22:44
我上传的附件就是电脑板的呀，要是别的我就不明白了

请发表在电脑版的VBA程序开发版块，你现在是在手机客户端发表的，因此看到的人少，且我给你加上按钮的附件手机传不上去，在电脑版又找不到你的帖子。

红臣工作室

好的，知道了，先谢谢你！

红臣工作室

hanzhang98 发表于 2018-5-31 08:49
请发表在电脑版的VBA程序开发版块，你现在是在手机客户端发表的，因此看到的人少，且我给你加上按钮的附 ...

先谢谢你，我从新在电脑上发了，问题为（我有代码求安装个按钮1）