求助，Excel2003版的VBA代码问题，非常感谢！

Question

如题所述

Answer 1

这个做出来的Excel2003版的VBA代码不能实现单击选择，但是可以实现双击鼠标来读取数据。
代码如下：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column >= 77 And Target.Column = 2 And Target.Row <= 16 Then
Range("BY" & Target.Row & ":CB" & Target.Row).Copy Range("F3:I3")
ElseIf Target.Column >= 77 And Target.Column = 18 And Target.Row <= 35 Then
Range("BY" & Target.Row & ":CB" & Target.Row).Copy Range("F5:I5")
End If
End Sub
将代码粘贴进对应工作表中后就可以使用了。
源代码图：

效果图如下：

原理：
通过双击鼠标来判断当前列是否在77-80列，行是否在2-16行，如果都满足条件那么把当前行数据复制粘贴到F3:I3中，第二个同理。