[已解决]数据组合的问题

Baibdu

附件 数据组合.rar (164.58 KB, 下载次数: 14)

2014-11-21 09:11 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

dsmch

2014-11-21 11:07

………………

跳转到最佳答案楼层

baksy

Q1复制以下公式，三键回车(公式复制后,点一下公式编辑栏的任意位置,先按住 ctrl、shift 两个键,然后敲enter键)，
横拉到S1，全部下拉；
=IF(MOD(ROW(),3)=0,"",INDEX($A:$G,SMALL(IF(SUBTOTAL(3,OFFSET($A$1:$G$1,ROW($1:$288)-1,))=6,ROW($1:$288),999),INT(ROW()/3)+1),COLUMN(A1)+(MOD(ROW(),3)=2)*4))

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, crr, i&, j%, s&
   
3. arr = Range("a1").CurrentRegion
   
4. brr = Range("e1").CurrentRegion
   
5. ReDim crr(1 To UBound(arr) * 3, 1 To 3)
   
6. s = 1
   
7. For i = 1 To UBound(arr)
   
8.     If arr(i, 3) <> "" And brr(i, 3) <> "" Then
   
9.         For j = 1 To 3
   
10.             crr(s, j) = arr(i, j)
    
11.             crr(s + 1, j) = brr(i, j)
    
12.         Next
    
13.         s = s + 3
    
14.     End If
    
15. Next
    
16. Range("m1").Resize(s, 3) = crr
    
17. End Sub

复制代码

dsmch

………………