如何用VBA替代VLOOKUP函数

kwinawyeth

加一个变量，使行号递增就行了。你如果只想别人把结果拿给你，那你永远也不会。

2285343932

大虾，求助，困惑！

乐时

我的问题是一样的，以币种+金额为索引（我已呈现在Index中），做内部账单对账，从SIH到SAP表单。试着按老师们的指导修改了我的文件，失败了+_+
哪位老师帮我看看可以吗？
我是更菜的菜鸟，不知道“加一个变量，使行号递增就行了。”这个变量怎么加……

2285343932

意图是：材料出库单中的D5=订单明细表最后一行C列（第三列）单元格的值，然后再把订单明细表最后一行数据清除。

2285343932

C=.[A65536].End(3).Row + 1

幸福萦绕

真好，今天下午我就为这个死了多多脑细胞，终于有解!谢谢各位大侠！

lcjy11185

白云2011 发表于 2011-7-30 14:41
Dim s, i&, n$
n = Target.Value
Range("b" & Target.Row & ":j" & Target.Row) = ""

受了您启发。学了不少。但心很虚，你2011年4月才注册。我却是2009-7，但水平却不及您 1%。

白云2011

lcjy11185 发表于 2011-8-21 23:48
受了您启发。学了不少。但心很虚，你2011年4月才注册。我却是2009-7，但水平却不及您 1%。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then n = Target.Value else exit sub
Application.EnableEvents = False
Dim s, i&, n$,k%
with Sheets("订单明细"): k = Target.Row
i = .Range("a" & .Cells.Rows.Count).End(3).Row
s = .Range("a1:j" & i)
  For i = 2 To UBound(s)
   If s(i, 1) = n Then
      Range("b" & k & ":j" & k) = .Range("b" & i & ":j" & i).Value
      exit for
   End If
  Next
end with
Application.EnableEvents = True
End Sub
这个应该快一点点,

surkylin

真给力！我们菜鸟有福了！

yxrlqy

先收下了，明天好好学习；