如何对应表2的金额？

aman1516 · 发表于 2011-1-20 14:52

求助：

详见附件！

分值与对应金额在“金额”表内，如何通过VBA或公式，在“名单”表中的各分值自动显示对应的金额？

谢谢！

kanoumatsu · 发表于 2011-1-20 15:24

看看可以不

eqzh · 发表于 2011-1-20 15:29

为了简化，把表2中的“分”全部去掉了，不取的话，再加个right()函数
=CHOOSE(INT((B3-9)/8+1),HLOOKUP(B3,金额!$B$2:$I$3,2,),HLOOKUP(B3,金额!$B$4:$I$5,2,),HLOOKUP(B3,金额!$B$6:$I$7,2,))

aman1516 · 发表于 2011-1-20 15:43

就是金额表的格式不能改（数据很多，及分很多行）。能改就不需要在此求助了。

aman1516 · 发表于 2011-1-20 15:48

一样道理，表中只是一部分示例数据，区域是动态的：可能是十几列几十行，可能几十列几百行。

我的思路是：根据表1 的名单分值，在表2以动态的形式（有数据的最后列、最后行）指定有效数据区域，再作查找对应的“分值”后，找到后，返回该单元格下一行单元格的值（金额）？

应该用到VBA吧，但我不会写代码，请大家帮忙。

[ 本帖最后由 aman1516 于 2011-1-20 15:54 编辑 ]

eqzh · 发表于 2011-1-20 17:13

按一下按钮，看一下
代码如下：
Sub cz()
Dim a%, b%, i%, j%, s%, t%
Dim w
a = Sheet1.Range("b65536").End(xlUp).Row
b = Sheet2.Range("b65536").End(xlUp).Row
c = Sheet2.Range("iv2").End(xlToLeft).Column

For j = 3 To a
For t = 2 To b Step 2
For s = 2 To c
If Sheet2.Cells(t, s) = "" Then
GoTo 1
ElseIf Sheet1.Cells(j, 2) = Left(Sheet2.Cells(t, s), Len(Sheet2.Cells(t, s)) - 1) + 0 Then
Sheet1.Cells(j, 3) = Sheet2.Cells(t + 1, s)
End If
1:
Next
Next
Next
End Sub

aman1516 · 发表于 2011-1-20 20:05

太谢谢eqzh 了，就是要这样的结果。太利害了！！

		自动登录	找回密码
密码			免费注册

[求助] 如何对应表2的金额？

改变一下格式

回复 2楼 kanoumatsu 的帖子

回复 3楼 eqzh 的帖子

回复 6楼 eqzh 的帖子