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

LIUZHU

MMGA 发表于 2024-6-5 14:58
没有找到你的VBA宏， 能发一下吗？

JSA，只适用于WPS表格，Excel不行

EHGOOD

参考附件。

ykcbf1100

MMGA 发表于 2024-6-5 15:09
两组数据，一组是数量，一组是价格。你的VBA跑出的有些数量放在了价格栏，有些价格放在了数量栏。方便的 ...

你这个得先清洗数据，然后再提取数据，不然，肯定乱行。

MMGA

ykcbf1100 发表于 2024-6-5 15:34
你这个得先清洗数据，然后再提取数据，不然，肯定乱行。

那把全部符号清除了，再提数据，能帮做一个吗？感谢！

MMGA

EHGOOD 发表于 2024-6-5 15:31
参考附件。

宏......................VBA呢？

ykcbf1100

MMGA 发表于 2024-6-5 15:38
那把全部符号清除了，再提数据，能帮做一个吗？感谢！

那就这样了。。。

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.     For i = 1 To UBound(arr)
   
6.         For j = 1 To UBound(arr, 2) Step 2
   
7.             If arr(i, j) <> Empty Then
   
8.                 m = m + 1
   
9.                 brr(m, 1) = arr(i, j)
   
10.                 brr(m, 2) = arr(i, j + 1)
    
11.             End If
    
12.         Next
    
13.     Next
    
14.     With Sheets("想要的结果")
    
15.         .[e:f] = ""
    
16.         .[e1].Resize(m, 2) = brr
    
17.     End With
    
18.     Application.ScreenUpdating = True
    
19.     MsgBox "OK！"
    
20. End Sub
    

复制代码

MMGA

ykcbf1100 发表于 2024-6-5 15:49
参与一下。。。

感谢！感谢！感谢！

MMGA

LIUZHU 发表于 2024-6-5 14:47
JSA代码

感谢！感谢！感谢！

MMGA

EHGOOD 发表于 2024-6-5 15:31
参考附件。

感谢！感谢！感谢！找到了你的VBA