10.1EXCe宏 19 Range( g2" ).select 20 ActiveCell formulaR1C1="电话号码 21 Range ( Al: G1 ).Select 22 With selection 23 HorizontalAlignment= xlCenter 24 VerticalAlignment= XlBottom 25 WrapText False 26 Orientation =0 27 AddIndent= False 28 ShrinkToFit= False 29 End with 30 Selection. Merge 到Ex<看看 31 End sub10.1 Excel宏 ◼ 19 Range("G2").Select ◼ 20 ActiveCell.FormulaR1C1 = "电话号码" ◼ 21 Range("A1:G1").Select ◼ 22 With Selection ◼ 23 .HorizontalAlignment = xlCenter ◼ 24 .VerticalAlignment = xlBottom ◼ 25 .WrapText = False ◼ 26 .Orientation = 0 ◼ 27 .AddIndent = False ◼ 28 .ShrinkToFit = False ◼ 29 End With ◼ 30 Selection.Merge ◼ 31 End Sub