8个回答
展开全部
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Offset(-1, 0).Value = "0" Then
Rows(Target.Offset(-1, 0).Row).Delete Shift:=xlUp
Else
Target.Offset(-1, 0).Value = ""
End If
End If
End Sub
使用参考
展开全部
Do Until Columns("A").Find("■*") Is Nothing
Columns("A").Find("■*").EntireRow.Resize(3).Delete
Loop
End Sub
Columns("A").Find("■*").EntireRow.Resize(3).Delete
Loop
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你直接点击a列右键,删除整行就可以了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
SUB DEROW()
For i = 1 to [C65536].end(3).Row
If range("C" & i) = "." then
rows(i).Delete
End If
Next
End Sub
For i = 1 to [C65536].end(3).Row
If range("C" & i) = "." then
rows(i).Delete
End If
Next
End Sub
追问
没效果
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这样做应该是可以的,
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个读书的时候我们没有学过呀,让我再去看一下。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询