第2个回答 2015-03-07
1方法复制A1,在C1里张贴全部;
2方法用宏
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ChgArea As Range
Dim ChgCell As Range
Dim ChgAdd As String
Set ChgArea = Range("a1")
For Each ChgCell In ChgArea
ChgAdd = ChgCell.Address
If Target.Address = ChgAdd Then
Exit For
Else: Exit Sub
End If
Next
Range("A1").Select
Selection.Copy
Range("C1").Select
ActiveSheet.Paste
Range("C1").Value = "=a1"
End Sub
但超链接改变后需要在A1里修改内容,程序会自动执行同步本回答被网友采纳