假设嫌烂单元格计算A列A1到A10
在B1输入 =a1/sum($a$1:$a$10)
然仿颤后下拉公式到B10，右键设置单元格为备者败百分比
你在A列晌誉数数据，用VBA批处理
同时按下ALT+F11键
插入模块宴首，粘贴以下代码
Sub bb()
x = Range("a56565").End(3).Row
y = Application.WorksheetFunction.Sum(Range("a1" & ":" & "a" & x))
For i = 1 To x
Range("b" & i) = Round(Range("a" & i) / y, 2)
Next i
End Sub
然后运虚森行宏
B1输入 =a1/sum($a$1:$a$10)
然后下拉公式局滑到B10，
同时右键弯脊设置单元格为百桐闹腊分比。
=A1/B1,然后变成百分比格式。