作者: tangqp 时间: 2006-9-27 18:07
Sub main()
For i = 2 To Sheets("汇总").UsedRange.Rows.Count
For j = Sheets("出入库登记").UsedRange.Rows.Count To 3 Step -1
If Sheets("汇总").Cells(i, 1) = Sheets("出入库登记").Cells(j, 2) Then
Sheets("汇总").Cells(i, 5) = Sheets("出入库登记").Cells(j, 4)
Exit For
End If
Next j
Next i
End Sub作者: love98du 时间: 2006-9-27 18:13 标题: 谢谢老大,编程我不懂,能否可用函数??,帮忙! 谢谢老大,编程我不懂,能否可用函数解决??,帮忙!作者: czzqb 时间: 2006-10-1 03:51
两个办法: