Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[B1] = ActiveCell
End Sub
不管选中哪个单元格，B1显示当前选中单元格里面的内容~
