Excel VBA笔记

原创 2007年09月15日 13:05:00

-- 删除单元格
Range("B2").Select  
Selection.Delete Shift:=xlToLeft

-- 删除行、列
Sheet1.Rows(3).Delete
Sheet1.Columns(3).Delete

-- 删除空行
Dim   irow   As   Integer,  icol   As   Integer  
Dim   iColCount   As   Integer  
Dim   bRowIsEmpty   As   Boolean  
irow   =   1  
iColCount   =   255  
'(需要判断整行是否为空?)假设有效列为iColCount  
bRowIsEmpty   =   True  
For   icol   =   1   To   iColCount  
        If   Len(Cells(irow,   icol).Value)   <>   0   Then  
                bRowIsEmpty   =   False  
                Exit   For  
        End   If  
Next  
'删除行是这样的  
If   bRowIsEmpty   Then   Cells(irow,   irow).EntireRow.Delete 
----------------------------------------------------------------------
Sub DelNullRow
    Dim b,c As Integer
    Dim a As Range
    For b=1 To Range(“b65536”).End(xlUp).Row
        k=0:Set a=Cells(b,1)
       
        '测试该行的连续4个列的值是否为空(用户可按要求指定该数字)
        For c=1 To4
            If Cells(b,c)=”” Then k=k+1
        Next c
       
        '如果该行连续4个单元格的为空,则删除该行
        If k=4 Then
            a.EntireRow.delete shift:=xlUp
        End If
    Next b
End Sub

-- 最大非空单元格行号、列号
ActiveWorkbook.ActiveSheet.UsedRange.Rows.Count'行數  
ActiveWorkbook.ActiveSheet.UsedRange.Columns.Count'列數

Worksheets("Sheet1").Range("A65536").End(xlUp).row

Worksheets("Sheet1").Range("IV2").End(xlToLeft).Column


 

Excel VBA 代码笔记

欢迎使用Markdown编辑器写博客本Markdown编辑器使用StackEdit修改而来,用它写博客,将会带来全新的体验哦: Markdown和扩展Markdown简洁的语法 代码块高亮 图片链接和...

Excel VBA与数据库(Access)整合笔记

  • 2017年06月01日 13:06
  • 218KB
  • 下载

Excel VBA 宏速查笔记

  • 2008年12月09日 23:09
  • 376KB
  • 下载

excel vba真正的动态数组实例-按需定义数组大小

excel vba真正的动态数组实例 一、动态数组的定义   动态数组的定义,一开始不需要给数组标明上界和下界。直接定义即可,如下面的代码:   Dim MyStr() As...
  • lijil168
  • lijil168
  • 2013年09月30日 16:59
  • 36125

Excel VBA学习笔记

  • 2011年05月27日 13:41
  • 757KB
  • 下载

VBA在Excel中的应用(四)

http://www.cnblogs.com/jaxu/archive/2009/07/17/1525571.html 目录  Column  ComboBox  Copy ...

EXCEL vba 实现通过超链接跳转到隐藏工作表 回到目录隐藏打开工作表

最近同事需要如标题描述的这样一个excel功能,有两种实现方式,针对于这一种方式,鄙人进行简单的介绍: 首先要在excel的工具栏中插入开发者工具,笔者使用的是office 2013,以前版...

excel中用当天日期命名工作表名vba

excel 2007 abv
  • dkink
  • dkink
  • 2016年05月30日 20:04
  • 1404

EXCEL利用VBA把汉字转拼音(李晓锋版)

EXCEL利用VBA把汉字转换为拼音,现在网络中广泛传播的代码存在错误, 经过本人严格校对,把修正后的代码分享给大家。   打开Excel后,需要启用宏功能。 使用Alt+F11打开VBA代码编辑窗口...
  • lxf2580
  • lxf2580
  • 2017年01月13日 16:23
  • 2545

Excel VBA - 遍历某个文件夹中文件、文件夹及批量建立txt

我们可能会经常要将一个文件夹中的所有文件都遍历一遍,然后进行修改,下面就介绍用Dir函数实现遍历*.xlsx文件的方法 Dir 函数 返回一个 String,用以表示一个文件名、目录名或文件夹名称...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Excel VBA笔记
举报原因:
原因补充:

(最多只允许输入30个字)