新手 学习 for each 语句 求帮忙修改一下

radia79

新手学习VBA，用表二表三计算，结果输出到表一里面，请大侠帮我改一下,谢谢了

Option Explicit
Sub main()
Dim i As Integer
Dim count As Integer
Dim bizhong As Double
Dim he As Double
Dim c As Variant
    For i = 1 To WorksheetFunction.CountA([D:D])
      
    Range("A" & (i + 1)) = Range("D" & (i + 1)).Value
  
        he = 0
        count = 1
        bizhong = 0
           
           For Each c In Range("E" & "i+1 " & ":" & "G" & "i + 1")
               If count = 1 Then bizhong = 1.5
               If count = 2 Then bizhong = 2.2
               If count = 3 Then bizhong = 3.1
            
               Range("B& i+1").Value = (c * 100 + c * 200 + c * 300) * bizhong + he
               he = (c * 100 + c * 200 + c * 300) * bizhong + he
               count = count + 1
           Next c
   
    Next i
End Sub

笑着...两年过去

1. 把文件上传一下嘛，看着图片写，只能凭感觉不好调试

复制代码

radia79

笑着...两年过去 发表于 2015-10-22 16:52

上传好了，麻烦帮我看看

笑着...两年过去

radia79 发表于 2015-10-22 17:18
上传好了，麻烦帮我看看

Sub test()
    Dim i
    For i = 2 To [a2].End(4).Row
        Cells(i, 2) = Cells(i, 5) * [j3] + Cells(i, 6) * [k3] + Cells(i, 7) * [l3]
    Next
End Sub

笑着...两年过去

如果表1和表2的第1列不是一一对应的话，可以用字典

1. Sub test()
   
2.     arr = Range("d2:g" & [d2].End(4).Row)
   
3.     For i = 1 To UBound(arr)
   
4.         arr(i, 2) = arr(i, 2) * [j3] + arr(i, 3) * [k3] + arr(i, 4) * [l3]
   
5.     Next
   
6.     Set d = CreateObject("Scripting.Dictionary")
   
7.     For j = 1 To i - 1
   
8.         d(arr(j, 1)) = arr(j, 2)
   
9.     Next
   
10.     brr = Range("a2:b" & [a2].End(4).Row)
    
11.     For i = 1 To UBound(brr)
    
12.         brr(i, 2) = d(brr(i, 1))
    
13.     Next
    
14.     [a2].Resize(i - 1, 2) = brr
    
15. End Sub

复制代码

radia79

笑着...两年过去 发表于 2015-10-22 19:14
如果表1和表2的第1列不是一一对应的话，可以用字典

太感谢了，我仔细研究一下先，有问题再请教你{:soso_e113:}