帮忙写个VBA,根据标题名“出厂编号”,找到列,并修改列格式
发布网友
发布时间:2022-06-02 06:28
我来回答
共1个回答
热心网友
时间:2022-06-02 06:50
sub
test()
dim
findvalue
as
range
dim
s
as
long
dim
str
str
=
"城市"
set
findvalue
=
activesheet.rows(1).find(what:=str)
if
not
findvalue
is
nothing
then
s
=
findvalue.column
+
1
columns(s).insert
else
msgbox
"没有找到城市这列"
end
if
end
sub