Question

EXCEL中，将单独一行的数据自动填写到另一个表格的指定位置？

sheet2中的数据选择一行可以自动填到sheet1中，如何才能实现这一功能？





Answer 1

什么叫做选择一行 数据自动填写， 是你 鼠标选中这一行 就自动填过去么，
还是要达到什么效果？

追问

我选择sheet2中的第三行，李四的信息就在sheet1中显示，选择sheet2第二行，张三的信息就在sheet1中显示。然后sheet1是要可以打印的

追答

右键点 Sheet2 表名 ，查看代码，如下代码复制进去，存为启用宏的工作薄（xlsm 格式) , 启用宏 可使用

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  r = Selection.Cells(1, 1).Row
  Sheet1.Range("B1") = Cells(r, 1)
  Sheet1.Range("D1") = Cells(r, 2)
   Sheet1.Range("B2") = Cells(r, 3)
  Sheet1.Range("D2") = Cells(r, 4)
End Sub