如何让括号内的数字进行增/减运算

菜菜行者 · 发表于 2016-8-2 07:31

我是在word中编辑的，因总人数减少，需要在每一组里减少人数。
比如：
第一组（8人）→第二组（7人）

大神们，帮帮忙，先谢谢了

问山8828680 · 发表于 2016-8-2 08:15

不太明白题意
算我自娱自乐吧
SUBSTITUTE(A1,MID(A1,FIND("（",A1)+1,FIND("人）",A1)-FIND("（",A1)-1),MID(A1,FIND("（",A1)+1,FIND("人）",A1)-FIND("（",A1)-1)-1)

菜菜行者 · 发表于 2016-8-2 08:25

问山8828680 发表于 2016-8-2 08:15
不太明白题意
算我自娱自乐吧
SUBSTITUTE(A1,MID(A1,FIND("（",A1)+1,FIND("人）",A1)-FIND("（",A1)-1), ...

谢谢您的答复
可我是在word
然后就是把数字相应的减少1，比如选择区域内相应减少1，8变为7，15变为14，20变为19

kqbt · 发表于 2016-8-2 11:10

下列代码供测试：

Sub NumsMinusOne()
Dim wRng As Range, eRng As Range
If Selection.Type = wdSelectionIP Then Exit Sub
Set wRng = Selection.Range
Set eRng = wRng.Duplicate
With eRng.Find
.ClearFormatting
.Replacement.ClearFormatting
Do While .Execute("[0-9]{1,}", , , True)
eRng = Val(eRng) - 1
eRng.SetRange eRng.End, wRng.End
Loop
End With
End Sub

复制代码

菜菜行者 · 发表于 2016-8-2 11:29

kqbt 发表于 2016-8-2 11:10
下列代码供测试：

感谢版主再次出手相助。
另外，括号外的数字也被替换了，能否再修改一下。
谢谢！

kqbt · 发表于 2016-8-2 11:38

菜菜行者发表于 2016-8-2 11:29
感谢版主再次出手相助。
另外，括号外的数字也被替换了，能否再修改一下。
谢谢！

测试下列代码前请备份原文档：

Sub NumsMinusOne()
Dim wRng As Range, eRng As Range
If Selection.Type = wdSelectionIP Then Exit Sub
Set wRng = Selection.Range
Set eRng = wRng.Duplicate
With eRng.Find
.ClearFormatting
.Replacement.ClearFormatting
Do While .Execute("[\(（][0-9]{1,}", , , True)
eRng.SetRange eRng.Start + 1, eRng.End
eRng = Val(eRng) - 1
eRng.SetRange eRng.End, wRng.End
Loop
End With
End Sub

复制代码

菜菜行者 · 发表于 2016-8-2 12:06

kqbt 发表于 2016-8-2 11:38
测试下列代码前请备份原文档：

欧啦，谢谢！

菜菜行者 · 发表于 2016-8-6 10:17

kqbt 发表于 2016-8-2 11:38
测试下列代码前请备份原文档：

你好，经过多次测试，还是不如意。
代码好像是把完整的数字给分开运算了。
比如
加1：
原始数    运算后    正确应该是
  1             11                2
19             110                20
29             210                   30

减1：
原始数    运算后    正确应该是
  1             1-1                0
10             1-1                9
100          1-1                9
109          18                   108

kqbt · 发表于 2016-8-7 20:47

菜菜行者发表于 2016-8-6 10:17
你好，经过多次测试，还是不如意。
代码好像是把完整的数字给分开运算了。
比如

每每看到没有附件的求助帖，总让人心有余而力不足！
你要处理的文档实际情况是怎么样的？最好能上传。

菜菜行者 · 发表于 2016-8-7 23:12

本帖最后由菜菜行者于 2016-8-8 00:02 编辑

kqbt 发表于 2016-8-7 20:47
每每看到没有附件的求助帖，总让人心有余而力不足！
你要处理的文档实际情况是怎么样的？最好能上传。

下次注意，现补上

数字运算.rar (2.35 KB, 下载次数: 3)

不好意思，是我操作上的失误
其实是数字不在括号里时，就出现了8楼的情况

		自动登录	找回密码
密码			免费注册

[求助] 如何让括号内的数字进行增/减运算

评分

评分