把这段代码放在sheet1的代码窗口内 Private Sub Worksheet_SelectionChange(ByVal Target As Range) if target.column=1 then Range("b1") = Target else exit sub end if
