请教用VBA如何将这些数据按次序转成同一栏

MMGA

请教用VBA如何将这些数据按次序转成同一栏

MMGA

数据次序是从左到右,从上到下排列。

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.6.5
   
2.     Application.ScreenUpdating = False
   
3.     arr = Sheets("原来数据").UsedRange
   
4.     ReDim brr(1 To 10000, 1 To 2)
   
5.     m = 1
   
6.     brr(m, 1) = arr(1, 1)
   
7.     For i = 1 To UBound(arr)
   
8.         For j = 2 To UBound(arr, 2) Step 2
   
9.             If arr(i, j) <> Empty Then
   
10.                 m = m + 1
    
11.                 brr(m, 1) = arr(i, j)
    
12.                 brr(m, 2) = arr(i, j + 1)
    
13.             End If
    
14.         Next
    
15.     Next
    
16.     With Sheets("想要的结果")
    
17.         .[e:f] = ""
    
18.         .[e1].Resize(m, 2) = brr
    
19.     End With
    
20.     Application.ScreenUpdating = True
    
21.     MsgBox "OK！"
    
22. End Sub
    

复制代码

MMGA

ykcbf1100 发表于 2024-6-5 13:47
附件供参考。。。

感谢！感谢！不过有些数据会被 >[ ]< ]/ 搞乱了。能修正吗？

ykcbf1100

啥意思？  

longwin

供参考....

MMGA

ykcbf1100 发表于 2024-6-5 14:22
啥意思？

第一栏是数量，第一栏是价格，因为中间有些是>[  // ]<  ]/ 符号，就把某些数量排在了价格栏， 某些价格排在了数量栏，搞乱了。

ykcbf1100

这些字母要删除吗？

MMGA

ykcbf1100 发表于 2024-6-5 14:35
这些字母要删除吗？

不用删除。