Excel一个格子显示两个数据

比如：A1=1，B1=3让它们只在C1中显示1，3

1、简单有效的办法：C1=A1&”，”&B1&”"。（如图中C2显示效果）

但有个问题，如果A1为其它格式的数字如3%，它将自动转为小数格式0.03，当然还有更多奇怪的问题（需要你动手试试）。

2、这个时候需要用到TEXT这个公式函数 C1=A1&”，”&TEXT(B1,”0%”)&”"，这样C1显示就正常了。（如图中C3显示效果）

3、当然还有个办法，设置边框没有颜色一样可以达到效果，这是伪“Excel一个格子显示两个数据”了。

去年12月我还碰到个棘手的问题，批量更改Word里的图片宽度（比如1000页的文档，300个图片），让图片居中。

1、传统办法：替换-查找内容：^g（也就是图形）-替换内容：图文框（设定需要的宽带，居中）

如果是这样那么结果有些杯具，而且杯具各式各样的都有。

2、经过实践摸索，找个一个行之有效的办法：

Sub 设置图片大小()
‘
‘ 设置图片大小 宏
‘
‘
Dim n
On Error Resume Next ‘忽略错误，可以根据情况要与不要
For n = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(n).Width = 340 ‘设置图片宽度，注意类型
ActiveDocument.InlineShapes(n).Range.Paragraphs(1).Range.Select ‘选中图片
With Selection.ParagraphFormat ‘所选段落的格式
.Alignment = wdAlignParagraphCenter ‘图片居中
.LeftIndent = 0 ‘左缩进磅数
.RightIndent = 0 ‘右缩进磅数
.FirstLineIndent = 0 ‘首行缩进磅数
.CharacterUnitLeftIndent = 0 ‘左缩进字符数
.CharacterUnitRightIndent = 0 ‘右缩进字符数
.CharacterUnitFirstLineIndent = 0 ‘首行缩进字符数
End With
Next n
For n = 1 To ActiveDocument.Shapes.Count
ActiveDocument.Shapes(n).Width = 340 ‘设置图片宽度，注意类型
Next n
End Su

这个宏需要注意的是图片的设置（宽度和位置）和类型(InlineShape和Shapes），注释里已经说了

希望对大家有用，运行宏以后不要忘了检查图片是否真的全部都设置成功了，认真翻阅一遍吧。