如何在excel中vba添加指定格式的一行

1楼：匿名用户

复制并插入该行

sub 插入

相同格式的行()

dim r1 as integer, r2 as integerr1 = 2

r2 = 4

rows(r1).copy

rows(r2).insert

end sub

(excel,vba) 如果某一行中有的单元格的值为0，则在下面插入一行？怎么用vba实现？谢谢！

2楼：匿名用户

编辑bai---查找---选项----勾选单元格匹du配----输入

zhi0----查找。对话框中会显dao所有0的格，按住ctrl键，专点中找到的数属据，关闭对话框，**中所有0格被选中，在某个0的位置右键---插入---整行---确定。全部0格的“上”方插入一空行。

（插入到0的下方不行）必要时可以在输入数据前，把空行拖拽到0的下边。

3楼：恢メ烣

1、某一特征的行

（至少有一个单元格为0）

对第x行计算

可以用连乘函数product(x:x)

值为0则满

内足特征条件

2、如果是在上容面的基础上进行加一行操作

vba中是

rows(x+1).insert

+1表示该行之后

如果是某个单元格（假设为c5）值为0时才加一行，则用以下语句

if [c5]=0 then

rows(6).insert

end if

4楼：匿名用户

**如下：复

'a列单元格的值为0，则在下面制插入一行

'sub insertrow()

dim n as integer

dim i as integer

n = [a65536].end(xlup).row 'a列最后一行非空单元格行号

i = 1

do while i <= n '如果当前单元格行号不大于最后一行则执行循环

if cells(i, "a") = 0 then '单元格如果是0

cells(i + 1, "a").entirerow.insert '在其下一行插入空行

n = n + 1 '最后一行的行号增加1行i = i + 1 '跳过新插入的空行end if

i = i + 1 '行号+1，准备下一个循环loop

end sub

vba 宏插入一行固定格式的行

5楼：【名臣

先在来第一行设置自好标bai题格式，再du运行zhi以下宏daosub 宏1()

for i = [b65536].end(3).row to 3 step -1

if range("b" & i) = 1 thenrows("1:1").copy

rows(i & ":" & i).insert shift:=xldown

end if

end sub

6楼：匿名用户

抱歉，没注意复到你的每一组信息制，有的是8行，有的是10行。

请使用以下的**，就没问题了。

subtitlerowscopy_new()dimiasinteger

i=sheet2.usedrange.rows.countdoifsheet2.cells(i,2).value=1then

sheet2.rows(i).insertsheet2.rows(1).copysheet2.rows(i)endif

i=i-1

loopuntili=2

endsub

求助如何用vba添加下一行

7楼：阳光上的桥

在vba**上一行的末尾，按回车键，就可以增加一个新行。

8楼：硅谷少年

上**，写描述，写出你到底想要做什么？不懂你是office还是cad？

excel 求助如何用vba添加下一行

9楼：匿名用户

自己录一段，改改就行了

10楼：匿名用户

首先在类别列来查找"五金",如果源

找到,然后从从此行开bai始向下循环

du,(可以用for each 在找到的单元zhi格到此dao列的最后一个单元格),在循环体中用if进行测试b列单元格的内容,如果是"五金",则继续向一行,如果不是,则表示已经到末尾了,现在可以在此插入下行.将你的内容分别输入到对应的单元格中即可.

如果没有找到"五金",那么你要么在最后追加,要么在第一行之前插入一行,这个就看你的个人意思了.

如果（excel，vba）某一行有的单元格的值为0，则如何用vba在下面插入一行？

11楼：恢メ烣

1、某一特征的行（至少有一个单元格为0）

对第x行计算

可以用连乘函数product(x:x)

值为0则满版足特征条件权

2、如果是在上面的基础上进行加一行操作

vba中是

rows(x+1).insert

+1表示该行之后

如果是某个单元格（假设为c5）值为0时才加一行，则用以下语句

if [c5]=0 then

rows(6).insert

end if

vba怎么excel中插入行

12楼：天雨下凡

给个思路，要插入行，首先要选择行，再进行插入操作。假设在第二行处插入一行，则vba**如下：rows(2).insert shift:=xlup

13楼：匿名用户

这个很容易的。在要插入行的下行位置上选择下面的一行在行的最左边点击鼠标右键插入行就可以了。希望对你有帮助,看后请点击我的回答下方【选为满意答案】按钮

14楼：典暄郜邵美

rows("2:2").insert

shift:=xldown,

copyorigin:=xlformatfromleftorabove

就是在第二行前插入一行

在excel中，如何使用vba设置单元格内指定字符串格式

15楼：匿名用户

sub ss()

dim j as long

j = instr(range("a1"), "格式")with range("a1")

.font.fontstyle = "正常"

.characters(start:=j, length:=2).font.fontstyle = "加粗"

end with

end sub

这个**可以让你的格式两个字在任意位置

如果你a1是固定的这几个字，那专么一句属话搞定range("a1") .characters(start:=4, length:

=2).font.fontstyle = "加粗"

16楼：匿名用户

**如下：

sub aa()

with range("a1")

.clear

.value = "字符串格式"

.characters(4, 2).font.fontstyle = "加粗"

end with

end sub

17楼：匿名用户

sub bold()

'' bold macro''

range("a1").select

with activecell.characters(start:=4, length:=2).font

.fontstyle = "加粗"

end with

range("a1").select

end sub

希望对你有帮助版。权

excel中在某格输入数据则自动添加新一行并套用上一行的公式格式,**样式。

18楼：jonny_工作室

建议先把第4行和第5行删除，只保留2行和第三行预设的格式。如果你要保留也行，只是下面的操作和公式往下加2行

选中a4到e4按ctrl+shift+↓键选其中所需设置的单元格（选中第4行到最后一行的单元格）

条件格式-新建规则

使用公式设置--输入公式--设置格式

公式：=and(mod(row($c4),2)=0,$c2<>"")设置：边框样式和背景灰色

灰色填充的就设置好了，没有背景填充的同上设置一下，只有公式和选中行不同，进行如下操作，就不上图了。

选中a5到e5按ctrl+shift+↓

条件格式-新建规则

使用公式设置--输入公式--设置格式

公式：=$c3<>""

设置：边宽样式背景颜色不要设置

效果图：

c2，c3为空时

c2，c3输入内容后

19楼：匿名用户

选择你要的格式的单元格，点击格式刷，把下面那列刷一下即可

如何在excel中vba添加指定格式的一行

如何一行的格式复制到另一行Excel中使用C

如何在工行融e联钱包中添加银行卡

如何在excel中的字母上面加一横

如何在excel中vba添加指定格式的一行

如何一行的格式复制到另一行Excel中使用C

如何在工行融e联钱包中添加银行卡

如何在excel中的字母上面加一横

相关阅读