
1.在另外列中输入1,2,3,4,5,6....(ps:此法用下拉即可)
2.在刚才做好的123456...列下面的空白行里添加1.5,2.5,3.5,4.5,5.5....(ps:类似上面方法下拉)
3.选中所以行或者目标行,然后在“筛选和排序”里选择升序,即可。
4.选择了“升序”排序后的效果。
5.删除用作排序的数字列,即可。
代码原文:【注意:数据地址位于[a1,b1]】
Sub 批量插入指定数量的空白行()
' 百度知道问答_CAPTAIN出品_必属精品_欢迎交流
Dim i&, t&, x&
t = ActiveSheet.UsedRange.Rows.Count
For i = t To 3 Step -1
x = Cells(i - 1, 2).Value
Rows(i).Resize(x).Insert
Next
End Sub
代码截图:
生成效果:
您好,VBA中的Tab空格可以通过以下步骤来设置:1. 打开VBA编辑器,点击“工具”菜单,选择“选项”;
2. 在“选项”对话框中,点击“编辑器”选项卡;
3. 在“编辑器”选项卡中,勾选“使用Tab字符”复选框;
4. 设置“Tab字符宽度”,默认为4个空格;
5. 点击“确定”按钮,完成设置。
通过以上步骤,您可以在VBA中设置Tab空格,以达到您想要的效果。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)