第16集 单元格查找66、 Range的Find方法每次使用此方法后，参数 LookIn、LookAt、SearchOrder 和 MatchByte 的设置都将被保存。如果下次调用此方法时不指定这些参数的值，就使用保存的值。设置这些参数将更改“查找”对话框中的设置，如果省略这些参数，更改“查找”对话框中的设置将更改使用的保存值。要避免出现这一问题，每次使用此方法时请明确设置这些参数。Sub c2()Dim r As Integer, r1 As IntegerDim icount As Integericount = Application.WorksheetFunction.CountIf(Sheets(“库存明细表”).[b:b], [g3])If icount > 0 Thenr = Sheets(“库存明细表”).[b:b].Find(Range(“G3”), Lookat:=xlWhole).Row '查找号码第一次出现的位置r1 = Sheets(“库存明细表”).[b:b].Find([g3], , , , , xlPrevious).Row '从下往上查找MsgBox r & “:” & r1End IfEnd SubSub c3() '返回最下一行非空行的行数MsgBox Sheets(“库存明细表”).Cells.Find("*", , , , , xlPrevious).RowEnd Sub67、 入库单设计Sub 输入()Dim c As Integer '号码在库存表中的个数Dim r As Integer '入库单的数据行数Dim cr As Integer '库存明细表中第一个空行的行数With Sheets(“库存明}