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

VBA 专栏收录该内容
3 篇文章 0 订阅

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

大致的思路演进
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实体。例如:

TYPEASCIIHTML
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

如何创建一个注脚

一个具有注脚的文本。1

注释也是必不可少的

Markdown将文本转换为 HTML

KaTeX数学公式

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

Gamma公式展示 Γ ( n ) = ( n − 1 ) ! ∀ n ∈ N \Gamma(n) = (n-1)!\quad\forall n\in\mathbb N Γ(n)=(n1)!nN 是通过欧拉积分

Γ ( z ) = ∫ 0 ∞ t z − 1 e − t d t &ThinSpace; . \Gamma(z) = \int_0^\infty t^{z-1}e^{-t}dt\,. Γ(z)=0tz1etdt.

你可以找到更多关于的信息 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. 注脚的解释 ↩︎

  • 1
    点赞
  • 0
    评论
  • 0
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

参与评论 您还未登录,请先 登录 后发表或查看评论
©️2022 CSDN 皮肤主题:1024 设计师:我叫白小胖 返回首页

打赏作者

Dayin_mao

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值