[已解决]怎样删除满足条件的部分单元格，删除后时单元格左移，而不是整行删除？？？

cxh5237@163.com · 发表于 2011-8-12 21:29

如附件，如玻璃长为空，则下列四个单元格删除，删除后时单元格左移？
！！

玻璃长

玻璃宽

玻璃数量

玻璃纹理

用VBA怎么写？
SUB 删除空格()
  row3 = Range("a65536").End(xlUp).Row
  For row3 To 2 step -1
   If Range("j" & N) = "" Then
      range("j"&n:"m"&n).delete
end sub
1、不能这样直接将DELETE写在RANGE后面，range无此方法，怎样删除？
2、怎样选定单元格的位置？

最佳答案

月排行榜 / 总排行榜

放浪形骸

2011-8-12 22:04

cxh5237@163.com 发表于 2011-8-12 22:00
为什么我这样写，都达不到效果呢？？闹心
With Sheets("汇总表")
row3 = Range("a65536").End(x ...

Sub 删除空格()
Dim i As Integer
Dim RoW3 As Integer
RoW3 = Range("a65536").End(xlUp).Row
For i = RoW3 To 2 Step -1
If Cells(i, 4).Value = "" Then
Range("D" & i).Resize(1, 4).Delete Shift:=xlToLeft
End If
Next
End Sub

复制代码

这些给你的不能实现你的效果么？

跳转到最佳答案楼层

放浪形骸 · 发表于 2011-8-12 21:38

你复制出来的代码有很多错误：
1、FOR里面没有变量的初始值
2、range("j"&n:"m"&n).delete里的冒号应该在第二个引号内容里，还少了一个连接符号&。

修改下为：

Range("j" & n & ":m" & n).Delete Shift:=xlToLeft

复制代码

Zipall · 发表于 2011-8-12 21:42

回复 cxh5237@163.com 的帖子

Sub test()
Application.ScreenUpdating = False
For r = 2 To Range("a65536").End(xlUp).Row
If Cells(r, 4) = "" Then Cells(r, 4).Resize(1, 4).Delete xlShiftToLeft
Next
Application.ScreenUpdating = True
End Sub

cxh5237@163.com · 发表于 2011-8-12 21:47

回复放浪形骸的帖子

谢谢！我明白我的错误，但还是不能达到我想要的效果。

wbzxz · 发表于 2011-8-12 21:50

Sub 删除空格()
Dim row3 As Long
Dim i As Long
row3 = Range("A65536").End(xlUp).Row
For i = row3 To 2 Step -1
If Range("D" & i) = "" Then
Range("D" & i).Resize(1, 4).Delete Shift:=xlToLeft
End If
Next
End Sub

复制代码

books.rar (9.79 KB, 下载次数: 23)

cxh5237@163.com · 发表于 2011-8-12 22:00

为什么我这样写，都达不到效果呢？？闹心

With Sheets("汇总表")
   row3 = Range("a65536").End(xlUp).Row
For N = row3 To 2 Step -1
      If Range("v" & N) = "" Then
            Range("v" & N & ":y" & N).delete shift:=xlToLeft
      ElseIf Range("r" & N) = "" Then
         Range("r" & N & ":u" & N).delete shift:=xlToLeft
      ElseIf Range("n" & N) = "" Then
         Range("n" & N & ":q" & N).delete shift:=xlToLeft
         ElseIf Range("j" & N) = "" Then
         Range("j" & N & ":m" & N).delete shift:=xlToLeft
      End If
Next N

   End With

放浪形骸 · 发表于 2011-8-12 22:04

cxh5237@163.com 发表于 2011-8-12 22:00
为什么我这样写，都达不到效果呢？？闹心
With Sheets("汇总表")
row3 = Range("a65536").End(x ...

Sub 删除空格()
Dim i As Integer
Dim RoW3 As Integer
RoW3 = Range("a65536").End(xlUp).Row
For i = RoW3 To 2 Step -1
If Cells(i, 4).Value = "" Then
Range("D" & i).Resize(1, 4).Delete Shift:=xlToLeft
End If
Next
End Sub

复制代码

这些给你的不能实现你的效果么？

cxh5237@163.com · 发表于 2011-8-12 22:04

回复 wbzxz 的帖子

没有循环，只将D EFG四行删除，后面没有继续判断删除！！

放浪形骸 · 发表于 2011-8-12 22:07

cxh5237@163.com 发表于 2011-8-12 22:00
为什么我这样写，都达不到效果呢？？闹心
With Sheets("汇总表")
row3 = Range("a65536").End(x ...

你还是希望说如果玻璃长下面没有数据，那把从这格开始的连续的空行都删除么？

cxh5237@163.com · 发表于 2011-8-12 22:09

回复放浪形骸的帖子

是！！！

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