这个代码必须先设定A1:B1单元格的格式,然后才能应用到A6:B80。谢谢!
需要帮助两个方面:1.不用通过设定A1:B1单元格的格式,直接在A6:B80实现合并单元格的效果;
2.实现动态变化,不选择Range("A6:B80"),实现如(A1:B1,A2:B2,A3:B3,A4:B4,A5:B5,A6:B6,A7:B7……)效果的循环。
Sub Macro1()
Range("A1:B1").Select
With Selection
.HorizontalAlignment = xlCenter
Selection.Merge
Range("A1:B1").Copy
With Range("A6:B80")
.PasteSpecial Paste:=xlPasteFormats
.Borders.LineStyle = 1
End With
End With
End Sub
Sub Macro2()
With Range("A6:B80")
.Merge True '将指定区域中每一行的单元格合并为一个单独的合并单元格
.HorizontalAlignment = xlCenter '水平居中
.Borders.LineStyle = 1 '实线边框
End With
End Sub