在数据末尾插入3个新行,使用宏/命令按钮保持格式化

loading...


1

我每周更新一张数据,最左边的列是一年中的一周(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

谢谢

loading...

0回答

No Data

评论

暂时没有评论!