OK了,给分吧,在你的SHEET1表的代码里加入以下代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("sheet2").Range("A1").Value = ActiveSheet.Range("A" & Target.Row).Value
End Sub
你是要最后作出来的excel文件有这种效果吗?也许用宏或者vba可以。
我只能告诉你这个是用VB编的\而且是很基本的那种!
你去一趟书店或是图书馆就可搞定\也范不着为这个买本书\当然\买本书的话你就学得多了!