我的数据标题以C9开头,数据范围从C10到AT100。我需要能够根据放在userform中的数字删除一些行,然后向上移动数据。因此,如果整数计算为5,则第10行到第15行中的数据将被删除,并且下面的数据将向上移动以保持表格已满。
我的计算如下:
Dim toDelete As Integer
Num_1 = SpinButton1.Value
Num_2 = SpinButton2.Value
toDelete = Num_1 * Num_2
如果toDelete是10,我想删除第9行下面的10行(因为这些是我的标题。)感谢您提供任何帮助!
答案 0 :(得分:3)
使用:
Rows(10).Resize(toDelete).Delete