Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'双击击B4:E6范围内某一单元格,其内容自动填在B2处;双击击B8:E10范围内某一单元格,其内容自动填在D2处
Dim a1 As Range
For Each x In Range("b4:e6")
If Target.Address(False, False) = x.Address(False, False) Then
k = 1
Exit For
End If...