VBA即用型代码手册:删除空列Delete Empty Columns

我给VBA下的定义:VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率,而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。

作为我的学员要利用我的积木编程思想,积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木,同时讲解了如何搭建。为了让学员拥有更多的积木,我开始着手这部VBA即用型代码手册(汉英)》的创作这部手册约600页,集合约500多个的案例,案例我用汉语和英语同时发布,一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识,另一方面,大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是: VBA即用型代码手册:删除空列Delete Empty Columnsd182090ddc2476f1c445504a10d4eb0f.jpeg

分享成果,随喜正能量】烦恼本无根,不捡自然无。外面没有别人,只有你自己,一切烦恼都源于内耗。与其在内耗中耗费时间,不如用行动来提升自我,成就强大的人生。。

第四章 工作表代码

Worksheet Codes

19 删除空列Delete Empty Columns

此宏将删除完全为空的列。这意味着,如果整个列中没有数据,则将删除该数据。此宏适用于 Excel 电子表格中的选定单元格。这意味着您必须选择单元格,然后运行宏才能执行任何操作。

Sub mynzDelete_Empty_Columns()

first = Selection.Column

last = Selection.Columns(Selection.Columns.Count).Column

For i = last To first Step -1

If WorksheetFunction.CountBlank(ActiveSheet.Columns(i)) = 1048576 Then '低版本为65536

Columns(i).Delete

End If

Next i

End Sub

5dd755ca3bf2eb6f366d126f0ac25cbb.jpeg

  • 本节内容参考程序文件:Chapter04-2.xlsm

f5a1edaa69455ef5ce7173449dc4ce80.jpeg

我20多年的VBA实践经验,全部浓缩在下面的各个教程中:

1766ad9e44e0b09d5630e0edb56cecaa.jpeg


相关推荐

  1. VBA删除Excel工作表空白单元格、行和

    2024-06-12 07:10:03       35 阅读
  2. 代码文档?

    2024-06-12 07:10:03       45 阅读
  3. EXCEL VBA判断重复

    2024-06-12 07:10:03       60 阅读

最近更新

  1. docker php8.1+nginx base 镜像 dockerfile 配置

    2024-06-12 07:10:03       94 阅读
  2. Could not load dynamic library ‘cudart64_100.dll‘

    2024-06-12 07:10:03       101 阅读
  3. 在Django里面运行非项目文件

    2024-06-12 07:10:03       82 阅读
  4. Python语言-面向对象

    2024-06-12 07:10:03       91 阅读

热门阅读

  1. 代码随想录算法训练营第二十五天

    2024-06-12 07:10:03       39 阅读
  2. unity text根据文本内容自动设置高度

    2024-06-12 07:10:03       35 阅读
  3. 【镜像制作】node.js+pm2的latest版镜像制作

    2024-06-12 07:10:03       32 阅读
  4. 快人一步!利用LLM实现数据处理自动化

    2024-06-12 07:10:03       32 阅读
  5. 特别名词Text Paper4

    2024-06-12 07:10:03       26 阅读
  6. ioctlsocket

    2024-06-12 07:10:03       30 阅读
  7. 密码加密存储

    2024-06-12 07:10:03       29 阅读
  8. 如何用css实现两列布局?

    2024-06-12 07:10:03       33 阅读