[已解决]有公式能实现分别将ABCDEFGHW例按顺序排在IJ例吗

踏轌寻梅

踏轌寻梅 发表于 2016-8-30 09:45
表中的所有数据合并为一例后应该是12129个的，但是合并例数据才11163个，在合并I例也找不到C至H例的数据， ...

已上传

爱疯

Sub test()
    Dim A, B, i, j, s
    A = Application.Intersect(Range("a1").CurrentRegion, Range("a:h"))
    ReDim B(1 To UBound(A) * 4, 1 To 2)

    For i = 2 To UBound(A)
        For j = 1 To UBound(A, 2) Step 2
            If Len(A(i, j)) Then
                s = s + 1
                B(s, 1) = A(i, j)
                B(s, 2) = A(i, j + 1)
            End If
        Next j
    Next i

    Range("n:o").ClearContents
    Range("n2").Resize(s, 2) = B
End Sub

1.rar (1.12 MB, 下载次数: 5)

2016-8-30 10:45 上传

点击文件名下载附件


=INDEX($A$1:$H$11163,MOD(ROW(A1)-1,11162)+2,QUOTIENT(ROW(A1)-1,11162)*2+COLUMN(A1))

原公式需改，且要下拉到 =11162*4+1=44649行。
因为K2:L44649之中，存在很多空白单元格的引用值。
这种情况用代码会好些。

踏轌寻梅

爱疯 发表于 2016-8-30 10:50
Sub test()
    Dim A, B, i, j, s
    A = Application.Intersect(Range("a1").CurrentRegion, Range("a ...

再请教一下，这条公式是要根据数据行列的改变而改才能生效，是吗

踏轌寻梅

踏轌寻梅 发表于 2016-8-30 11:37
再请教一下，这条公式是要根据数据行列的改变而改才能生效，是吗

要怎么改原公式才能合并得数12160？

踏轌寻梅

爱疯 发表于 2016-8-30 10:50
Sub test()
    Dim A, B, i, j, s
    A = Application.Intersect(Range("a1").CurrentRegion, Range("a ...

要怎么改原公式才能得到合并的总数据是12160？

爱疯

踏轌寻梅 发表于 2016-8-30 11:42
要怎么改原公式才能得到合并的总数据是12160？

改为一组最大占用的行数，原来都是4，现在最大是11162，就是粉色的。

踏轌寻梅

爱疯 发表于 2016-8-30 12:06
改为一组最大占用的行数，原来都是4，现在最大是11162，就是粉色的。

已经改成11162了，但也不能全部合并得完，E、F、G、H例的数据未能合并，合并例只到11775后，后面的显示都是0

踏轌寻梅

踏轌寻梅 发表于 2016-8-30 15:27
已经改成11162了，但也不能全部合并得完，E、F、G、H例的数据未能合并，合并例只到11775后，后面的显示都 ...

明白了，解决了，谢谢哈{:06:}

zyouong

附件.rar (547.97 KB, 下载次数: 1)

2016-8-30 16:38 上传

点击文件名下载附件

踏轌寻梅

zyouong 发表于 2016-8-30 16:38

谢谢{:06:}