[已解决]如何用VBA实现满足条件的数据进行剪切，粘贴，删除空行等操作

n520

如下代码：
如何进行更改达到标题的效果
Sub ss()
Dim i As Long, k As Long
    For i = 2 To Range("a65536").End(xlUp).Row
       If Range("e" & i) = "删除" Then
          Range("e" & i).EntireRow.Cut
       End If
      
        k = Range("a65536").End(xlUp).Row + 1
            ActiveSheet.Range("a" & k).Select
            ActiveSheet.Range("a" & k).PasteSpecial
            k = k + 1
            Next i
        
End Sub

IF 语句里是想实现满足“删除”值，然后剪切到最后非空单元格空两行的单元格里进行粘贴然后在对剪切掉空白行进行删除

最佳答案

月排行榜 / 总排行榜

龙城飞将III

2016-2-12 10:48

1. Sub ss()
   
2.     Dim i As Long, k As Long, j As Long
   
3.     j = Range("a65536").End(xlUp).Row
   
4.     k = Range("a65536").End(xlUp).Row + 3
   
5.     For i = 2 To j
   
6.        If Range("e" & i) = "删除" Then
   
7.           Range("e" & i).EntireRow.Cut Cells(k, 1)
   
8.           Range("e" & i).EntireRow.Delete
   
9.        End If
   
10.     Next i
    
11.         
    
12. End Sub

复制代码

跳转到最佳答案楼层

龙城飞将III

1. Sub ss()
   
2.     Dim i As Long, k As Long, j As Long
   
3.     j = Range("a65536").End(xlUp).Row
   
4.     k = Range("a65536").End(xlUp).Row + 3
   
5.     For i = 2 To j
   
6.        If Range("e" & i) = "删除" Then
   
7.           Range("e" & i).EntireRow.Cut Cells(k, 1)
   
8.           Range("e" & i).EntireRow.Delete
   
9.        End If
   
10.     Next i
    
11.         
    
12. End Sub

复制代码

scl5801

已有了，哈哈学习了

n520

龙城飞将III 发表于 2016-2-12 10:48

If Range("e" & i) = "删除" Then这句如何写成同时满足两个和两个以上的条件
是用OR 还是用AND
比如“删除” “合并””同时“等条件
具体要如何写

n520

龙城飞将III 发表于 2016-2-12 10:48

Dim i As Long, k As Long, j As Long
    j = Range("a65536").End(xlUp).Row
    k = Range("a65536").End(xlUp).Row + 3
    For i = 2 To j
        If Range("e" & i) = "删除" Or Range("e" & i) = "合并" Then
          Range("e" & i).EntireRow.Cut Cells(k, 1)
          Range("e" & i).EntireRow.Delete
       End If
    Next i


为什么不能实现，只达到有删除的行进行剪了，而有合并的不剪呢，我想实现有删除和合并的一起剪到非空单元格加三行的下面