VBA写反了，帮修改一下 谢谢

shibaideren

VBA写反了，帮修改一下 谢谢

qingc0221

依然是同一个人的数据对比,为什么要分两个区域列出来呢?还把顺序全打乱,你们太有才

凌空一羽

1. Sub SSS()
   
2. Dim i As Integer
   
3. Dim rg As Range
   
4. On Error Resume Next
   
5. For i = 2 To Cells(Rows.Count, 1).End(3).Row
   
6. For Each rg In Range("d2:d" & Cells(Rows.Count, 1).End(3).Row)
   
7. If Cells(i, 1) = rg Then
   
8. 
   
9. t = Replace(Cells(i, 2).Value, "报销：", "")
   
10. tt = Replace(rg.Offset(0, 1), "报销：", "")
    
11. Cells(i, 6) = t / tt
    
12. End If
    
13. Next
    
14. Next
    
15. 
    
16. 
    
17. 
    
18. 
    
19. 
    
20. End Sub
    

复制代码

shibaideren

qingc0221 发表于 2017-4-28 00:10
依然是同一个人的数据对比,为什么要分两个区域列出来呢?还把顺序全打乱,你们太有才

财务软件造成的。

shibaideren

凌空一羽 发表于 2017-4-28 00:14

我自己尝试很多次 就是不成功 这下知道错在哪了，谢谢，兄弟！

microyip

看了半天没弄懂搞什么鬼，浪费时间

凌空一羽

microyip 发表于 2017-4-28 08:35
看了半天没弄懂搞什么鬼，浪费时间

其实他这个玩意，直接用公式就可以做出来了……
=SUBSTITUTE(B2,"报销：",)/SUBSTITUTE(VLOOKUP(A2,$D$2:$E$6,2,),"报销：",)