[已解决]怎样用VBA把红色区域数字（红色区域数字个数没定） 依次排列在黄色区域

d346836673

怎样用VBA把红色区域数字（红色区域数字个数没定） 依次排列在黄色区域

最佳答案

月排行榜 / 总排行榜

爱疯

2017-8-16 17:51

Sub test()
    Dim rng As Range, x, i
    Set rng = [e5:z37]
    rng.ClearContents
    For Each x In [e3].CurrentRegion
        i = i + 1
        rng(i) = x
    Next
End Sub

跳转到最佳答案楼层

苏子龙

1. =IF(COUNT($E$3:$CF$3)>ROW(A1)*22-27+COLUMN(),LARGE($E$3:$CF$3,ROW(A1)*22-26+COLUMN()),"")

复制代码

d346836673

苏子龙 发表于 2017-8-16 09:53

貌似不行样，大神。

爱疯

Sub test()
    Dim rng As Range, x, i
    Set rng = [e5:z37]
    rng.ClearContents
    For Each x In [e3].CurrentRegion
        i = i + 1
        rng(i) = x
    Next
End Sub

d346836673

爱疯 发表于 2017-8-16 17:51
Sub test()
    Dim rng As Range, x, i
    Set rng = [e5:z37]

谢谢版主，原来可以这样写，我自己想的有点复杂了。开始我写了一个数组，arr = [e3].CurrentRegion.Value，然后就是不晓得怎样把数组里面的数据提取出来在黄色区域。

爱疯

'比如，a1:b3中的值如下
'a d g
'b e h
'c f i
Sub test()
    Dim rng As Range, arr, x
    Set rng = [a1:c3]
    arr = rng

    Debug.Print "在单元格区域中for each，一行行的读"
    For Each x In rng
        Debug.Print x
    Next

    Debug.Print "在数组中for each，一列列的读"
    For Each x In arr
        Debug.Print x
    Next
End Sub
'返回
'a
'd
'g
'b
'e
'h
'c
'f
'i
'- - - - - -
'a
'b
'c
'd
'e
'f
'g
'h
'i

d346836673

爱疯 发表于 2017-8-16 18:50
'比如，a1:b3中的值如下
'a d g
'b e h

谢谢版主耐心讲解。我懂了。刚刚又学习了。

02761752696

学习了