作者:乔山办公网日期:
返回目录:excel表格制作
可以运行VBA宏代替手工逐个单元格刷格百式刷。代码如下:
Sub getFormat()
Dim c As Range
On Error Resume Next
For Each c In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
Range(c.Formula).Copy
c.PasteSpecial xlPasteFormats
Next c
Application.CutCopyMode = False
End Sub
此代码会抽取公式指向的源单元度格格式,然后内通过选择性粘贴--格式来完成当前单元格格式的设置。
源数据:
目标单元格运容行代码前:
运行代码后:
假设0.017写在A1单元格,则引用公式来为
=TEXT(A1,"0.00") 意思为让A1的内容转换成源带两位小数的值,得出的结果文本知数字
或
=ROUND(A1,2) 意思为将A1单元格道的值四舍五入保留两位小数
将公式改为:=A2&"+"&A3&"+"&A4
公式将显示A2、A3、A4的值,且用"+"与三者相连。
不加修饰的单元格将返回原值,加引号的内容将照原样输出。&是连接符。
=IF(H8=1,J8,I8&"~"&J8)