在指定的动态区域间选择数据删除行

SCWYZJ

求助：我想在指定起始的动态列区域中选择有数据的单元格并以2行为标准删除其整行，可多选识别删除（见附件），烦请老师帮忙看看，如何实现。小花静候!

taller

ykcbf1100

工作表事件。选中F列非空单元格则删除2行

ykcbf1100

参与一下。。。

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.     Application.ScreenUpdating = False
   
4.     If Target.Column = 6 Then
   
5.         If Target.Value <> Empty Then
   
6.             r = Target.Row
   
7.             Me.Rows(r - 1).Resize(2).Delete
   
8.         End If
   
9.     End If
   
10.     Application.DisplayAlerts = True
    
11.     Application.EnableEvents = True
    
12. End Sub
    

复制代码

SCWYZJ

taller 发表于 2024-12-19 02:52

老师，你的代码我试了，我没选的也一起删除了，我要的是自由选择指定区域中有内容的行组合来删除，好像代码中也没选择错误后的提示呀

SCWYZJ

ykcbf1100 发表于 2024-12-19 07:10
参与一下。。。

老师，你的代码我也试了，没有按指定的区域去选择删除，提示也没有。不过我此贴问题已经另寻方法解决了。谢谢二老师的热心帮助

ykcbf1100

SCWYZJ 发表于 2024-12-19 08:49
老师，你的代码我也试了，没有按指定的区域去选择删除，提示也没有。不过我此贴问题已经另寻方法解决了。 ...

指定区域很明显啊，就是F列。如果鼠标点击F列的单元格，有数据则删除二行，无数据则啥也不干。完全能满足你的要求。你就是不识货而已。

SCWYZJ

ykcbf1100 发表于 2024-12-19 11:17
指定区域很明显啊，就是F列。如果鼠标点击F列的单元格，有数据则删除二行，无数据则啥也不干。完全能满足 ...

老师你读懂我的要求。我的要求是选中的行小于等于第9行，或等于最后1个非空行就不要删除了，你的代码却不是。

ykcbf1100

SCWYZJ 发表于 2024-12-19 16:37
老师你读懂我的要求。我的要求是选中的行小于等于第9行，或等于最后1个非空行就不要删除了，你的代码却不 ...

再加个判断条件就行了。
算了，不再改了。

taller

SCWYZJ 发表于 2024-12-19 08:47
老师，你的代码我试了，我没选的也一起删除了，我要的是自由选择指定区域中有内容的行组合来删除，好像代 ...

"好像" -- 有没有问题时确定的，所有代码都经过测试，不知道你说的问题具体是啥