用宏
Sub A()
i = 1
Do
s = Cells(i, 1)
For j = 1 To Len(s)
If AscW(Mid(s, j, 1)) 255 Then
Cells(i, 2) = Right(s, Len(s) - j) + Left(s, j)
End If
Next j
i = i + 1
Loop Until s = ""
End Sub
为了以后着想建议标号和名称分开各占一列的好
菜单-工具-宏里面打开visual basic编辑器，在sheet1中粘贴上面的代码，然后选择运行宏，sheet1.A即可。单用工作表函数至少我是做不到
实际产值=实际产量*出厂单价
完成=实际产量/计划产量*100%
以上2个的格式应该在格式里的单元格里的数值一页有设置
A1输入材料密度。这里以7.85g/cm2为例
F2输入
=IF(A2="方形",B2*C2*D2,IF(A2="管子",PI()*(B2-C2)*D2,IF(A2="六角",0.75^0.5*B2^2,IF(A2="圆柱",PI()*0.25*B2^2*D2,""))))*E2*$A$1*0.001"g"
并下拉。
其中 A1 单元格密度可改，计算结果以 克为单位。
本文转载自互联网，如有侵权，联系删除
