[已解决]求助vba代码 B列删除一个单元格数据，把一行数据删除。

清华

求助vba代码　B列删除一个单元格数据，把一行数据删除。

最佳答案

月排行榜 / 总排行榜

happym8888

2012-3-14 10:17

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column <> 2 Then Exit Sub
   
3.     If Target.Count > 1 Then
   
4.     If Application.Sum(Target) = 0 Then Rows(Target.Row & ":" & Target.Row + Target.Count - 1).Delete
   
5.     Else
   
6.     If Target = "" Then Rows(Target.Row).Delete
   
7.     End If
   
8. End Sub

复制代码

跳转到最佳答案楼层

hrpotter

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column <> 2 Then Exit Sub
   
3.     If Target = "" Then Rows(Target.Row).Delete
   
4. End Sub

复制代码

放在你要操作的工作表事件中

清华

hrpotter 发表于 2012-3-14 09:36
放在你要操作的工作表事件中

有2个问题
第一，1次删除3行报错。
第二，删除的单元格有黑边阴影。

happym8888

hrpotter 发表于 2012-3-14 09:36
放在你要操作的工作表事件中

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column <> 2 Then Exit Sub
   
3. If Target = "" Then Rows(Target.Row).ClearContents
   
4. End Sub

复制代码

补篮！{:021:}

清华

happym8888 发表于 2012-3-14 09:56
补篮！

B列往下拉数据报错
同时删除多个单元格报错

happym8888

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column <> 2 Then Exit Sub
   
3.     If Target.Count > 1 Then
   
4.     If Application.Sum(Target) = 0 Then Rows(Target.Row & ":" & Target.Row + Target.Count - 1).Delete
   
5.     Else
   
6.     If Target = "" Then Rows(Target.Row).Delete
   
7.     End If
   
8. End Sub

复制代码

清华

happym8888 发表于 2012-3-14 10:17

删除后的B列单元格还是有黑阴影

happym8888

清华 发表于 2012-3-14 10:32
删除后的B列单元格还是有黑阴影

黑阴影是你的单元格设置、边框等有个性所致，你新建一个工作表，放点数据删除试试。
代码中没有会导致阴影的因素。

清华

happym8888 发表于 2012-3-14 10:41
黑阴影是你的单元格设置、边框等有个性所致，你新建一个工作表，放点数据删除试试。
代码中没有会导致阴 ...

同时删除B列3单元格数据就出黑阴影，
比如框上B3:B6 按Delete i删除就有黑阴影，删除一个单元格不出现阴影。

happym8888

清华 发表于 2012-3-14 10:55
同时删除B列3单元格数据就出黑阴影，
比如框上B3:B6 按Delete i删除就有黑阴影，删除一个单元格不出现阴 ...

删除B列3单元格数据就出黑阴影，然后保存了再打开看看有没有阴影呢？