【001】如何按行扩充数据或者删除数据_#VBA

#由于数据量达不到要求，需要同比例扩大一些数据#

Sub EnlargeDate()
'按行扩充数据
All = 3            '需要同比例增加All个初始数据
Ratio = 10		   '比例
Start = 2          '起始行
Colum1 = 2         '数据所在列
Colum2 = 3	       '增加数据所在列

 For i = 1 To All
    Rows(Start + 1 + (i - 1) * Ratio & ":" & Start + (i - 1) * Ratio  + Ratio - 1).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove   '扩充行
    Cells(Start + (i - 1) * Ratio, Colum1).Select
    Selection.Copy
    Range(Cells(Start + (i - 1) * Ratio, Colum2), Cells(Start + (i - 1) * Ratio + Ratio-1, Colum2)).Select
    ActiveSheet.Paste                                           '扩充数据
 Next
 
End Sub

#由于数据量达不到要求，需要同比例删除一些数据#

Sub DeleteDate()
'按行删除数据
All = 3            '同比例保留数据最终个数
Ratio = 10		   '比例
Start = 2          '起始行

 For i = 1 To All
    Rows(i + Start & ":" & i + Ratio).Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp             '删除数据
 Next
 
End Sub

待处理数据

Call EnlargeDate     '调用程序

Call DeleteDate     '调用程序

参考地址：https://docs.microsoft.com/zh-cn/office/client-developer/excel/excel-home?redirectedfrom=MSDN
该代码仅供学习，如商业转载请联系本人，非商业转载请注明出处。

---

# 加油 #