![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
如何在Excel中用vba实现单元格字符串格式的复制?
展开全部
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
=
"加粗"
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
=
"加粗"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询