vba如何实现按时间差自动复制

catkining

有A、B两列数据，当鼠标点击A1的时候，自动复制其内容。5秒后，程序自动复制B1的内容。再次当鼠标点击A2，自动复制其内容。5秒后，程序自动复制B2的内容.以此类推。

zzj198237

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Rows.Count = 1 And Target.Columns.Count = 1 And Target.Row = 1 Then
   
3.         Target.Copy ''这句可以不要，没有什么用
   
4.         Application.Wait Now + TimeValue("00:00:05")
   
5.         Target.Offset(0, 1).Value = Target.Value
   
6.     End If
   
7. End Sub

复制代码

sj15627581616

老实说，用那几秒时间差来我觉得很鸡肋，还不如直接点击该单元格就执行赋值给另一个单元格，不想复制就不点击这列内容就完事了，多那几秒有种没事找事的感觉

zzj198237

sj15627581616 发表于 2020-3-6 20:22
老实说，用那几秒时间差来我觉得很鸡肋，还不如直接点击该单元格就执行赋值给另一个单元格，不想复制就不点 ...

有这样的要求实在是想不出来在哪里能用到

catkining

zzj198237 发表于 2020-3-6 20:33
有这样的要求实在是想不出来在哪里能用到

网页上传工作材料，懒得用ctrl+c 天天搞的手疼。我的操作是：首先复制A1，切换到网页，粘贴A1值，切换到Excel，复制B1，切换到网页，粘贴B1值。。。。看看这一组我得搞多少操作。。。
您有更好的办法吗。。。

catkining

sj15627581616 发表于 2020-3-6 20:22
老实说，用那几秒时间差来我觉得很鸡肋，还不如直接点击该单元格就执行赋值给另一个单元格，不想复制就不点 ...

是这样的，现实工作有个网页上传材料的工作，懒得用ctrl+c 天天搞的手疼。我的操作是：首先复制A1，切换到网页，粘贴A1值，切换到Excel，复制B1，切换到网页，粘贴B1值。。。。看看这一组我得搞多少操作。。。
您有更好的办法吗。。。

zzj198237

catkining 发表于 2020-3-7 08:33
网页上传工作材料，懒得用ctrl+c 天天搞的手疼。我的操作是：首先复制A1，切换到网页，粘贴A1值，切换到E ...

用py做一个程序

sj15627581616

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        Target.Copy
        Application.Wait Now + TimeValue("00:00:05")
        Target.Offset(0, 1).Copy
    End If
End Sub
二楼代码稍做修改，楼主应该是这个意思吧，不过既然是这种重复性的工作，如果长期这样的话，还是找人做个自动化的脚本来得舒服