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 宏速查笔记

  • 2008-12-09 23:09
  • 376KB
  • 下载

VB热身:走进VBA&Excel高级应用

几个vb小程序在给大家讲Excel宏之前,让我们通过几个VB小例子来了解一下VB这门语言吧: 首先说明,VB编程是基于控件的,也就是你要先从左边控件窗口拖一个控件到窗口中去,然后双击控件进行编程。...

Excel VBA学习笔记

  • 2011-05-27 13:41
  • 757KB
  • 下载

使用VBA开发EXCEL通用功能 --办公大师系列经典丛书(试读章节)

一般来说,一个通用功能是用于EXCEL的加强,添加实用功能或使现有功能更加容易使用。EXCEL通用功能不是类似季度报表的成品,更确切地说,它是一个帮你制做成品的工具。一个EXCEL通用功能(几乎总)是...

Excel VBA利用Transform函数+SQL交叉汇总数据

一、VBA中transform函数基本语法:Creates a crosstab query. Syntax TRANSFORM aggfunction selectstatement PIVOT p...

Excel VBA On Error Resume Next错误处理

原始代码 Sub test() Dim arr() As String '定义动态数组 Dim n As Long Dim c As ...

Excel VBA开发中数字签名的管理

Excel 禁用无数字签署的宏网上下载的Excel文件可能含有宏病毒,因此打开Excel文件时最好不要轻易启动宏,同时为了不让“启动宏”的提示每次出现,可以在Excel设置中提高安全程度: 【文件】...

Excel VBA - Range对象

Rows.Count    显示所有行的数目 Columns.Count    显示所有列的数目 Cells(Rows.Count, 1).End(xlUp).Row    显示第一列从下面数第一...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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