[已解决]如何实现将合并单元格两行整理为一行并移动数据

KDZ

         各位老师：用VBA如何实现将合并单元格两行整理为一行并移动数据,请见附件，先行拜谢您！！

最佳答案

月排行榜 / 总排行榜

ppp710715

2017-9-4 10:51

1. Sub t5()
   
2.   Dim rw%, i%
   
3.   rw = ActiveSheet.UsedRange.Rows.Count
   
4.   'rw = Cells(Rows.Count, 2).End(3).Row
   
5.   For i = rw To 3 Step -1
   
6.     If Range("b" & i).MergeCells = True Then
   
7.        Range("a" & i & ":s" & i - 1).UnMerge
   
8.     End If
   
9.   Next
   
10.   For i = rw To 3 Step -1
    
11.    If Application.CountA(Range("a" & i & ":o" & i)) = 0 Then
    
12.        Range("t" & i - 1).Resize(1, 4) = Range("p" & i & ":s" & i).Value
    
13.        Rows(i).Delete
    
14.     End If
    
15.   Next
    
16. End Sub

复制代码

跳转到最佳答案楼层

ppp710715

1. Sub t5()
   
2.   Dim rw%, i%
   
3.   rw = ActiveSheet.UsedRange.Rows.Count
   
4.   'rw = Cells(Rows.Count, 2).End(3).Row
   
5.   For i = rw To 3 Step -1
   
6.     If Range("b" & i).MergeCells = True Then
   
7.        Range("a" & i & ":s" & i - 1).UnMerge
   
8.     End If
   
9.   Next
   
10.   For i = rw To 3 Step -1
    
11.    If Application.CountA(Range("a" & i & ":o" & i)) = 0 Then
    
12.        Range("t" & i - 1).Resize(1, 4) = Range("p" & i & ":s" & i).Value
    
13.        Rows(i).Delete
    
14.     End If
    
15.   Next
    
16. End Sub

复制代码