好吧问答库 > Excel 如何实现点击sheet1!任一单元格，该单元格所在行的第一个单元格内容自动转到sheet2!B10单元格，同时

Excel 如何实现点击sheet1!任一单元格，该单元格所在行的第一个单元格内容自动转到sheet2!B10单元格，同时

2024年11月30日 11:52

有3个网友回答

网友（1）：

看起来得用宏了，比较麻烦。但是，提问者好像是在分拣数据，不妨直接用排序和一些相关的函数吧？

网友（2）：

alt+f11 以下代码放在sheet1内
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r
r = Target.Row
If Sheet2.Range("b10") = "" Then
Sheet2.Range("b10") = Cells(r, 1)
Else
Sheet2.Cells(Sheet2.Range("b65536").End(3).Row + 1, 2) = Cells(r, 1)
End If
End Sub

网友（3）：

这样只有用EXCEL VBA编程了 ,如果要筛选数据建议用函数公式VLOOKUP