ActiveCell.FormulaR1C1 = WorksheetFunction.RandBetween(0, 100000000)'è¿ä¸ªæ¯çæéæºæ°ç0-100000000
ActiveCell.Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 26
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
温馨提示:答案为网友推荐,仅供参考