EXCEL遍历当前SHEET有效行，统计附值

最新推荐文章于 2024-01-26 09:07:50 发布

原创最新推荐文章于 2024-01-26 09:07:50 发布 · 4.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#excel #string

VBA 专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一段使用VBA编写的程序代码，该代码能够根据特定规则自动生成批处理文件名。具体实现方式为从Excel表格中读取数据，统计特定前缀的JOBID出现次数，并将该数量作为流水号的一部分生成最终的文件名。

原创：牛超
2009-05
OSAKA

自动生成批处理名，规则为JOBID前三位+流水号

如题，放置按钮，遍历行，统计JOBID数，设置结果值

代码如下：

Private Type job
jobid As String
cnt As Integer
End Type

Dim job(100) As job

Private Sub CommandButton1_Click()
Dim strget As String
Dim strret As String
Dim itmp As Integer
Dim i As Integer
Dim flag As Boolean

For mIndex = 1 To ActiveSheet.Cells.Rows.Count
    strget = ActiveSheet.Cells(mIndex, 4)
    If Not Left(strget, 1) = "R" Then
        GoTo con
    End If
    strget = Left(strget, 3)
    flag = False

    For i = 0 To 100
        If Len(job(i).jobid) = 0 Then
            Exit For
        End If
        If strget = job(i).jobid Then
            flag = True
            Exit For
        End If

    Next
    If Not flag Then
        job(i).jobid = strget
        job(i).cnt = 0
    End If

    If strget = job(i).jobid Then
        itmp = job(i).cnt
        itmp = itmp + 1
        job(i).cnt = itmp
        strret = RTrim(LTrim(Str(itmp)))
        strret = "00" + strret
        strret = Right(strret, 2)
        strret = strget + strret + ".bat"
        ActiveSheet.Cells(mIndex, 6) = strret

    End If
con:
Next