[求助] 复制连续区域，新区域整体减一数值。

598598 · 发表于 2010-5-4 21:42

复制连续区域到一新区域后，新区域每个单元格全部减一数值。数值为0.5 请问可不可以用一句代码写出呢，不用循环什么的。。。请高手相助。。。。

cflood · 发表于 2010-5-4 21:58

试试选择性粘贴

598598 · 发表于 2010-5-4 22:03

不可以，我要用代码来执行，这只是全部程序的一小部分，不可以用手工操作。

598598 · 发表于 2010-5-4 22:05

您可不可以大概告诉我一下，选择性粘贴全部乘以一个数值应该有几个步骤呢，我可以录制一个宏。。。

cflood · 发表于 2010-5-4 22:07

在一单元格中输入0.5，复制，选择性粘贴→减

598598 · 发表于 2010-5-4 22:11

我按照您所说的步骤做了，不对吧不是我想要的结果。。。

zldccmx · 发表于 2010-5-4 22:13

Sub zl(S_rng As Range, T_rng As Range, 运算符%, V_vaule)
'运算符%: 2加 3减 4乘 5除
Select Case 运算符
Case 2, 3, 4, 5
S_rng.Copy T_rng(1)
[iv1] = V_vaule
[iv1].Copy
T_rng(1).Resize(S_rng.Rows.Count, S_rng.Columns.Count).PasteSpecial Paste:=xlPasteAll, Operation:=运算符
[iv1].Delete
Case Else
S_rng.Copy T_rng(1)
End Select
End Sub
Sub zldccmx() '举例
Application.EnableEvents = False
Call zl([E7:H18], [l2], 6, 0.5)
Application.EnableEvents = True
End Sub

复制代码

598598 · 发表于 2010-5-4 22:21

嗯，可以了，现在数据正确了。。。。谢谢！！

zldccmx · 发表于 2010-5-4 22:24

Sub zldccmx() '举例
Application.EnableEvents = False
Call zl([E7:H18], [l2], 3, 0.5) '将 [E7:H18] 复制到 [l2] 开始的单元格，并执行减 (3对应减法) 0.5的运算
Application.EnableEvents = True
End Sub

[ 本帖最后由 zldccmx 于 2010-5-4 22:27 编辑 ]

598598 · 发表于 2010-5-4 22:30

谢谢九江老朽，您的代码难度对我来说有点大，我现在只想在我原有的代码基础上加几句话把那个选定区域数值一下子就减去相同的一个值后，为了后面排序做铺垫，您给我两段代码我实在不知道应该如何用了。。。

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

[2007] [求助] 复制连续区域，新区域整体减一数值。

回复 1楼 598598 的帖子

回复 2楼 cflood 的帖子

回复 5楼 cflood 的帖子

回复 5楼 cflood 的帖子

回复 7楼 zldccmx 的帖子