我每周更新一张数据，最左边的列是一年中的一周（1-52） .

我想，在点击一个按钮时添加下一周以保持前一周的格式 .

每周有3个不同的行，每天都手动输入数据 . - 第一行只是一个灰色的空行，用于分隔下周 - 第二行是普通文本框 - 第三行是下拉菜单 .

目前我手动突出显示前几周的3行，并使用右下角的小方块向下拖动到新的一周，它会复制所有格式，包括添加新的周数（上周数字1） .

如何使用微距/按钮执行此操作？

这里编辑的是宏的代码：

Sub NewWeek()
'
' NewWeek Macro
'
' Keyboard Shortcut: Ctrl+w
'
    Range("A38:Q40").Select
    Selection.AutoFill Destination:=Range("A38:Q43"), Type:=xlFillDefault
    Range("A38:Q43").Select
End Sub

谢谢

excel vba range