[求助]请高手修改代码

chenyj · 发表于 2006-7-22 08:27

xqHBlivI.rar (21.08 KB, 下载次数: 7) 详见附件代码是：当第二列有数据时，第1列会显示当前时间， 当第三列有数据时，第5列、12列、19列中会有1列会显示第4列的内容， 当第5列显示第4列的内容时，第6－11列中会有1列会显示第4列的内容， 当第12列显示第4列的内容时，第13－18列中会有1列会显示第4列的内容， 当第19列显示第4列的内容时，第20－25列中会有1列会显示第4列的内容， 可是当应第19列显示时，会自动删除第19列的公式。 因此又加入了如下代码： r = Target.Row    c = Target.Column    If r > 2 And c > 3 And c < 11 And Range("a" & r) <> "" And Range("E" & r) = "" Then Range("E" & r - 1).AutoFill Destination:=Range("E" & r - 1 & ":E" & r)    If r > 2 And c > 3 And c < 11 And Range("a" & r) <> "" And Range("L" & r) = "" Then Range("L" & r - 1).AutoFill Destination:=Range("L" & r - 1 & ":L" & r)    If r > 2 And c > 3 And c < 11 And Range("a" & r) <> "" And Range("s" & r) = "" Then Range("s" & r - 1).AutoFill Destination:=Range("s" & r - 1 & ":s" & r)    就是自动复制上一行公式。   可是要在第3、第4列连续输两次才能达到目的，好麻烦，请高手帮助！！！！ [em06][em06][em06][em06][em06][em06][em06][em06][em06][em06]

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

[求助] [求助]请高手修改代码