当A列出现A1，A10,A19的数值（没固定的顺序），就自动填写到B列对应左边的数字

ZHANG88888888

ruirui5015

最好上表，你这图也没a1,A10,a19啊

ZHANG88888888

ruirui5015 发表于 2022-6-15 14:23
最好上表，你这图也没a1,A10,a19啊

意思是A列中的,A1单元格，A10，A19，单元格，表达不清楚不好意思。

ZHANG88888888

当A列出现A1，A10,A19的单元格的数值（没固定的顺序），就自动填写到B列对应左边的数字

紫色海水

1. var c = ActiveSheet.Cells;
   
2. var r = c.Item(65536,1).End(3).Row;
   
3. var str = ""
   
4. for(var i=1;i<=r;i++){
   
5.         var s = c.Item(i,1).Value2;
   
6.         if(s.match(/\w+\-\w+\-\w+/) !== null) {
   
7.                 str = s;
   
8.                 c.Item(i,2).Value2 = "" }else{
   
9.                 c.Item(i,2).Value2 = str
   
10.         }
    
11. }

复制代码

紫色海水

代码在审核

ZHANG88888888

紫色海水 发表于 2022-6-15 17:50
代码在审核

不行啊，我一个个字敲进去试验过了

zpy2

create temp table aa as  select *,iif(regexp('\w-\w-\w+',字符串),字符串,'') 字符串二 from 正则表达式返回每组前缀字符串; create temp table bb as  select 字符串,fillna(字符串二) 字符串二 from aa; select 字符串,iif(字符串=字符串二,'',字符串二) 字符串二 from bb;

紫色海水

ZHANG88888888 发表于 2022-6-15 18:21
不行啊，我一个个字敲进去试验过了

先看一下你的版本支持VBA还是JSA？
我给的是JSA

lyfegf

1. function test(){
   
2.     var r = Cells(Cells.Rows.Count,1).End(xlUp).Row
   
3.     var arr = Range("a1:a"+r).Value2
   
4.     var key
   
5.     var arrjg = arr.map(x=>{
   
6.     if (x[0].match(/\w+-\w+-\w+/g) == null){
   
7.         return [key]
   
8.     }else{
   
9.         key=x[0]
   
10.         return [""]
    
11.     }
    
12.     })
    
13.     Range("B1").Resize(arrjg.length,arrjg[0].length).Value2=arrjg
    
14. }

复制代码