UC知道请高手设计一个EXCEL宏
来源：百度知道 编辑：UC知道 时间：2024/06/05 09:58:00
1、背景：现在有两个工作表，一个工作表的数据是旧的，一个工作表的数据是新的，在下需要把旧的工作表里的数据更新。
2、宏的要求：需要在这份数据上统一+“1”变成我自己的数据（每个单元格的数据都统一在原来的基础上+1）。
3、备注：这个宏是需要在任何一个工作表名下都能运行。
叩头谢谢
有一个人告诉在下可以用“宏”搞定，当时在下没问怎么用，现在后悔莫及。
兄台的方法方便快捷，但还是不是在下想要的效果，也许是我没有说明白的缘故。
现在的问题是：假如有些数据变动而有些是跟原来一样的，在下总不能全都加“1”吧，这个跟事实不符了。
谢谢！
2、宏的要求：需要在这份数据上统一+“1”变成我自己的数据（每个单元格的数据都统一在原来的基础上+1）。
3、备注：这个宏是需要在任何一个工作表名下都能运行。
叩头谢谢
有一个人告诉在下可以用“宏”搞定，当时在下没问怎么用，现在后悔莫及。
兄台的方法方便快捷，但还是不是在下想要的效果，也许是我没有说明白的缘故。
现在的问题是：假如有些数据变动而有些是跟原来一样的，在下总不能全都加“1”吧，这个跟事实不符了。
谢谢！
到底哪些需要改，哪些留，这个是问题
宏的运行快嘛，呵呵
请自己修改需要的行数和列数
注意，这个宏，会把所有的数字+1（文本不动），包括公式，如果你的数据有公式，请再跟我说，再做修改
Sub ad()
Dim i As Integer, j As Integer
On Error Resume Next
For i = 1 To 200 '此处的200为行数，自行修改
For j = 1 To 40 '此处的40为列数，自行修改
If Cells(i, j) <> "" And Cells(i, j).NumberFormatLocal <> "@" Then
Cells(i, j) = Cells(i, j) + 1
End If
Next
Next
End Sub
不知道楼主为何想到使用宏。本人认为在任一空白表处输入1，复制-将其他所有表(不包括空白表)选中-全选-选择性粘贴-加-确定。