如果符合VBA中的条件，如何删除行

Question

我想创建一个宏来删除我之前选择的行。

我希望宏删除整行，除非我选择第11行或第12行。在这种情况下，我只想删除行的内容并保留格式。

由于

Answer 1

尝试，

with selection
   if not intersect(.cells, .parent.range("11:12")) is nothing then
       .cells.entirerow.clearcontent   'use .clear if you want to strip formatting as well
   else
       .cells.entirerow.delete
   end if
end with

如果您想避免在多行选择中将多行删除更改为with selection到with selection.cells(1)。