Excel VBA 更改事件确定已删除整行或整列

如果只想通过一个程序来判断用户的**，因为这个**已经是一个独立的文件，没有任何比较条件，就没有可比性，也没有办法判断它。

Dispatch 不会首先定义全局变量。

public urrc 作为变体，然后将变量定义为 SelectionChange 事件中的已用行数。

private sub worksheet_selectionchange(byval target as range)

urrc = "工作表页面的名称").

end sub

最后判断是 change 事件中的行数是否小于 urrc，如果小于 urrc，则认为存在删除，如果限制删除了一行，则将其更改为减去等于 1，如果插入，则更改为大于 如果是列，则将其更改为列

private sub worksheet_change(byval target as range)

if "工作表页面的名称"). urrc thenmsgbox "有一个 Pena 删除操作"

end if

end sub

这不都是一回事吗？ 设置一个标签，然后通过查找标签的位置，增加和减少位置，old代表插入和删除。

VBA 删除该行。

通常，目标值是自下而上找到并删除的。

这样，它就不会被错误地删除。

sub test()

for i = 2000 to 1 step -1if range("aq" & i).value = "0" or range("aq" & i).text = "#ref!

thenrows(i & ":" & i).delete shift:=xlup

end if

nextend sub

添加 OR 条件并获取文本值。

for i = 1 to 2000

if range("aq" & i).value = "0" or range("aq" & i).text = "#ref!" then

rows(i & ":" & i).delete shift:=xlup

i = i - 1

end if

nextend sub

你应该找到一种方法来避免 ref！是正确的方式。

我的想法不同，但结果应该是一样的。

我把要保留的列放在一个新表（sheet2）中，先对它们进行排序，我需要把排序位置放在sheet2的A列中，然后执行**sub m（）。

set dicb = createobject("")for i = 1 to "a65536").end(xlup).row

if , 1).value) = false thenk = k + 1

dicb(, 1).value) = k + 1end if

next i

for i = 1 to range("a1").end(xltoright).column

if , i).value) = true thencolumns(i).copy , i).value))end if

next i

end sub

房东的要求和我差不多（我想把过滤后的行和后面的三行一起删掉，过滤条件是宏录制），我的方法是整合多神的结果，解决我的问题。 **下面：

过滤条件，可以使用宏记录，然后修改。

j=rows("2:2000").specialcells(12).row '获取筛选器的行号，“2：2000”是筛选器的作用域，可以根据需要进行修改。

rows(j & ":" & j+3)).选择“选择过滤后的行和接下来的 3 行，并根据需要进行修改。

如果选择某个操作，则可以使用宏记录该操作，然后对其进行修改。

如果要多次删除，可以添加循环语句。

答：出错的原因是选择了多个单元格，默认值属性错误，因为可能有不同的值。

解决方案：您可以逐个单元格判断目标单元格，为了避免错误的发生，我在您的**的基础上进行了修改，添加了循环语句，将目标替换为单元格，并保持调用语句原样。

private sub worksheet_change(byval target as range)

dim cell as range

for each cell in targetif = 2 then

if cell = 1 then

call one

elseif cell = 2 then

call two

elseif cell = 3 then

call three

elseif cell = 4 then

call four

elseif cell = 5 then

call five

elseif cell = 6 then

call six

elseif cell = 7 then

call seven

elseif cell = 8 then

call eight

elseif cell = 9 then

call nine

elseif cell = 10 thencall ten

elseif cell = 11 thencall eleven

elseend if

end if

nextend sub