如何让转换后的文本保持跟转换前的内容顺序不变

Jaofuan

lsc900707 发表于 2019-6-13 19:47
左边是代码结果，右边是原表内容，哪里顺序不对？
运动鞋        UTOP-9-01-36                运动鞋     ...

版主点的是我的附件，达不到楼主的要求，楼主要求编码重复数量累加

lsc900707

Jaofuan 发表于 2019-6-14 09:09
版主点的是我的附件，达不到楼主的要求，楼主要求编码重复数量累加

不是的，这是楼主上一个帖子我写的代码运行后的结果，他说品名排列变了。

xiao-wu1987

lsc900707 发表于 2019-6-13 19:47
左边是代码结果，右边是原表内容，哪里顺序不对？
运动鞋        UTOP-9-01-36                运动鞋     ...

右边的没有把相同的合并成一行

lsc900707

xiao-wu1987 发表于 2019-6-17 12:00
右边的没有把相同的合并成一行

原来是这样，怪我理解能力有限哈！

lsc900707

xiao-wu1987 发表于 2019-6-17 12:00
右边的没有把相同的合并成一行

1. Sub gj23w98()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = [a12].CurrentRegion
   
4.     ReDim brr(1 To UBound(arr), 1 To 5)
   
5.     For i = 2 To UBound(arr)
   
6.         s = arr(i, 3)
   
7.         If Not d.exists(s) Then
   
8.             m = m + 1
   
9.             d(s) = m
   
10.             For j = 1 To 4
    
11.                 brr(m, j) = arr(i, j)
    
12.             Next
    
13.             brr(m, 5) = arr(i, 6)
    
14.         Else
    
15.             brr(d(s), 4) = brr(d(s), 4) + arr(i, 4)
    
16.         End If
    
17.     Next
    
18.     With Sheets(2)
    
19.         If m Then
    
20.             .[a12].CurrentRegion.Offset(1).Clear
    
21.             .[a13].Resize(m, 5) = brr
    
22.             .[a13].Resize(m, 5).Borders.LineStyle = 1
    
23.             .[a13].Resize(m, 5).HorizontalAlignment = xlCenter
    
24.             .[a13].Resize(m, 5).VerticalAlignment = xlCenter
    
25.         End If
    
26.         Application.DisplayAlerts = False
    
27.         r = .Cells(.Rows.Count, 1).End(3).Row
    
28.         For i = r - 1 To 13 Step -1
    
29.             If .Cells(i, 1) = .Cells(i + 1, 1) Then .Range(.Cells(i, 1), .Cells(i + 1, 1)).Merge
    
30.         Next
    
31.         Application.DisplayAlerts = True
    
32.     End With
    
33. End Sub

复制代码

lsc900707

xiao-wu1987 发表于 2019-6-17 12:00
右边的没有把相同的合并成一行

修改过的代码在审核中，先测试参考附件吧：

lsdongjh

唉，楼主的基础知识缺乏，而且很多东西没解释清楚：
    1、箱号可能为空，要处理；
    2、箱号可能是乱序的；
    3、箱号、品名、存货编码相同的，数量要合并

在现有条件下，虽然用字典可以实现，但相对繁琐
氢建议楼主用ＡＤＯ＋ＳＱＬ，示例中的代码就是我给的

要实现顺序不变的前提是要标记出原有顺序，建议楼主在原有数据的前方箱号前加一列“序号”

lsdongjh

xiao-wu1987

lsc900707 发表于 2019-6-17 12:10
原来是这样，怪我理解能力有限哈！

不不不，是我没表达清楚，哈哈，感谢你的帮助

xiao-wu1987

Jaofuan 发表于 2019-6-14 09:09
版主点的是我的附件，达不到楼主的要求，楼主要求编码重复数量累加

感谢你的帮助，