想转换数据的格式，想不到思路

saoxu

我想把其它部门提供给我的数据转换便利查询汇总和的格式，但是我自己感觉原始数据好像有点规律又不太规范，而且我没有办法改变他的提供，求老师看能不能完成一键改变。

小花鹿

这不很有规律吗，每4列一组数据，每组数据从6到24行

saoxu

是呀，感觉就有这规律，但是不懂怎么转换，麻烦小花鹿帮我

saoxu

但是还有一个可能他变成25行26行也说不定，只是暂时经常24行

saoxu

想了想，还有一个问题呀，肥料ABC是我取的名字，他不是这个名字的，有时这顺序不同，所以保险还要考虑这四列一组上面的名字也引用。

qingc0221

应该是这样吧

转换.7z (11.06 KB, 下载次数: 2)

2017-5-19 00:57 上传

点击文件名下载附件

yeminqiang

1. Sub cdsr()
   
2.     Dim arr, brr(1 To 65535, 1 To 4)
   
3.     arr = Sheet1.UsedRange
   
4.     For j = 1 To UBound(arr, 2) Step 4
   
5.         For i = 5 To UBound(arr) - 1
   
6.                 k = k + 1
   
7.                 brr(k, 1) = arr(3, j + 1)
   
8.                 brr(k, 2) = arr(i, j)
   
9.                 brr(k, 3) = arr(i, j + 1)
   
10.         Next
    
11.     Next
    
12.     Sheet2.[g2:j65535] = ""
    
13.     Sheet2.[g2].Resize(k, 4) = brr
    
14. End Sub
    

复制代码

yeminqiang

转换.rar (12.52 KB, 下载次数: 4)

2017-5-19 08:33 上传

点击文件名下载附件

saoxu

谢谢yeminqiang，就是需要这样。只能又直接白拿劳动成果了。请问一下，For j = 1 To UBound(arr, 2) Step 4这一句中，设定J是一个1到一个数组中步长为4的数值，ARR是已使用区域，那么UBound(arr, 2) 又是什么意思呢

philijian

是arr的列数