作者：乔山办公网日期：
返回目录：excel表格制作
录制一个宏，然后稍加修改就好。
答：右键百工作表度名，点知击"查看代道码回"，复制如下答代码。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Union(Target.Cells(1, 1), Range("B2:H5")).Address = Range("B2:H5").Address Then
Range("A2") = Target.Cells(1, 1)
ElseIf Union(Target.Cells(1, 1), Range("I2:I5")).Address = Range("I2:I5").Address Then
Range("A3") = Target.Cells(1, 1)
End If
End Sub
直接复制就行了。比如让A1单元格引用B1单元格的全部内容，将B1单元格复制到A1即可，代码如下：
range("B1").copy range("A1")