检索最新数据显示

chenwm1973

不知是否合用？[:50] [:50] [:50]

[ 本帖最后由 chenwm1973 于 2008-7-8 14:55 编辑 ]

chenwm1973

[:50] [:50] [:50]

chenwm1973

Dim i As Integer
Dim j As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
'一行
'For i = 2 To 26
'    If Target = Cells(1, i).Value Then
'       Cells(1, i).Value= Cells(1, i).Value
'    End If
'Next
'多行
For j = 1 To 30
    For i = 2 To 26
    If Target = Cells(j, i).Value Then
        Cells(j, 1).Value = Cells(j, i).Value
    End If
    Next
Next
End Sub