红包30元感谢，CD列相同，同行存放

EXCELLMY

CD列相同，同行存放.rar (16.3 KB, 下载次数: 4)

2020-1-11 12:57 上传

点击文件名下载附件

EXCELLMY

谢谢各位坛友的关注，有意者请留一个联系方式

excel海

你这个需要把需求说清楚点

microyip

骗30买个动车票

1. Sub 整理()
   
2.     Dim vData As Variant, nRow As Long, nCol As Long
   
3.     Dim vFill As Variant, nFill As Long
   
4.    
   
5.     vData = Sheet1.[C2:F44].Value
   
6.     ReDim vFill(1 To 3, 1 To UBound(vData))
   
7.     nFill = 1
   
8.     For nRow = 1 To UBound(vData)
   
9.         If vData(nRow, 1) = vData(nFill, 2) Then
   
10.             For nCol = 1 To 3
    
11.                 vFill(nCol, nRow) = vData(nFill, nCol + 1)
    
12.             Next
    
13.             nFill = nFill + 1
    
14.             ReDim Preserve vFill(1 To 3, 1 To UBound(vFill, 2) + 1)
    
15.         End If
    
16.     Next
    
17.     Do While nFill <= UBound(vData)
    
18.         For nCol = 1 To 3
    
19.             vFill(nCol, nRow) = vData(nFill, nCol + 1)
    
20.         Next
    
21.         nRow = nRow + 1
    
22.         nFill = nFill + 1
    
23.     Loop
    
24.     vFill = Application.WorksheetFunction.Transpose(vFill)
    
25.     Sheet2.[G2:I2].Resize(UBound(vFill)) = vFill
    
26. End Sub

复制代码

yes363001640

同行存放是啥意思？

microyip

附上附件以供参考

EXCELLMY

microyip 发表于 2020-1-11 13:25
附上附件以供参考

感谢老师的帮助，效果非常好，加您微信了，请通过一下

一笔书天地

microyip 发表于 2020-1-11 13:25
附上附件以供参考

高手！
向老师敬礼！！