[已解决]求助：剪切E列的内容分别粘 ...

水木

求助：剪切E列的内容分别粘贴到D列F列。谢谢！.rar (19.65 KB, 下载次数: 9)

2016-9-17 17:23 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

雨吧

2016-9-18 10:59

1. Sub YuBa()
   
2.     Dim rng As Range, s$, m%, n%, i%
   
3.     m = Sheet1.[e65536].End(3).Row
   
4.     For i = m To 1 Step -1
   
5.         Set rng = Cells(i, "e")
   
6.         If InStr(rng.Value, "*") Then
   
7.             rng.Copy rng.Offset(1, 1)
   
8.             Rows(rng.Row).Delete
   
9.             ElseIf InStr(rng.Value, "解释：") Then
   
10.             rng.Copy rng.Offset(1, -1)
    
11.             Rows(rng.Row).Delete
    
12.         End If
    
13.     Next
    
14. End Sub

复制代码

跳转到最佳答案楼层

雨吧

1. Sub YuBa()
   
2.     Dim rng As Range, s$, m%, n%, i%
   
3.     m = Sheet1.[e65536].End(3).Row
   
4.     For i = m To 1 Step -1
   
5.         Set rng = Cells(i, "e")
   
6.         If InStr(rng.Value, "*") Then
   
7.             rng.Copy rng.Offset(1, 1)
   
8.             Rows(rng.Row).Delete
   
9.             ElseIf InStr(rng.Value, "解释：") Then
   
10.             rng.Copy rng.Offset(1, -1)
    
11.             Rows(rng.Row).Delete
    
12.         End If
    
13.     Next
    
14. End Sub

复制代码