VBA详解删除数据问题(菜鸟问题)

发布网友发布时间：2024-10-23 22:40

共2个回答

热心网友时间：2024-11-05 18:38

Dim k%: k = 1
Do While Cells(k, 1) <> ""
if Cells(k, 1) <> "" then
Rows(k).Delete Shift:=xlUp
else
k=k+1
end if
Loop

热心网友时间：2024-11-05 18:31

Dim k%

For k = 1 To [A65536].End(xlUp).Row
If Cells(k, 1) = "" Then
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
k = k - 1
End If
Next
''''''''''''''''''''
你的代码直接对K加，并且不管k等于多少，代码最终都要走到删除的那一块，所以一定会删除东西，但是不一定是删除了正确的东西

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com