求老司机带路，求曲线上升的数据提取到指定的列的VBA代码。谢谢！

心云德乐

wodewan 发表于 2019-9-11 21:49
大概知道怎么回事了，你是不是数据表前几行行是空的？把前面的空行删掉，因为代码用的RANGE("A1").CURREN ...

心云德乐

心云德乐 发表于 2019-9-13 19:14

第二张图里的解说，请看S列与T列应是Q列与R列，（制图解说时手误，请凉解）

wodewan

心云德乐 发表于 2019-9-13 19:25
第二张图里的解说，请看S列与T列应是Q列与R列，（制图解说时手误，请凉解）

嗯，是不是换个顺序，开始我还以为你要倒序的，如果是顺序的还简单点，代码如下：另外中秋快乐！！！
Sub test()
Dim i&, j&, x&, arr, brr()
arr = Range("A1").CurrentRegion
ReDim brr(1 To UBound(arr))
    j = 1
    For i = UBound(arr) To 1 Step -1
        j = x + j
        brr(i) = arr(i, j)
        If j = 7 Then x = -1
        If j = 1 Then x = 1
    Next
Range("j1").EntireColumn.ClearContents
Range("j1").Resize(UBound(brr)) = Application.WorksheetFunction.Transpose(brr)
End Sub

心云德乐

wodewan 发表于 2019-9-13 21:04
嗯，是不是换个顺序，开始我还以为你要倒序的，如果是顺序的还简单点，代码如下：另外中秋快乐！！！
Su ...

借此机会再次说句：       第一谢谢！第二感谢！第三谢谢+感谢！有这么好的平台，有许许多多的高手无私的支持，学习VBA的阳光大道有您们高手的扶持，倍感温暖。

                                                                         心云德乐