求VBA代码 初学者，求基础简单的代码^_^

Question

1，在“求和与计数”工作薄中，编写代码在F6,G6两个单元格中实现，计数与求和功能，即在两个单元格中分别显示A列非空单元格个数，以及单元格的和。
2，添加两个按钮“计数”，“求和”，当点击相关按钮，实现上述功能。

Answer 1

代码如下。

'计数代码
Private Sub CommandButton1_Click()
    Range("F6").Value = Application.WorksheetFunction.Count(Range("A:A"))
End Sub
'求和代码
Private Sub CommandButton2_Click()
    Range("G6").Value = Application.WorksheetFunction.Sum(Range("A:A"))
End Sub追问

Sub 统计(N)

If N
= 1 Then

Range("C2")
= Application.WorksheetFunction.CountA(Range("A:A"))

ElseIf N = 0 Then

Range("D2")
= Application.WorksheetFunction.Sum(Range("A:A"))

End
If

End
Sub
这是什么意思？

追答

我晕，你自己写的，我怎么知道什么意思。
那个Sub 统计(N)

为什么要有N？

你写自定义函数么？还要用过程来传递数值？还是这个过程是中间过程？

Answer 2

'统计非空格数量，并显示在F6
Sub columnN()
[f6] = Application.WorksheetFunction.CountA([a:a])
End Sub

'计算出非空格数值总和，并显示在G6
Sub sumA()
 Dim ac as Long,n As Long
i = 0
ac = Cells(65536, 1).End(xlUp).Row
For Each ran In Range("a1:a" & ac)
  If Len(ran) <> 0 Then n = n + ran
Next
[g6] = n
End Sub

我这个可以排除中间有空值的情况，统计的是真实数量。并且如果数据量大的话，运算速度也是最快的。源文件如下

http://yun.baidu.com/share/link?shareid=3070065018&uk=2349400550