求老司机带路，求VBA代码实现Sheet1曲线数据汇总到Sheet2，谢谢！

心云德乐

批量曲线提取.rar (143.92 KB, 下载次数: 8)

2019-11-18 02:04 上传

点击文件名下载附件

爱疯

Sub test()
    Dim A, B, i, j, x, y
    Sheets(1).Select
    A = Range([a4], Cells(41, 896))
    ReDim B(1 To UBound(A), 1 To UBound(A, 2) / 8)


    For j = 1 To UBound(A, 2) Step 8
        'Debug.Print j \ 8 + 1 & "区"
        '-------------------------------------->
        x = 2   '指针
        y = -1  '方向
        For i = 1 To UBound(A)
            B(i, j \ 8 + 1) = A(i, x + j - 1)
            'Debug.Print x + j - 1
            'Debug.Print i, x, y
            x = x + y
            If x = 1 Or x = 7 Then y = y * -1
        Next i
        '-------------------------------------<
    Next j


    Sheets(2).Select
    Cells.Clear
    Range("a4").Resize(UBound(B), UBound(B, 2)) = B
End Sub

爱疯

到sheet2按列排序，是什么样子？？

hfwufanhf2006

感觉像是个作业题，实际工作中没这样干的；
代码放在sheet1中，也没有排序。排序手工做一下就行，或者录制个宏，把代码复制到最后面也行；

Worksheets(2).Cells.ClearContents
colu = 1
For i = 1 To 8000 Step 8
    ls = 2
    bz = False
    For k = 4 To 41
        If IsEmpty(Cells(k, i + ls - 1)) Then
           Exit For
        End If
        Worksheets(2).Cells(1, colu) = Cells(k, i + ls - 1)
        colu = colu + 1
        ls = IIf(bz, ls + 1, ls - 1)
        If ls = 1 Then
           bz = True
        End If
        If ls = 7 Then
           bz = False
        End If
    Next k
Next i

0126

来个函数方法，a1 =OFFSET(Sheet1!A$4,ROW()-1,(COLUMN()-1)*7+ABS(6-MOD(ROW()+4,12)))&""

心云德乐

爱疯 发表于 2019-11-18 11:22
Sub test()
    Dim A, B, i, j, x, y
    Sheets(1).Select

请问高手：您的VBA代码里有的代码是不是注释了的，就是代码前加啦英文标点符号   '  这样的算不算注释？

心云德乐

hfwufanhf2006 发表于 2019-11-18 09:26
感觉像是个作业题，实际工作中没这样干的；
代码放在sheet1中，也没有排序。排序手工做一下就行，或者录制 ...

请问高手：您的代码里有些声明的数据类型，
                 Dim i&,k&,ls&,colu&   '请问是这样可以吗？
                    请问有个 bz 该怎样声明数据类型，它只是用False假与Ture真？

爱疯

算注释，这是5楼放入附件。

1.rar (153.38 KB, 下载次数: 6)

2019-11-18 14:44 上传

点击文件名下载附件

hfwufanhf2006

心云德乐 发表于 2019-11-18 12:42
请问高手：您的代码里有些声明的数据类型，
                 Dim i&,k&,ls&,colu&   '请问是这样可以吗 ...

除了必须，我基本上很少定义变量类型，总是让系统自动去定义。vba是可以不用定义变量的，没有定义在用到它时系统会自动定义。自动定义的坏处是占用空间大，但也有好处，初学者对变量不是很熟，花很多时间在这上面也没多大意义。现在的内存都很大，这点空间无关紧要；至于你说的定义成 dim i&，这样做也说明你没搞清楚它含义，我不建议。dim i& 是 dim i as long的意思，dim i%是 dim i as integer的意思，这些是简写，还不如直接写成完整形式更好，或者省略到底：干脆就不定义；
关于 bz ，在这里就是一个逻辑值，如果想定义，写成：
  dim bz as boolean

bz 在不定义变量的情况，可以：
  bz=false/true，自动定义为逻辑值
也可以：
  bz=1，自动定义为整形
随便你怎么用它都可以；

心云德乐

求修改VBA代码实现Sheet1曲线数据汇总到Sheet2，添加了条件，从最大行第二单元格开始曲线向上提取，


里面附有高手“爱疯”的原始代码，高手“爱疯”的原始代码是从最大行的第一单元格开始曲线向上，现在想修改为从第二单元格开始曲线向上提取。

1A.rar (153.1 KB, 下载次数: 0)

2021-2-12 15:24 上传

点击文件名下载附件



E:\VBA论坛下载\1E:\VBA论坛下载\1
E:\VBA论坛下载\1

E:\VBA论坛下载\1
E:\VBA论坛下载\1