exce根据指定列里的值，动态插入列数

使用VBA事件触发程序。
按 Alt+F11 , 将以下代码抄入VBA代码窗，关闭代码窗。
双击D列数字，右边单元格就会向右移。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 4 Then Exit Sub
Cancel = True
On Error GoTo 888
Target(1, 2).Resize(1, Target.Value).Select
Selection.Insert Shift:=xlToRight
888:
On Error GoTo 0
Cancel = False
End Sub

排序或者函数或者vba