求助大佬帮忙写一个代码，内容+1

540437111

ykcbf1100

参与一下。。。

gwjkkkkk

参与一下。。。

过客fppt

Option Explicit
Private Sub CommandButton1_Click()
    Dim s As String, Qz, Index, L, B0
    Dim Sj As Double
    Dim arr(), regex, matches, brr()
    Dim i, j
    Dim r As Range
   
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "\d+"
    regex.Global = True
    s = Cells(2, 8).Value
   
    Set matches = regex.Execute(s)
    Index = matches(0).firstindex
    L = matches(0).Length
    Qz = Left(s, Index)
    Sj = Mid(s, Index + 1, L)
   
    Dim Jc As Long, SL As Long
    SL = Cells(2, 9).Value
    Jc = Cells(2, 10).Value
    ReDim arr(0 To SL)
    ReDim brr(0 To SL)
    For i = Sj To Sj + Jc * SL Step Jc
        arr(j) = i
        j = j + 1
    Next
   
    For i = 1 To Len(s) - (Len(Qz) + Len(arr(0)))
        B0 = B0 & "0"
    Next i
    j = 0
    For Each i In arr
        brr(j) = Qz & B0 & i
        j = j + 1
    Next
    j = 0
    For Each r In Range("b2").Resize(SL + 1, 1)
        r = brr(j)
        j = j + 1
    Next
End Sub

过客fppt

gwjkkkkk 发表于 2024-1-9 20:32
参与一下。。。

老师写的代码好精简，我没有想到直接一步输出为数组，写得太复杂了
不过也希望楼主注意，如果英文之后有一大堆零，会有错误

过客fppt

ykcbf1100 发表于 2024-1-9 20:26
参与一下。。。

ykcbf1100老师的代码更厉害，原来还可以用Format设置格式使数字前面多个零的处理变得更加的简单

sunya_0529

JSA练习一下——

zpy2

select * from 内容加一 limit 20;
with recursive cnt as (
select  1 序号,regexp2('([A-Z]+0+)(\d+)',起始内容,1) prefix,regexp2('([A-Z]+0+)(\d+)',起始内容,2) num,起始内容 号码 from 内容加一
union all
select 序号+1,prefix,num+1,prefix||(num+1) from cnt limit 20)
select 序号,号码 from cnt;

saghj

学习学习。。。