[已解决]如何实现高难度删除合并格等

KDZ

                  各位大神：               如何用VBA实现，将合并单元格的两行内数据整合为一行，并移动数据，先行谢谢各位大师的辛苦劳动，这厢有礼了！！！！！！！！

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-9-13 16:23

删除行操作，不要指望速度。

1. Sub aaa()
   
2. Dim i&
   
3. For i = [b65536].End(3).Row + 1 To 5 Step -1
   
4.   If Cells(i, 2).MergeCells = True Then
   
5.     If Application.CountA(Cells(i, 16).Resize(, 4)) > 0 Then
   
6.       If Application.CountA(Cells(i - 1, 16).Resize(, 4)) > 0 Then
   
7.         Cells(i - 1, 20).Resize(, 4) = Cells(i, 16).Resize(, 4).Value
   
8.       Else
   
9.         Cells(i - 1, 16).Resize(, 4) = Cells(i, 16).Resize(, 4).Value
   
10.       End If
    
11.     End If
    
12.     Rows(i).Delete
    
13.   End If
    
14. Next i
    
15. End Sub

复制代码

跳转到最佳答案楼层

KDZ

不过还麻烦您，我忘了一句话，就是我的这个表内，多数行的就是规规矩矩的一行数据， 完整数据的一行。我讲忘了，非常抱歉！！！

大灰狼1976

删除行操作，不要指望速度。

1. Sub aaa()
   
2. Dim i&
   
3. For i = [b65536].End(3).Row + 1 To 5 Step -1
   
4.   If Cells(i, 2).MergeCells = True Then
   
5.     If Application.CountA(Cells(i, 16).Resize(, 4)) > 0 Then
   
6.       If Application.CountA(Cells(i - 1, 16).Resize(, 4)) > 0 Then
   
7.         Cells(i - 1, 20).Resize(, 4) = Cells(i, 16).Resize(, 4).Value
   
8.       Else
   
9.         Cells(i - 1, 16).Resize(, 4) = Cells(i, 16).Resize(, 4).Value
   
10.       End If
    
11.     End If
    
12.     Rows(i).Delete
    
13.   End If
    
14. Next i
    
15. End Sub

复制代码

KDZ

大灰狼1976 发表于 2017-9-13 16:23
删除行操作，不要指望速度。

老师伟大！！！谢谢！！！！！！！！！