求教怎么把2过程合并

z865593849 · 发表于 2024-12-2 09:51

本帖最后由 z865593849 于 2024-12-2 11:20 编辑

求教如何把删除数据2个过程合并成1个，如果传入列参数就删除该列数据，否则就删除所有数据

原目的主要用来调整图片，过程很复杂，主要通过传入参数是否

要有if pic.TopLeftCell.Column = 2 then 这个判断

xlj310 · 发表于 2024-12-2 10:15

可选参数 Optional
用 IsMissing 来判断是否传入了参数

木子客 · 发表于 2024-12-2 10:15

Sub）删除数据O
For Each col In ActiveSheet.UsedRange.Columns

if col .column=2 then
col.clearcontents
else
col.clearcontents
endif
next
endsub

z865593849 · 发表于 2024-12-2 11:16

xlj310 发表于 2024-12-2 10:15
可选参数 Optional
用 IsMissing 来判断是否传入了参数

感谢，以解决，只要用 OR 连接就实现了

		自动登录	找回密码
密码			免费注册

[已解决] 求教怎么把2过程合并