使用VBA,比如你成行的数据在第一个Sheet表里,要填充到第二个Sheet表里,
在第一个标签上右击,选择查看代码,把下面的代码放上:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim nRow As Integer
nRow = Target.Row
If nRow = 1 Or nRow > UsedRange.Rows.Count Then Exit Sub
Worksheets(2).Range("A3").Value = Cells(nRow, 1)
Worksheets(2).Range("B4").Value = Cells(nRow, 2)
Worksheets(2).Range("C5").Value = Cells(nRow, 3)
End Sub
这只是举例。里面的要填充表在第2个Sheet,根据自己的 更改,我只列出的3个数举例。对应的赋值你可以对照着写就行了。
如果还是不会 可以发过来帮你。