看起来得用宏了,比较麻烦。但是,提问者好像是在分拣数据,不妨直接用排序和一些相关的函数吧?
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
这样只有用EXCEL VBA编程了 ,如果要筛选数据建议用函数公式VLOOKUP