Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set DBRng = Target
If DBRng.Column <> 3 Then Exit Sub
Cancel = True
If DBRng.Row = 1 Then [C:C].ClearComments: Exit Sub 'Âù«ö¢Ñ¢°¡A§R°£¥þ³¡µù¸Ñ
If DBRng.Value = "" Then Exit Sub
Call ´¡¤Jµù¸Ñ¹Ï¤ù
End Sub
ìÀɮפºµ{¦¡
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call CopyData
End Sub