怎样用VBA将某列的某单元格如果等于某值就自动清空此单元格右侧多个(17个)单元格内容?
发布网友
发布时间:2022-04-30 07:35
我来回答
共1个回答
热心网友
时间:2023-10-21 07:35
sub cclean()
for i=0 to 19
j=40+19*i
k=usedrange.rows.count
for l=1 to k
if cells(l,j).value=range("m2").value then
range(cells(l,j+1),cells(l,j+17)).clear
end if
next k,i
end sub追问谢谢你的深夜回答!
但为什么提示“无效的Next 控件变量引用”?
追答手机打的,写错变量了,next l,i 不是next k,i
热心网友
时间:2023-10-21 07:35
sub cclean()
for i=0 to 19
j=40+19*i
k=usedrange.rows.count
for l=1 to k
if cells(l,j).value=range("m2").value then
range(cells(l,j+1),cells(l,j+17)).clear
end if
next k,i
end sub追问谢谢你的深夜回答!
但为什么提示“无效的Next 控件变量引用”?
追答手机打的,写错变量了,next l,i 不是next k,i