新人求帮助，关于成绩单更新的问题，和上一个帖子不一样。

lizi12000 · 发表于 2019-1-20 23:12

本帖最后由 lizi12000 于 2019-1-21 20:32 编辑

各位高人大家好，还是小弟我。。小弟初入论坛，这两天学了学VBA基础，工作原因急需一个帮助啊，附件表有两个sheet，想用sheet2中的那些成绩替换sheet1中对应人对应科目的成绩，但是需要：如果sheet2中该科目成绩高于sheet1中对应科目时才替换成，否则就维持sheet1原单元格的数字不动。
应该有个逻辑判断的语句吧。。我还在学习中，不知道能否有高人可以帮我一下啊，我定将好好学习VBA之后的每一天。

dsmch · 发表于 2019-1-21 06:43

Sub dsmch()
Dim arr, brr, d, i&, j%, zf$
Set d = CreateObject("scripting.dictionary")
arr = Sheet1.Range("a1").CurrentRegion
brr = Sheet2.Range("a1").CurrentRegion
For i = 2 To UBound(brr)
For j = 2 To UBound(brr, 2)
zf = brr(i, 1) & "," & brr(1, j)
d(zf) = brr(i, j)
Next
Next
For i = 2 To UBound(arr)
For j = 2 To UBound(arr, 2)
zf = arr(i, 1) & "," & arr(1, j)
If d.exists(zf) And d(zf) > arr(i, j) Then arr(i, j) = d(zf)
Next
Next
Sheet1.Range("l1").Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

复制代码

lizi12000 · 发表于 2019-1-21 07:22

dsmch 发表于 2019-1-21 06:43

万谢大神！我一定好好学习向您的方向努力！！！！您太好了，我祝您万事顺心！！！

lizi12000 · 发表于 2019-1-21 07:24

由于特殊原因，求版主删帖，谢谢！！

lsc900707 · 发表于 2019-1-21 19:46

lizi12000 发表于 2019-1-21 07:24
由于特殊原因，求版主删帖，谢谢！！

不要删帖，如果数据敏感，可以删除附件。

lizi12000 · 发表于 2019-1-21 19:55

lsc900707 发表于 2019-1-21 19:46
不要删帖，如果数据敏感，可以删除附件。

好的版主大人！既然您出现了，我能否请您看一眼我的新帖子问题？？http://club.excelhome.net/thread-1458099-1-1.html 不胜感激啊！！！

lsc900707 · 发表于 2019-1-21 20:08

lizi12000 发表于 2019-1-21 19:55
好的版主大人！既然您出现了，我能否请您看一眼我的新帖子问题？？http://club.excelhome.net/thread-145 ...

呵呵，已解答。。。。。。

lizi12000 · 发表于 2019-1-21 20:39

由于数据问题，删了附件，谢谢！

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

[求助] 新人求帮助，关于成绩单更新的问题，和上一个帖子不一样。

评分

评分

最新热点 /1