添加行并向下拖动某些内容

Question

我有一份用于列出员工要求的文件。我想要一个按钮来添加一个新行（新员工请求）并自动将某些内容插入到列中。所以我希望它在一列中生成下一个引用＃（XX-01 / XX-02等），并添加请求被提出的日期。

这可能吗？

复制（不是OP）评论：

我使用的当前代码是：

Private Sub CommandButton1_Click()  
Sheets("Sheet2").Range("A11").Select  
ActiveCell.EntireRow.Insert Shift:=xlUp
Sheets("Sheet2").Range("A11:AA11").Select  
Selection.Borders.Weight = xlThin  
Range("A11:AA11").Interior.Color = RGB(255, 255, 255)  
End Sub  

这会添加一个新行并根据需要对其进行格式化。然而，即使我记录一个新的宏来拖动所需的字段（ref＃etc），下次我添加一行时它会添加到先前添加的行上方（因为第11行变为12，因此将始终在上面添加）。

Answer 1

鉴于上述第一条评论（等），尽管有标签，您可能会考虑使用非VBA替代方案。也许输入一个表（插入＆gt;表 - 表），比如在Request＃列中使用="XX-"&ROW()-1（在拖放时应自动调整）并使用 Ctrl + {{1}输入日期。