高分征集方案：如何自在Excel中增加一列？
成一Excel表，某列字型（可能空白，或者示“我是空”字）假A如下：
A
10
我是空
20
30
40
100
最後一行合。

征求一宏操作，在表最後增加一列（假D），是A的百分比
A D
10 10.00%
我是空 0%
20 20.00%
30 30.00%
40 40.00%
100 100.00%

即最後新增一百分比列，每行合的百分比，最後果保留位小（四舍五入）

我困了很多天法解，有能解的朋友我不感激，通的高分送，心的朋友。

[解决办法]
Sub 增加合计和百分比()
r = [A65536].End(xlUp).Row '获取A列最后一个数据所在单元格的行号
Cells(r + 1, 1).Formula = "=SUM(A1:A " & r & ") " '在A列最后一个数据之后增加合计
Range( "B1:B " & r + 1).FormulaR1C1 = "=RC[-1]/ " & Cells(r + 1, 1) '设置B列公式
[B:B].NumberFormatLocal = "0.00% " '设置B列格式
End Sub


[解决办法]
//非字型的字符串怎判定？

Dim IAmNumber As Boolean
If IsNumeric(cell) Then
IAmNumber = True
Else
IAmNumber = False
End If