[已解决]点击下行时，上行公式自动复制

sdwffw · 发表于 2014-1-11 11:51

本帖最后由 sdwffw 于 2014-1-11 14:06 编辑

Book1.rar (5.89 KB, 下载次数: 15)

戒不掉心中的瘾 · 发表于 2014-1-11 12:03

不保证结果正确，请先复制好副本再使用
直接在B列输入数据就好
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Target.Offset(, -1) = Target.Row - 1
End If
End Sub

sdwffw · 发表于 2014-1-11 12:28

戒不掉心中的瘾发表于 2014-1-11 12:03
不保证结果正确，请先复制好副本再使用
直接在B列输入数据就好
Private Sub Worksheet_Change(ByVal Targ ...

谢谢。我是想复制公式，可能我描述的不准确。问题又在附件中改了，想法是点击下行任一单元格时，上行的公式就复制下来了。

xwj8688 · 发表于 2014-1-11 12:45

现在解决了吗

zjdh · 发表于 2014-1-11 12:48

本帖最后由 zjdh 于 2014-1-11 13:09 编辑

Book1.rar (6.49 KB, 下载次数: 64)

戒不掉心中的瘾 · 发表于 2014-1-11 13:24

sdwffw 发表于 2014-1-11 12:28
谢谢。我是想复制公式，可能我描述的不准确。问题又在附件中改了，想法是点击下行任一单元格时，上行的公 ...

哦。那是我理解错了。

sdwffw · 发表于 2014-1-11 13:49

zjdh 发表于 2014-1-11 12:48

非常感谢zjdh老师。在测试时发现，当点击A2单元格时，把A1的“序号”也复制到 A2，导致公式没有了，如何修改代码，使点击A2单元格时不变，从A3开始才复制？

sdwffw · 发表于 2014-1-11 14:06

zjdh 发表于 2014-1-11 12:48

老师，我试了试，加上And Target.Row > 2就可以了，感谢老师教导！

zjdh · 发表于 2014-1-11 14:40

是的

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