有没有更快的方法来打印一组string到Excel中的行？

我的第一次传递涉及到使用键盘快捷方式来填充所选单元格及其与“May”，“Both”，“Derek”，[Today's date]和“Uploaded”的行。 目前它比键入更快，我希望它和标准键盘快捷键一样快。 我怎样才能清理这个？

Sub AutofillBothMay() Application.ScreenUpdating = False ' Keyboard Shortcut: Ctrl+Shift+B ActiveCell = "MAY" ActiveCell.Offset(0, 1) = "BOTH" ActiveCell.Offset(0, 2) = "DEREK" ActiveCell.Offset(0, 3) = Date ActiveCell.Offset(0, 4) = "UPLOADED" Application.ScreenUpdating = True End Sub 

Answer 1

试试看，

 activecell.resize(1, 6) = array("MAY", "BOTH", "DEREK", Date, "UPLOADED", True) 

不要打扰Application.ScreenUpdating。