D列单元格为空时，如何删除该行全部内容

rain357 · 发表于 2012-4-14 23:30

D列单元格为空时
如何删除该行全部内容

门外汉一个
求高手求教
谢谢

mjzxlmg · 发表于 2012-4-14 23:35

1、排序 2、删除

rain357 · 发表于 2012-4-14 23:37

发在这个版面
就是希望用VBA语句自动完成的

chenhh803 · 发表于 2012-4-14 23:50

Sub test()
Dim arr, brr, i&, x&, y%, k&
i = Cells(Rows.Count, 1).End(3).Row
arr = Range("a1:e" & i)
ReDim brr(1 To i, 1 To 5)
For x = 1 To i
If arr(x, 4) <> "" Then
k = k + 1
For y = 1 To 5
brr(k, y) = arr(x, y)
Next
End If
Next
Range("a1:e" & i) = brr
End Sub

复制代码

rain357 · 发表于 2012-4-15 00:02

chenhh803 发表于 2012-4-14 23:50

用这个代码
当列数增加时，不能删除整行

mjzxlmg · 发表于 2012-4-15 00:48

rain357 发表于 2012-4-15 00:02
用这个代码
当列数增加时，不能删除整行

arr = Range("a1:e" & i)
修改一下上句就行了。把e（列）改你的最后列

bqs · 发表于 2012-4-15 01:36

Sub 删除D列为空的行()
Dim i As Long
Dim lastrow As Long
lastrow = Cells(Rows.Count, 2).End(xlUp).Row
For i = lastrow To 1 Step -1
If Len(Cells(i, 4)) = 0 Then
Rows(i & ":" & i).Select
Selection.Delete Shift:=xlUp
End If
Next i
End Sub

chenhh803 · 发表于 2012-4-15 12:02

rain357 发表于 2012-4-15 00:02
用这个代码
当列数增加时，不能删除整行

呵呵,这种办法比你每行去删除快了不知道多少倍,你增加列数后,修改相关参数即可

sunsoncheng · 发表于 2012-4-15 13:19

本帖最后由 sunsoncheng 于 2012-4-15 13:21 编辑

楼上的这种方式只保留了值，也不一定是你要的，如果只保留值，没有公式什么的这方法最好

http://club.excelhome.net/forum.php?mod=viewthread&tid=658526

给一个链接你看看，链接里有只利用E本身的删除功能，应该更合适

我觉得这个链接里的讨论很不错

ni57 · 发表于 2013-11-12 13:55

学习，谢谢

		自动登录	找回密码
密码			免费注册

[求助] D列单元格为空时，如何删除该行全部内容