偏移相比Selection.Insert Shift = xlToRight

Question

我有以下的宏，並希望減少行數，以加快進程。

5 
ActiveCell.Columns("A:A").EntireColumn.Select 
If Selection.Find(What:="*", After:=ActiveCell, LookIn:=xlValues, _ 
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _ 
MatchCase:=True) Is Nothing Then 
GoTo 6 
End If 

Selection.Find(What:="*", After:=ActiveCell, LookIn:=xlValues, _ 
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _ 
MatchCase:=True).Activate 
ActiveCell.Select 
Selection.Insert Shift:=xlToRight 
Selection.Insert Shift:=xlToRight 
Selection.Insert Shift:=xlToRight 
Selection.Insert Shift:=xlToRight 
Selection.Insert Shift:=xlToRight 
GoTo 5 

我想替換倍數「Selection.Insert換檔：= xlToRight」線路用單線使用偏移。

您能否請幫助！

Answer 1

更換您的X5 Selection.Insert Shift:=xlToRight通過Range(ActiveCell, ActiveCell.Offset(0, 4)).Insert shift:=xlToRight

編輯

更多相關代碼：Range(Selection, Selection.Offset(0, 4)).Insert shift:=xlToRight