[已解决]请教各位大侠，我这个数据该怎么整理？？？？？？

mokerry

数据量很大，我想将以下格式
11 22 11 22 11 22 11 22
33 44 33 44 33 44 33 44

改为
11 22
11 22
11 22
11 22
33 44
33 44
33 44
33 44
该怎么办？谢谢各位了！！！

最佳答案

月排行榜 / 总排行榜

fjmxwrs

2012-6-11 23:50

mokerry 发表于 2012-6-11 22:46
非常感谢您的回复，我头一回接触VBA，麻烦各位了，麻烦你能给解答一下附件的问题吗？十分感谢～

点sheet2中的转换数据按钮即得，请测试
单元格的格式：边框，字体颜色，合并等一并代码完成了。
(, 下载次数: 4)

上传

点击文件名下载附件

跳转到最佳答案楼层

mokerry

谁能教教我怎么用VB编这个啊？跪谢啊！

hd_4618

转置下不就完事了

mokerry

hd_4618 发表于 2012-6-11 21:53
转置下不就完事了

原意是将
11 22 33 44 55 66
77 88 99 00

改为
11 22
33 44
55 66
77 88
99 00

请好心人帮个忙？

Select

建议用附件；
多几行、实际些的值，好看得明白些。

zjcat35

1. Sub a()
   
2.     Dim i As Integer, j As Integer
   
3.     Dim arr, brr, k%, x%, y%
   
4.     arr = Range("a1").CurrentRegion
   
5.     ReDim brr(1 To UBound(arr) * UBound(arr, 2) / 2, 0 To 1)
   
6.     For i = 1 To UBound(arr)
   
7.         For j = 1 To UBound(arr, 2)
   
8.             k = k + 1
   
9.             x = Application.RoundUp(k / 2, 0)
   
10.             y = (j + 1) Mod 2
    
11.             brr(x, y) = arr(i, j)
    
12.         Next j
    
13.     Next i
    
14.     Range("a4").Resize(x, 2) = brr
    
15. End Sub

复制代码

见附件示例

fjmxwrs

mokerry 发表于 2012-6-11 21:57
原意是将
11 22 33 44 55 66
77 88 99 00

1. Private Sub CommandButton1_Click()
   
2. Dim arr, brr(), x&, i&
   
3. arr = Range("A1").CurrentRegion
   
4. For x = 1 To UBound(arr)
   
5. For y = 1 To UBound(arr, 2)
   
6. If y Mod 2 Then
   
7. i = i + 1
   
8. ReDim Preserve brr(1 To 2, 1 To i)
   
9. brr(1, i) = arr(x, y)
   
10. Else
    
11. brr(2, i) = arr(x, y)
    
12. End If
    
13. Next y
    
14. Next x
    
15. Columns("H:I").ClearContents
    
16. Range("H1").Resize(UBound(brr, 2), UBound(brr)) = Application.Transpose(brr)
    
17. End Sub

复制代码

请测试
行列转换.rar (10.58 KB, 下载次数: 1)

2012-6-11 22:40 上传

点击文件名下载附件

mokerry

zjcat35 发表于 2012-6-11 22:03
见附件示例

您好，

非常感谢你热心的回复。您的程序我看完还是不会改。我把详细数据 zipFile.zip (7.76 KB, 下载次数: 3)

2012-6-11 22:43 上传

点击文件名下载附件 贴在了附件里，请求你帮个忙，万分感谢！

mokerry

fjmxwrs 发表于 2012-6-11 22:40
请测试

非常感谢您的回复，我头一回接触VBA，麻烦各位了，麻烦你能给解答一下附件的问题吗？十分感谢～ zipFile.zip (7.76 KB, 下载次数: 4)

2012-6-11 22:46 上传

点击文件名下载附件

mokerry

Select 发表于 2012-6-11 22:01
建议用附件；
多几行、实际些的值，好看得明白些。

您好，

详细内容于附件中，本人初识VBA，请你不吝赐教。