检索最新数据显示

zhengbo

各位:
   Excel2003中如何将第一行B1到Z1中最新录入的数据显示在A1中.
   如在 C1中录入55,那A1显示55; 再到G1中录入98,A1自动显示98?

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

pureshadow

J=0 to 25
cells(j, i)怎么弄呢?

pureshadow

Line = "a" + j
文本和数字相加?

zhengbo

[:27] ,如果是A1到Z1都要显示后面的数据呢.
   下面的语句那里出了问题
Dim i As Integer
Dim j As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 2 To 26
   For j = 0 To 25
      If Target = Cells(j, i).Value Then
         Line = "a" + j
         LineNane = Line & "1"
         Range(LineName).Value = Cells(j, i).Value
         'Range("a1").Value = Cells(1, i).Value
      End If
   Next
Next
End Sub

chenwm1973

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

pureshadow

确定都是数字 的话,可以在A1里输入
=lookup(9e+307,b1:z1)

chenwm1973

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

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