发文章
发文工具
撰写
网文摘手
文档
视频
思维导图
随笔
相册
原创同步助手
其他工具
图片转文字
文件清理
AI助手
留言交流
大家好,一位朋友请教了用VBA知识插入任意行的问题,我们看一下具体的情况。如下图:
现在想根据A列单元格里的数字,在其单元格下方插入该数字的行,运行结果如下图:
代码如下:
Sub 插入行() Dim i As Integer Dim c As Integer For i = 5 To 1 Step -1 For c = 1 To Range('a' & i) Rows(i 1).Insert Next Next End Sub
有任何疑问欢迎在下方留言提问~
来自: 今天George > 《Excel VBA》
0条评论
发表
请遵守用户 评论公约
按指定次数重复内容
按指定次数重复内容。有时候我们需要对一列单元格按照指定的次数进行重复,如下图所示,D列为结果。ALT+F11 打开VBA,插入任意模块,在...
EXCEL VBA 文件夹操作——批量添加指定文件夹的图片
Option Explicit''设置单元格大小,单元格大小设置因人而异,设置数量要大于或者等于文件夹图片数量,这里范围为range("a...
VBA入门07:For......Next循环
VBA入门07:For......Next循环。Sub for循环() Dim x As Integer Dim i As Integer x = 0 ''for...next构成完整的循环...
VBA判断单元格内容格式、颜色、合并单元格
VBA判断单元格内容格式、颜色、合并单元格。Sub d1()End Sub.Sub d2()Sub d3()Sub d4()Sub d10()Sub d11()''二、设置单元格自定义格式。Sub d30()''三、按指定格式从单元格返回数值。S...
VBA数组读写Excel行列单元格的值
VBA数组读写Excel行列单元格的值。数组根据不同的需求,可分为静态数组和动态数组,静态数组存储欲先设置话的值,相当于里面存储一个或多个静态变量的值;代码一:将预定单元格的值存储到数组中。MyArr...
(1)Execl 基础练习 内容 循环
''隔行换色a = 2Do While Sheet1.Range("a" &a) <>"" ''工作表sheet1 的单元格 range("A?") 不为空则Sheet1.Range("A" &a...
VBA值列选取与复制,赋值
‘引用B2-D6的单元格 同Range(“B2”,”D6”) ,Rangge(Cells(2,2),Cells(6,4))Cells(2,3) 或Cells(2,”C”)Range(Cells(1,1),Cells(10,2)).‘把单元格中一行单元格的值赋给数组。Sub cells()Cells(i+5,...
超完美的现金日记账汇总表,你值得拥有!
超完美的现金日记账汇总表,你值得拥有!接近完美的现金日记账汇总表,你值得拥有!Sub 目录()这个代码其实是不智能的,需要每次都数一...
使用VBA完成单元格高级操作(复制、粘贴、分列汇总)(Advanced range operation with VBA)
微信扫码,在手机上查看选中内容