关于按箱位排序出现的问题

LIUZHU

排序的活让JS数组干最合适

1. function 排序(){
   
2.         let arr=Sheets.Item("Sheet1").Range("a1").CurrentRegion.Value2.slice(1);
   
3.         arr.sort((a,b)=>{
   
4.                 let [a1,a2]=a[5].split("-"),[b1,b2]=b[5].split("-");
   
5.                 return a1.localeCompare(b1) || Number(a2)-Number(b2);
   
6.         })
   
7.         arr.unshift(Sheets.Item("Sheet1").Range("a1").CurrentRegion.Value2[0])
   
8.         Sheets.Item("排序结果").Activate();
   
9.         Range("a1").Resize(arr.length,arr[0].length).Value2=arr;
   
10. }

复制代码

LIUZHU

附件在此，请用WPS测试

david_jiao

EHGOOD 发表于 2024-4-23 16:47
加一段插入空行代码。
又发现EXCEL和WPS执行同样代码结果不一样的情况。此宏适在WPS下运行。

谢谢，但是插行后，数据有丢失，麻烦老师再看一下，我用的是EXCEL

EHGOOD

david_jiao 发表于 2024-4-24 10:23
谢谢，但是插行后，数据有丢失，麻烦老师再看一下，我用的是EXCEL

用这个吧，吐槽excel

david_jiao

EHGOOD 发表于 2024-4-24 14:34
用这个吧，吐槽excel

谢谢老师，帮忙看一下，丢一行数据，238行数据丢失
准确的说是排序后，在插空行时导致最后一行数据丢失？

david_jiao

EHGOOD 发表于 2024-4-23 16:47
加一段插入空行代码。
又发现EXCEL和WPS执行同样代码结果不一样的情况。此宏适在WPS下运行。

谢谢！老师的也是排序完成后在插空行时最后一行数据丢失。如何修改代码？谢谢

EHGOOD

david_jiao 发表于 2024-4-24 15:24
谢谢老师，帮忙看一下，丢一行数据，238行数据丢失
准确的说是排序后，在插空行时导致最后一行数据丢失 ...

好的，补上BUG。

david_jiao

EHGOOD 发表于 2024-4-24 17:02
好的，补上BUG。

非常感谢老师的帮助！好好学习！