字符区间如何拆分

还是疯子

E列里面有一些位置代码，分3种

1、单个位置；
2、使用“~”做为区间；
3、使用“-”做为区间。

请老师帮个忙，如何把第2、3种的区间表示方式全部拆分成为第1种的单个位置，谢谢。

shiruiqiang

正则([A-Z])(\d+)，有2个的话循环(\d+)

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.22
   
2.     With Sheets("Sheet2")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         arr = .[a1].Resize(r, 5)
   
5.         ReDim brr(1 To 10000, 1 To 5)
   
6.         For i = 5 To UBound(arr)
   
7.             st = Replace(arr(i, 5), "~", "-")
   
8.             If InStr(st, "-") = 0 Then
   
9.                 m = m + 1
   
10.                 For j = 1 To UBound(arr, 2)
    
11.                     brr(m, j) = arr(i, j)
    
12.                 Next
    
13.             Else
    
14.                 b = Split(st, "-")
    
15.                 l1 = Val(Mid(b(0), 2))
    
16.                 l2 = Val(Mid(b(1), 2))
    
17.                 tp = Left(b(0), 1)
    
18.                 For x = l1 To l2
    
19.                     m = m + 1
    
20.                     For j = 1 To UBound(arr, 2)
    
21.                         brr(m, j) = arr(i, j)
    
22.                     Next
    
23.                     brr(m, 5) = tp & x
    
24.                 Next
    
25.             End If
    
26.         Next
    
27.         [i2:m10000] = ""
    
28.         [i2].Resize(m, 5) = brr
    
29.         [i2].Resize(m, 5).Borders.LineStyle = 1
    
30.     End With
    
31.     MsgBox "OK！"
    
32. End Sub
    
33. 
    

复制代码

shiruiqiang

数据在表2中

rym9401

PQ 凑个热闹

LIUZHU

这个效果，WPS表格，JSA

LIUZHU

JSA代码写起来挺简单的，效率方面和VBA没有优势

1. function 数据整理(){
   
2.         const arr=Range("a1").CurrentRegion.Value2;
   
3.         let res=arr.slice(1).reduce((res,x)=>{
   
4.                 let marr=x[4].match(/\d+/g), w=x[4].slice(0,1);
   
5.                 let [min,max]=[marr[0],marr[marr.length-1]];
   
6.                 for (let i=min;i<=max;i++){
   
7.                         let temp=[...x];
   
8.                         res.push((temp[4]=w+i,temp));
   
9.                 }
   
10.                 return res;
    
11.         },[arr[0]]);
    
12.         Range("i1").Resize(res.length,res[0].length-1).Value2=res;
    
13. }

复制代码

LIUZHU

附件，请参考，请用WPS软件打开测试JS宏

剑指E