表格整理求助

amd001

需要把 每2列的数据，复制黏贴在另外两列数据的下面，因为数据量大，所有手动复制黏贴效率太低，还容易错。

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.19
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     arr = Sheets("数据").UsedRange
   
5.     ReDim brr(1 To 1000000, 1 To 2)
   
6.     For j = 1 To UBound(arr, 2) Step 2
   
7.         For i = 2 To UBound(arr)
   
8.             If arr(i, j) <> Empty Then
   
9.                 m = m + 1
   
10.                 brr(m, 1) = arr(i, j)
    
11.                 brr(m, 2) = arr(i, j + 1)
    
12.             End If
    
13.         Next
    
14.     Next
    
15.     With Sheets("结果")
    
16.         .[a1].Resize(1, 2).Interior.Color = 49407
    
17.         .UsedRange.Offset(1) = ""
    
18.         .[a2].Resize(m, 2) = brr
    
19.         .[a1].Resize(m + 1, 2).Borders.LineStyle = 1
    
20.     End With
    
21.     Application.ScreenUpdating = True
    
22.     MsgBox "OK！"
    
23. End Sub
    
24. 
    

复制代码

蓝桥玄霜

整理的例子：

咔咔乱坠

365函数，参与一下

1. =WRAPROWS(TOCOL(A2:J12,3),2)

复制代码

amd001

蓝桥玄霜 发表于 2024-4-19 10:28
整理的例子：

谢谢老师的回复，如果2列变5列，需要改动哪里？

amd001

ykcbf1100 发表于 2024-4-19 10:23
参与一下。。。

谢谢哈~~~我先试试

amd001

蓝桥玄霜 发表于 2024-4-19 10:28
整理的例子：

自己改了一下，大于2列的，失败了

蓝桥玄霜

amd001 发表于 2024-4-19 11:49
谢谢老师的回复，如果2列变5列，需要改动哪里？

需要提供新的附件，表明是什么样的2列想要变成什么样的5列。

amd001

蓝桥玄霜 发表于 2024-4-20 20:21
需要提供新的附件，表明是什么样的2列想要变成什么样的5列。

已经改好了~~谢谢老师~··