[已解决]用VBA求总数并取整数和零数

168216130B · 发表于 2010-2-25 22:22

用VBA求总数并取整数和零数

ojnGs6b2.rar (5.23 KB, 下载次数: 19)

枯禅 · 发表于 2010-2-25 22:36

ZkWqEdRT.rar (8.3 KB, 下载次数: 27)

cjainwei · 发表于 2010-2-25 22:41

Dim arr, arr1, arr2, arr3
Dim i As Integer
Dim j As Integer
arr = Range("A2:B" & [a65536].End(xlUp).Row)
arr1 = [e2:F8]
ReDim arr2(1 To UBound(arr1, 1))
ReDim arr3(1 To UBound(arr1, 1), 1 To 3)
For i = 1 To UBound(arr1, 1)
    arr2(i) = Mid(arr1(i, 2), 4, Len(arr1(i, 2)) - 4) + 0
    For j = 1 To UBound(arr, 1)
        If arr(j, 1) = arr1(i, 1) Then
            arr3(i, 3) = arr3(i, 3) + arr(j, 2)
        End If
    Next
Next
For j = 1 To UBound(arr3, 1)
    arr3(j, 2) = arr3(j, 3) Mod arr2(j)
    arr3(j, 1) = arr3(j, 3) \ arr2(j)
Next
[g2].Resize(UBound(arr3, 1), 3) = arr3
Erase arr, arr1, arr2, arr3
End Sub

168216130B · 发表于 2010-2-25 22:59

谢谢，要是只用数组可以吗（字典实在看不懂呢）。

枯禅 · 发表于 2010-2-25 23:07

QUOTE:

以下是引用168216130B在2010-2-25 22:59:00的发言：
谢谢，要是只用数组可以吗（字典实在看不懂呢）。

这个问题可以作为字典教学的例题来用，字典就是为这个而生的，不用可惜!

cjainwei · 发表于 2010-2-25 23:42

本来可以用合并计算，

zsd5237 · 发表于 2010-2-26 04:40

学习[em02][em02]

168216130B · 发表于 2010-2-26 10:34

QUOTE:

以下是引用枯禅在2010-2-25 23:07:00的发言：

这个问题可以作为字典教学的例题来用，字典就是为这个而生的，不用可惜!

那可以把代码加上注释吗？不胜感激。。。（刻苦学习下）Split是什么函数Val是什么函数

[此贴子已经被作者于2010-2-26 10:48:35编辑过]

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