求教

sacv818

请按C列里字母A与B交叉分排列（即排一个A再排一个B）.请大侠帮忙。


该贴已经同步到 sacv818的微博

gufengaoyue

没看明白~~~
你弄两个例子看看？

TomingTang

c2公式：=IF(MOD(ROW(),2),"B","A")，下拉

dajiahaoxinku12

=INDEX(A$2:A$66,SMALL(IF($C$2:$C$65="A",ROW($1:$64),65),ROW(A1)))&""         是函数还是VBA啊？

sacv818

可能我表述不清楚,A和B和前面的姓名是连在一起,要调换位置得一起换位.重新排位先一个A再一个B.

dajiahaoxinku12

Sub 排列()
    arr = [a2:c65]
    ReDim brr(1 To UBound(arr), 1 To 2)
    ReDim crr(1 To UBound(arr), 1 To 2)
    ReDim drr(1 To UBound(arr) * 2, 1 To 2)
    For i = 1 To UBound(arr)
        If arr(i, 3) = "A" Then
           k = k + 1
           brr(k, 1) = arr(i, 1)
           brr(k, 2) = arr(i, 2)
        Else
           j = j + 1
           crr(j, 1) = arr(i, 1)
           crr(j, 2) = arr(i, 2)
        End If
    Next
         For i = 1 To UBound(brr) - 2
             x = x + 2
             drr(x, 1) = brr(i, 1)
             drr(x, 2) = brr(i, 2)
             drr(x + 1, 1) = crr(i, 1)
             drr(x + 1, 2) = crr(i, 2)
         Next
    Range("d2").Resize(UBound(arr) * 2, 2) = drr
End Sub

dajiahaoxinku12

是这个意思吗？                          

sacv818

是的，谢谢了。