如何排版打印

cjitoliaw

如何进行排版打印, 谢谢

3190496160

Sub 排版()
Dim ar As Variant
Dim br()
ar = ActiveSheet.[a1].CurrentRegion
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2) * 2)
For i = 2 To UBound(ar) Step 6
    For s = i To i + 5 Step 2
        If s <= UBound(ar) Then
            n = n + 1
            For j = 1 To UBound(ar, 2)
                br(n, j) = ar(s, j)
                If s + 1 <= UBound(ar) Then br(n, j + UBound(ar, 2)) = ar(s + 1, j)
            Next j
        End If
    Next s
Next i
With Sheet2
    .[a1].CurrentRegion.Offset(1) = Empty
    .[a2].Resize(n, UBound(br, 2)) = br
End With
MsgBox "ok!"
End Sub

3190496160

排版打印.rar (17.61 KB, 下载次数: 4)

2024-12-8 11:03 上传

点击文件名下载附件

yu3924

不知道颜色框线是不是 也写上去了

一江春水1688

jsa 代码，参考如下：

1. function test(){
   
2.     const n = 6, m = n/2;
   
3.     let arr = Range('a1').CurrentRegion.Value2;
   
4.     let arr_new = [];
   
5.     for(let i = 1; i < arr.length - 1; i += n){
   
6.         for(let j = 0; j < n; j +=2){
   
7.             let l = i+j/2, k = arr_new.push(arr[l]) - 1;
   
8.             if(l + m < arr.length-1) arr_new[k] = arr_new[k].concat(arr[l+m])
   
9.         }
   
10.     }
    
11.     arr_new.unshift(arr[0].concat(arr[0]))
    
12.     Range('a17').Resize(arr_new.length, arr_new[0].length).Value2 = arr_new;
    
13. }

复制代码

一江春水1688

4楼算法简练！

练练手，将之改写为相对通用的代码，即n行分2栏并排打印，n=6就是楼主的要求
这里，n可为2，3，4，5，6。。。
代码如下：

1. function 二栏并排打印(){
   
2.     let n = 6, m = Math.ceil(n/2);
   
3.     let data = Range('a1').CurrentRegion.Value2;
   
4.     let i = 0, j = n%2 == 0 ? 0 : -1;
   
5.     let arr =data.slice(1).reduce((acc, cur) => {
   
6.         i < m ? acc.push(cur) : acc[acc.length - n + i + j].push(...cur);
   
7.         i < n - 1 ? i++ : i=0;
   
8.         return acc
   
9.     },[]);
   
10.     arr.unshift(data[0].concat(data[0]))
    
11.     Range('a17').Resize(arr.length, arr[0].length).Value2 = arr;
    
12. }

复制代码

cjitoliaw

3190496160 发表于 2024-12-8 11:03

大佬非常厉害，完美解决问题

cjitoliaw

一江春水1688 发表于 2024-12-8 16:29
4楼算法简练！

练练手，将之改写为相对通用的代码，即n行分2栏并排打印，n=6就是楼主的要求

大佬非常厉害，完美解决问题

cjitoliaw

yu3924 发表于 2024-12-8 14:08
不知道颜色框线是不是 也写上去了

大佬们真是非常厉害，都能完美解决问题