要求订单号列的订单，重量列相加不超过规定值就把订单号后面加1，2

mr.xia

感谢Excel学徒123给的代码，但是目前订单量猛增，订单特别多，能否自动识别订单号将重量相加而不用ubound(arr)参数取下标呢？
原始问题连接http://www.excelpx.com/thread-424219-1-1.html

苏子龙

等Excel学徒123老师来解答吧，还有想合并单元格怎么处理，最好都说清楚的好

mr.xia

苏子龙 发表于 2016-9-12 15:24
等Excel学徒123老师来解答吧，还有想合并单元格怎么处理，最好都说清楚的好

合并单元格的要取消合并， Cells(i , 1).MergeArea.Count 得到行数再Cells(i, 1).Resize(n).UnMerge，然后循环填充，我是这么干的，不知道有没有好的办法

gufengaoyue

mr.xia 发表于 2016-9-12 15:36
合并单元格的要取消合并， Cells(i , 1).MergeArea.Count 得到行数再Cells(i, 1).Resize(n).UnMerge，然后 ...

取消合并单元格 供参考
其它的没明白是什么意思...

1. Sub 取消合并单元格()
   
2. Dim arr, a%
   
3. arr = ActiveSheet.UsedRange
   
4. For a = 2 To UBound(arr)
   
5.     If arr(a, 1) = "" Then arr(a, 1) = arr(a - 1, 1)
   
6. Next
   
7.     Columns("A:A").UnMerge
   
8. With [a1].Resize(UBound(arr))
   
9.     .NumberFormatLocal = "@"
   
10.     .Value = Application.Index(arr, 0, 1)
    
11. End With
    
12. End Sub

复制代码