将10行代码合并到1中

我写了一些可以正常工作的代码，但速度很慢。将10行代码合并到1中

能有人帮我这十行丑陋的代码合并成一个优雅的线条?:

Worksheets(Cells(x, "P").Value).Cells(Cells(x, "Q").Value, "A").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
    Worksheets(Cells(x, "P").Value).Cells(Cells(x, "Q").Value, "B").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
    Worksheets(Cells(x, "P").Value).Cells(Cells(x, "Q").Value, "C").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
    Worksheets(Cells(x, "P").Value).Cells(Cells(x, "Q").Value, "D").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
    Worksheets(Cells(x, "P").Value).Cells(Cells(x, "Q").Value, "E").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
    Worksheets(Cells(x, "P").Value).Cells(Cells(x, "Q").Value, "F").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
    Worksheets(Cells(x, "P").Value).Cells(Cells(x, "Q").Value, "G").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
    Worksheets(Cells(x, "P").Value).Cells(Cells(x, "Q").Value, "H").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
    Worksheets(Cells(x, "P").Value).Cells(Cells(x, "Q").Value, "I").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
    Worksheets(Cells(x, "P").Value).Cells(Cells(x, "Q").Value, "J").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

来源

2013-07-26 Artur Rutkowski

你知道有一个[代码审查（HTTP：/ /codereview.stackexchange.com/?as=1）SE上的网站？ – pnuts

我不知道。非常感谢！ –

也许

Worksheets(Cells(x, "P").Value).Cells(Cells(x, "Q").Value, "A").Resize(, 10).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

来源

2013-07-26 13:34:29 JosieP

非常感谢！干杯！ –

将10行代码合并到1中

回答

相关问题