VBA求救高手，將資料按頁次順序排列

wsx1130

求救各位老師
想要將資料轉到A~F欄
一頁為120個項目
第一頁
A=1~40
C=41~80
E=81~120
第二頁
A=121~160
C=161~200
E=201~240
....到最後

shiruiqiang

题意搞错，看下面的应急一下

wsx1130

shiruiqiang 发表于 2023-1-17 19:56
这么规律的，不用写，直接k2,l2......，下拉，全部替换k为“=k”

老師，不好意思
這個方式會變成1、2、3為列
我需要的順序為1~40為同一欄，可否有其他方式呢

gwjkkkkk

wsx1130 发表于 2023-1-17 20:55
老師，不好意思
這個方式會變成1、2、3為列
我需要的順序為1~40為同一欄，可否有其他方式呢

数据好像已排好了，是不是生根据K、L列生成你现在模拟的样子。。。

shiruiqiang

wsx1130 发表于 2023-1-17 20:55
老師，不好意思
這個方式會變成1、2、3為列
我需要的順序為1~40為同一欄，可否有其他方式呢

搞错了题目意思

shiruiqiang

For x = 1 To 1560，其中1560 自己改一下到多少行吧

牛掰

shiruiqiang 发表于 2023-1-18 07:49
For x = 1 To 1560，其中1560 自己改一下到多少行吧

行= .Cells(.Rows.Count, 1).End(xlUp).Row

3190496160

Sub 分页()
Application.ScreenUpdating = False
Dim ar As Variant
Dim br()
With Sheets("工作表1")
    r = .Cells(Rows.Count, 11).End(xlUp).Row
    ar = .Range("k2:l" & r)
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    If rs >= 3 Then .Range("a3:f" & rs) = Empty
    For i = 1 To UBound(ar) Step 120
        n = 0
        ReDim br(1 To UBound(ar), 1 To 6)
        y = 0
        For s = i To i + 119 Step 40
            y = y + 2
            If s <= UBound(ar) Then
                For ss = s To s + 39
                    If ss <= UBound(ar) Then
                        If Trim(ar(ss, 1)) <> "" Then
                            n = n + 1
                            If n > 40 Then
                                n = 1
                            Else
                                n = n
                            End If
                            br(n, y - 1) = ar(ss, 1)
                            br(n, y) = ar(ss, 2)
                        End If
                    End If
                Next ss
            End If
        Next s
        ws = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        .Cells(ws, 1).Resize(n, y) = br
        .Cells(ws, 1).Resize(n, y).Borders.LineStyle = 1
    Next i
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

test1.rar (161.58 KB, 下载次数: 6)

2023-1-18 10:38 上传

点击文件名下载附件

tanglf188

功能包括：打印区域设定、分页符插入、每页打印标题设定