第1个回答 2009-02-21
Sub ghj()
Dim i As Integer, j As Integer, k As Integer
j = 1
For i = 1 To Range("a65536").End(xlUp).Row
If Cells(i, 1).Value = 11 Then
Cells(j, 5).Value = Cells(i, 3).Value
j = j + 1
End If
Next i
End Sub
第二个
Sub ghj()
Dim i As Integer, j As Integer, k As Integer
j = 1
For i = 1 To Range("a65536").End(xlUp).Row
If Cells(i, 1).Value = 11 Then
If Cells(i, 2).Value = 12 Then
Cells(j, 5).Value = Cells(i, 3).Value
j = j + 1
End If
End If
Next i
End Sub