难度1 数组一列转多列

x-xx-xx

20231115_153445.rar (19.16 KB, 下载次数: 37)

2023-11-15 17:14 上传

点击文件名下载附件

Learner2022

1. Sub ConvertArray()
   
2.     Dim arrInput() As Variant
   
3.     Dim arrOutput() As Variant
   
4.     Dim rows As Long
   
5.     Dim cols As Long
   
6.     Dim index As Long
   
7.     Dim i As Long, j As Long
   
8.    
   
9.    
   
10.    
    
11.     ' 假设原始一维数组为 arrInput，将其填充为示例数据
    
12.     arrInput = Range("A1:A" & [A1].End(xlDown).Row)
    
13.    
    
14.     ' 指定二维数组的行数和列数
    
15.     rows = InputBox("输入转换后行数")
    
16.     cols = InputBox("输入转换后列数")
    
17.    
    
18.     ' 根据指定的行数和列数，重新定义输出数组的大小
    
19.     ReDim arrOutput(1 To rows, 1 To cols)
    
20.    
    
21.     ' 循环遍历输入数组，并将元素分配给输出数组
    
22.     For i = 1 To rows
    
23.         For j = 1 To cols
    
24.             index = (i - 1) * cols + j
    
25.             arrOutput(i, j) = arrInput(index, 1)
    
26.         Next j
    
27.     Next i
    
28.    
    
29.     ' 输出结果数组中的元素
    
30.     For i = 1 To rows
    
31.         For j = 1 To cols
    
32.             Range("D1").Resize(rows, cols).Value = arrOutput
    
33.         Next j
    
34.     Next i
    
35. End Sub
    
36. 参与一下

复制代码

micch

为什么代码要这么写，是自动生成的代码吗？

micch

lushang2018

lushang2018

试一试，试一试

chxw68

仔细看了一下，楼主是[分享]贴子。

caiyu93

麻烦不?

今铭昔

yynrzwh