子副本行（）
將單元格作為範圍變暗
Dim行計數為整數，列計數為整數
設置單元格=範圍（“A2“）
行數= 100
ColCount = Columns（“L“）。圓柱
應用程序
。計算= xlCalculationManual
。ScreenUpdating = False
以…結尾
不為空時執行（單元格）
If單元格& gt那麽1
範圍（單元格。偏移量（1，0），單元格。offset（RowCount，0）。調整大小（，列數）。插入Shift:=xlDown
範圍（單元格，單元格。offset（RowCount，0）。調整大小（，列數）。向下填充
如果…就會結束
設置單元格=單元格。偏移量（行數+ 1，0）
環
應用程序
。計算= xlCalculationAutomatic
。ScreenUpdating = True
以…結尾
末端接頭