求实现单击或双击指定单元格复制指定行到第二个表？？

脚毛乱了

如图

打字比你快

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '双击模块

Dim i, j, a, b, c, co

j = Target.Row

If j = 1 Then
   End
Else
  a = Cells(j, 3)
End If

b = Replace(a, "[", "")
b = Replace(b, "]", "")
b = Replace(b, "'", "")

co = UBound(Split(LCase(b), ","))

Sheet2.Cells.ClearContents

For i = 1 To co + 1
   
  c = Split(b, ",")(i - 1)
  
  Sheet1.Rows(c).Copy Sheet2.Range("A" & i)
  
Next

  MsgBox "获取数据成功！"

End Sub