[已解决]求组高手帮忙做个VBA按钮，谢谢！每次手动输入手都酸了！

rddqlqwxzx

自动加1.rar (237.37 KB, 下载次数: 36)

2014-12-29 17:20 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2014-12-30 13:24

效果和原代码完全一样，代码要简洁得多。

跳转到最佳答案楼层

rddqlqwxzx

用VBA可以实现吗？

zyouong

VBA也难办呀，你这一行的公式还不是一个公式右拉的，真是难为你了。给你前面几个数的例子，别的你自己弄吧。 自动加1.rar (241.94 KB, 下载次数: 10)

2014-12-29 21:02 上传

点击文件名下载附件

hunter4162003

没太看懂什么意思

rddqlqwxzx

zyouong 发表于 2014-12-29 21:03
VBA也难办呀，你这一行的公式还不是一个公式右拉的，真是难为你了。给你前面几个数的例子，别的你自己弄吧。 ...

好的，谢谢你！

rddqlqwxzx

呵呵高手帮我弄好了发给大家分享分享
自动加1-宏.rar (487.07 KB, 下载次数: 12)

2014-12-30 09:38 上传

点击文件名下载附件

grf1973

换个思路，改了下6楼的代码

1. Sub tt()
   
2.     Dim i As Integer
   
3.     For i = 143 To 215
   
4.         If Cells(85, i) <> "" Then
   
5.             n = 0
   
6.             srr = Split(Cells(85, i).Formula, "(")
   
7.             For k = 999 To 1 Step -1       '从大到小替换4次
   
8.                 s = Replace(srr(2), k, k + 1)
   
9.                 If srr(2) <> s Then n = n + 1: srr(2) = s
   
10.                 If n = 4 Then Exit For
    
11.             Next
    
12.             Cells(85, i) = Join(srr, "(")
    
13.         End If
    
14.     Next
    
15. End Sub
    

复制代码

grf1973

效果和原代码完全一样，代码要简洁得多。

grf1973

新代码有局限性，如果一个公式里出现2个相同的行，会出错；如果行数有相差较大的2位数和3位数，也会出错。用在原附件里问题不大。

grf1973

下面代码就没问题了。。。。。。。。

1. Sub tt()
   
2.     Dim i As Integer
   
3.     For i = 143 To 215
   
4.         If Cells(85, i) <> "" Then
   
5.             srr = Split(Cells(85, i).Formula, "(")
   
6.             s = srr(2): xstr = ""
   
7.             For k = 1 To Len(s)
   
8.                 If Not IsNumeric(Mid(s, k, 1)) Then
   
9.                     xstr = xstr & Mid(s, k, 1)
   
10.                 Else
    
11.                     n = n & Mid(s, k, 1)
    
12.                     If Not IsNumeric(Mid(s, k + 1, 1)) Then xstr = xstr & Val(n) + 1: n = ""
    
13.                 End If
    
14.             Next
    
15.             srr(2) = xstr
    
16.             Cells(85, i).Formula = Join(srr, "(")
    
17.         End If
    
18.     Next
    
19. End Sub

复制代码