有几行代码看不懂，麻烦大家解释一下

tsesiuwai

图片

   
就是黄色高亮部份。谢谢！

Sub  test()
Dim a As Integer, c As Single   
Dim x As Integer, y As Integer      
Dim b As Range
y = Range("G1").End(xlDown).Row   
For Each b In Range("I2:I10")     '
    a = 0
    c = 0
    For x = 1 To y Step 1            
   
    If Range("G" & x).Value = b.Value Then    '
       a = a + 1
        c = Range("F" & x).Value + c
    End If
   
    Next x
   
    b.Offset(0, 1) = a
    b.Offset(0, 2) = c
Next b
End Sub

piaoxue1

a = 0， c = 0初始a和C设置为0。
  a = a + 1每出现一次该人名，a值增加1。
b.Offset(0, 1) = a当前人名的右边一格，也就是J列同行的格子，值等于a。
b.Offset(0, 2) = c当前人名的右边二格，也就是K列同行的格子，值等于C。

濸嗨壹酥

Sub 订单数和销售额()
Dim a As Integer, c As Single               '设定变量,a保存订单数量(整数),c保存销售额(单精度),
Dim x As Integer, y As Integer              '用于循环的变量
Dim b As Range                              '设定临时单元格变量

y = Range("G1").End(xlDown).Row             '取以G1为基准的有效数据区域行数(也就是销售明细表区域的行数到空白)

For Each b In Range("I2:I10")               '在I2:I10这单元格循环取值给b(右边的销售人员)
    a = 0                                   'a的初始值=0
    c = 0                                   'c的初始值=0
    For x = 1 To y Step 1                   '从1到y循环(y是销售G1的行数),步进1
            
    If Range("G" & x).Value = b.Value Then  '判断,如果G列里面的姓名=I列的姓名
        a = a + 1                           'a就累计(就是销售次数)
        c = Range("F" & x).Value + c        'c就是把F列的销售额累计作为销售人员销售额
    End If
   
    Next x                                  '循环
   
    b.Offset(0, 1) = a                      '把累计好的次数(订单数)赋值给 (b是单元格,右边销售人员里面的某个人员)偏移[0行,1列]
    b.Offset(0, 2) = c                      '偏移[0行,2列]就是销售金额
Next b

End Sub

tsesiuwai

濸嗨壹酥 发表于 2015-1-12 09:52
Sub 订单数和销售额()
Dim a As Integer, c As Single               '设定变量,a保存订单数量(整数),c保 ...

谢谢啊,今天才翻回这个帖子