时隔N年再次拿起VBA-VBA统计某文件夹中的excel表格各sheet页行数

如何插入一段漂亮的代码片

大致的思路演进
1、先找到了读取文件夹中所有文件的函数'Dir' ，和读取 excel 表格已用行数的函数Sheets.UsedRange.Rows.count，后发现该已使用的行出包括excel表格中的空白行；
2、发现Sheets()仅支持编号，所以删除了多余的sheet页，又把需要的五个sheet页按顺序排排好。
3、删除空白行的Workbook.Sheets(n).Rows(m).Delete功能，但是一直失败呢，和下图这样不知道怎么回事，看似删掉了其实还有很多…

4、最后手动删除行并把相关的都注释掉了，啊 VBA还写个毛线呢 _(:з」∠)

// An highlighted block
Sub 统计全集团的用户帐号数量()

    Dim SCM_COUNT, ES_COUNT, EC_COUNT, DL_COUNT, ZJ_COUNT, count, end_row, i, j, k As Long 'scm es ec 代理 专家 用户数量
    Dim filepath$, file$, thisfile As Workbook
    Dim ran As Range
    
    filepath = ThisWorkbook.Path
    filepath = filepath & "\"
    Debug.Print "FILEPATH = " & filepath
    Debug.Print
    
    file = Dir(filepath & "\*.xlsx")
    Debug.Print "FILE = " & file
    Debug.Print
    
    count = 1
    
    Do While file <> ""   '遍历目录下所有的文件
        
'        If file <> ThisWorkbook.Name Then
            '激活当前文件
            Set thisfile = Workbooks.Open(filepath & file)
            '打开一个文件 删除空白行
'            Debug.Print "打开thisfile = " & file & "准备删除空白行"
            'Debug.Print
            '遍历五个sheet页
'            For i = 1 To 5 Step 1
'                thisfile.Sheets(i).Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
'                k = 1
'                Set ran = thisfile.Sheets(i).UsedRange
'                endrow = ran.Row - 1 + ran.Rows.count
'                '关闭屏幕刷新
'                Application.ScreenUpdating = False
'                '删除当前sheet页的空白行
'                For j = endrow To 1 Step -1
'                    If Application.WorksheetFunction.CountA(ran.Rows(j)) = 0 Then
'                        ran.Rows(j).Delete
'                        k = k + 1
'                    Else
'                        Exit For
'                    End If
'                Next
'                '打开屏幕刷新
'                Application.ScreenUpdating = True
'                Debug.Print "删除第 " & i & " 个 sheet页 共计 " & k & " 行空白格"
'                Debug.Print
'            Next
'            Debug.Print "完成文件thisfile = " & file & " 的空白格删除"
'            Debug.Print
            
            '找到SCM\ES\EC\代理\专家的用户数量，相应sheet表格里面已用的行数
            SCM_COUNT = thisfile.Sheets(1).UsedRange.Rows.count
            ES_COUNT = thisfile.Sheets(2).UsedRange.Rows.count
            EC_COUNT = thisfile.Sheets(3).UsedRange.Rows.count
            DL_COUNT = thisfile.Sheets(4).UsedRange.Rows.count
            ZJ_COUNT = thisfile.Sheets(5).UsedRange.Rows.count
        
            Debug.Print "第 " & count & " 个文件：|" & file & "| SCM用户: |" & SCM_COUNT - 1 & "|       ES用户数: |" & ES_COUNT - 1 & "|      EC用户数: |" & EC_COUNT - 1 & "|      代理用户数: |" & DL_COUNT - 1 & "|      专家用户数: |" & ZJ_COUNT - 1 & "|."
            Debug.Print
        
            thisfile.Close
'        End If
        
        count = count + 1    '文件数加1
        file = Dir           '读取下一个文件
    Loop
End Sub

生成一个适合你的列表

• 项目
  • 项目
    • 项目

1. 项目1
2. 项目2
3. 项目3

• 计划任务
• 完成任务

创建一个表格

一个简单的表格是这么创建的：

项目	Value
电脑	$1600
手机	$12
导管	$1

设定内容居中、居左、居右

使用:---------:居中
使用:----------居左
使用----------:居右

第一列	第二列	第三列
第一列文本居中	第二列文本居右	第三列文本居左

SmartyPants

SmartyPants将ASCII标点字符转换为“智能”印刷标点HTML实体。例如：

TYPE	ASCII	HTML
Single backticks	'Isn't this fun?'	‘Isn’t this fun?’
Quotes	"Isn't this fun?"	“Isn’t this fun?”
Dashes	-- is en-dash, --- is em-dash	– is en-dash, — is em-dash

创建一个自定义列表

Markdown

Text-to- HTML conversion tool

Authors

John

Luke

如何创建一个注脚

一个具有注脚的文本。¹

注释也是必不可少的

Markdown将文本转换为 HTML。

KaTeX数学公式

您可以使用渲染LaTeX数学表达式 KaTeX:

Gamma公式展示 $\Gamma (n)=(n-1)!\forall n\in \mathbb{N}$ 是通过欧拉积分

$$\Gamma (z)={\int }_0^{\infty }{t}^{z-1}{e}^{-t}dt.$$

你可以找到更多关于的信息 LaTeX 数学表达式here.

新的甘特图功能，丰富你的文章

Mon 06 Mon 13 Mon 20 已完成 进行中 计划一 计划二 现有任务 Adding GANTT diagram functionality to mermaid

• 关于 甘特图 语法，参考 这儿,

UML 图表

可以使用UML图表进行渲染。 Mermaid. 例如下面产生的一个序列图：:

张三 李四 王五 你好！李四, 最近怎么样? 你最近怎么样，王五？ 我很好，谢谢! 我很好，谢谢! 李四想了很长时间, 文字太长了 不适合放在一行. 打量着王五... 很好... 王五, 你怎么样? 张三 李四 王五

这将产生一个流程图。:

链接

长方形

圆

圆角长方形

菱形

• 关于 Mermaid 语法，参考 这儿,

FLowchart流程图

我们依旧会支持flowchart的流程图：

Created with Raphaël 2.2.0 开始 我的操作 确认？ 结束 yes no

• 关于 Flowchart流程图 语法，参考 这儿.

导出与导入

导出

如果你想尝试使用此编辑器, 你可以在此篇文章任意编辑。当你完成了一篇文章的写作, 在上方工具栏找到 文章导出 ，生成一个.md文件或者.html文件进行本地保存。

导入

如果你想加载一篇你写过的.md文件或者.html文件，在上方工具栏可以选择导入功能进行对应扩展名的文件导入，
继续你的创作。

---

1. 注脚的解释 ↩︎