作者：乔山办公网日期：
返回目录：excel表格制作
录制一下宏就制有了。
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
＝＝知＝＝＝＝＝＝＝＝
就是这一句改一下道：range("A1").WrapText = True
Cells(1, 1) = "'+8"
Sub 文本型抄百()
X = [D65536].End(3).Row + 3
Range("D1:D" & X).NumberFormatLocal = "@"
End Sub
Selection需要度Select有内容才问行。答
Range("C3").Select
Selection.NumberFormatLocal = "@"