合并单元格并赋值 Sub Macro1() Range("A2:A4").Select Application.Left = 82 Application.Top = 124 With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("A1").Select Selection.Copy Range("A2:A4").Select ActiveSheet.Paste End Sub 选定单元格添加边框 Private Sub work() Range("c6:b5").Select Selection.Borders(xlDiagonalD