精华内容
下载资源
问答
  • vba 删除指定range

    千次阅读 2011-04-07 20:16:00
     Sub DeleteCellRowColumn()  '删除活动单元格,下方单元格上移  ActiveCell.Delete Shift:=xlUp  '删除选定的区域,右方单元格左移  Selection.Delete Shift:=xlToLeft  ' ...

      Sub DeleteCellRowColumn()
        '删除活动单元格,下方单元格上移
        ActiveCell.Delete Shift:=xlUp
        '删除选定的区域,右方单元格左移
        Selection.Delete Shift:=xlToLeft
        ' 删除行或列
        Range("B2").Select
        Selection.EntireRow.Delete
        Range("F2").Select
        Selection.EntireColumn.Delete
        End Sub

     

     

    删除方法:
    Range("A7:G7").Delete Shift:=xlUp
    Range("A7:G7")是要删除的区域;若行号以变量Row表示,则写成Range("A"&Row&":G"&Row 。
    xlUp表示删除指定区域后下方单元格上移。
    给你介绍一个获取vba编码的一个小方法,就是采用excel的录制宏的功能。依次选择 工具-宏-录制新宏,这个时候就出现一个小图标,不要关闭他,在excel的sheet上面进行你想要进行的操作,操作完毕后,点击那个小图标上的停止录制按钮。然后再依次选择工具-宏-宏-选择刚才的宏的名字,然后点击编辑按钮,就可以看到你刚才所做操作的所有的vba代码,你可以对你的程序进行参考。

     

     

     

    展开全文
  • 在一个数据表,任意选定区域 ,判断单元格内的值,如果等于指定值,不做任何操作,如果不等于指定的值,则把单元格所在的列删除,请教VBA如何实现。
  • VBA删除空行和空列

    千次阅读 2009-04-10 09:02:00
    在Excel中删除空行和空列的方法有很多,下面的方法是用VBA代码来删除工作表指定区域中的空行和空列:Option Explicit Sub Delete_Empty_Rows() Dim rnArea As Range Dim lnLastRow As Long, i As Long, j As Long...

    在Excel中删除空行和空列的方法有很多,下面的方法是用VBA代码来删除工作表指定区域中的空行和空列:

    Option Explicit
     
    Sub Delete_Empty_Rows()
       Dim rnArea As Range
       Dim lnLastRow As Long, i As Long, j As Long
     
       Application.ScreenUpdating = False
       lnLastRow = Selection.Rows.Count
       Set rnArea = Selection
     
       j = 0
     
       For i = lnLastRow To 1 Step -1
          If Application.CountA(rnArea.Rows(i)) = 0 Then
             rnArea.Rows(i).Delete
             j = j + 1
          End If
       Next i
     
       rnArea.Resize(lnLastRow - j).Select
     
       Application.ScreenUpdating = True
    End Sub
     
    Sub Delete_Empty_Columns()
       Dim lnLastColumn As Long, i As Long, j As Long
       Dim rnArea As Range
     
       Application.ScreenUpdating = False
       lnLastColumn = Selection.Columns.Count
       Set rnArea = Selection
     
       j = 0
     
       For i = lnLastColumn To 1 Step -1
          If Application.CountA(rnArea.Columns(i)) = 0 Then
             rnArea.Columns(i).Delete
             j = j + 1
          End If
       Next i
     
       rnArea.Resize(, lnLastColumn - j).Select
     
       Application.ScreenUpdating = False
    End Sub

        在运行代码前,先选择需要删除空行和空列的区域。如果要删除空行,则运行Delete_Empty_Rows(),指定区域中的空行将被删除。注意所谓空行是在指定区域中的,如果在指定区域内是空行,而在指定区域外不是空行,那么这些空行还是将会被删除。删除空列则运行Delete_Empty_Columns()。

    展开全文
  • 分享成果,随喜真能量。大家好,今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码,这些内容大多是取至我编写的“VBA代码解决... 161:利用VBA代码,如何删除指定的文件VBA过程代码159:用InputBox方法获...

    9510a780cd29d14b840f1698b6cd877f.png

    分享成果,随喜真能量。大家好,今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码,这些内容大多是取至我编写的“VBA代码解决方案”教程中内容。NO.159-NO.161内容是:

    NO. 159:用InputBox方法获得所选单元格区域地址

    NO. 160:VBA中调用内置对话框,完成人机对话的方案

    NO. 161:利用VBA代码,如何删除指定的文件

    06209975d1b86e4a6a542d390efd4671.png

    VBA过程代码159:用InputBox方法获得所选单元格区域地址

    Sub mynz ()

    Dim rng As Range

    Sheets("42").Select

    On Error GoTo 100

    Set rng = Application.InputBox("请使用鼠标选择单元格区域:", Type:=8)

    rng.Interior.ColorIndex = 6

    100:

    End Sub

    代码的解析说明:mynz过程使用InputBox方法显示一个对话框,提示用户在工作表中选择一个单元格区域,并改变所选单元格区域内部的颜色。运行过程,将显示一个对话框,提示用户在工作表中选择一个单元格区域,并用Interior.ColorIndex改变所选单元格区域内部的颜色。Interior.ColorIndex方法用到的颜色代码在我之前的文章中详细的介绍过,有兴趣的朋友可以回头看看。

    8794739d480c40f11f723bc85f24ca1a.png

    VBA过程代码160:VBA中调用内置对话框,完成人机对话的方案

    Sub mynz ()

    Application.Dialogs(xlDialogOpen).Show

    End Sub

    代码的解析说明:mynz过程显示内置的“打开”对话框并选定示例所在的文件夹。

    -----------------------------------------------------------------------------------------------

    f400f16ddfb72fdf0108172692a9a087.png

    VBA过程代码161:利用VBA代码,如何删除指定的文件

    Sub mynz ()

    Dim Filename As Variant

    Dim mymsg As Integer

    Dim i As Integer

    Filename = Application.GetOpenFilename(Title:="删除文件", MultiSelect:=True)

    If IsArray(Filename) Then

    mymsg = MsgBox("是否删除你所选文件?", vbYesNo, "提示")

    If mymsg = vbYes Then

    For i = 1 To UBound(Filename)

    Kill Filename(i)

    Next

    End If

    End If

    End Sub

    代码的解析说明:mynz过程使用GetOpenFilename方法显示标准的内置“打开”对话框,获取用户选定文件的文件名后使用Kill语句删除。运行mynz过程,显示标准的内置“打开”对话框,删除用户选定的文件.

    VBA实现自己小型办公自动化的有效手段,我根据自己20多年的VBA实际利用经验,现推出了四部VBA教程,这些是我多年编程经验的记录,也是我“积木编程”思想的体现。每一讲都是较大块的“积木”,可以独立的完成某些或者某类的过程,有需要的朋友可以联络(WeChat:NZ9668)分享。利用这些可以提高自己的编程效率。其一:“VBA代码解决方案”PDF教程,是VBA中各个知识点的讲解,覆盖了绝大多数的知识点,是初学及中级以下人员必备;其二“VBA数据库解决方案”PDF教程,数据库是数据处理的利器,对于中级人员应该掌握这个内容了。其三“VBA数组与字典解决方案”PDF教程,讲解VBA的精华----字典,是我们打开思路,提高代码水平的必备。其四“VBA代码解决方案”视频教程。目前正在录制,“每天20分钟,半年精进VBA”,越早参与,回馈越多。现在录制到第二册的92讲。

    展开全文
  • 今天我们内容主要通过讲解'Range....▼Range.EntireRow属性▼1、Range.EntireRow 属性:返回一个 Range 对象,该对象表示包含指定区域的整行(或多行)。2、表达式.EntireRow:一个代表 Range 对象的变量。▼Range.En...
    ce9a0c328a981b520abea9bb0844628a.png

    今天我们内容主要通过讲解'Range.EntireRow(返回行),Range.EntireColumn(返回列)两个属性,定位单元格具体位置,并根据位置删除所在区域。

    ▼Range.EntireRow属性▼

    1、Range.EntireRow 属性:返回一个 Range 对象,该对象表示包含指定区域的整行(或多行)。

    2、表达式.EntireRow:一个代表 Range 对象的变量。

    ▼Range.EntireColumn▼

    1、Range.EntireColumn 属性:返回一个 Range 对象,该对象表示包含指定区域的整列(或多列)

    2、表达式.EntireColumn:一个代表 Range 对象的变量。

    ▼属性介绍▼

    44a6f8326cff2a7273dcde14fd3d573a.png

    代码介绍:

    Sub test()

    [a1].EntireRow.Select ‘ 选择A1单元格所在的整行

    [a1].EntireColumn.Select ’选择A1单元格所在的整列

    [a1:a4].EntireRow.Select '选择A1:A4单元格所在的行

    [a1:d1].EntireColumn.Select ‘选择A1:D1单元格所在的列

    End Sub

    注意:返回是单行单列还是多行多列,取决于前面单元格所在的位置

    ▼案例介绍:删除区域内的空行▼

    51a2024fe9d1cd81dbf567953150a7fb.gif

    代码介绍:

    Sub test1()

    Dim rng As Range, ads As String

    For Each rng In [a1:a10]

    If rng = "" Then ad = ad & rng.Address &

    展开全文
  • VBA之EXCEL删除和设置单元格行高等

    千次阅读 2012-01-04 22:29:34
    ‘删除Sheet1上的单元格区域A1:D10,并将其余单元格左移以填补被删除单元格的位置 ...‘删除指定行 Range(“1:1”).Delete   ‘删除指定列 Columns(5).Delete   ‘删除当前行 ActiveCell.EntireRow.Delete
  • 在EXCEL中对特殊单元格区域赋予不同的名称,这在指定组的范围或编辑表格等是显得非常有用。在VBA中也可以给单元格区域定义不同名称以达到某种便利。取名以及用所取名称引用单元格时可以使用Name对象。工作簿中包含的...
  • VBA中没有专门的属性或函数可以判断工作表是否为空白工作表,可以使用自定义函数返回指定工作表是否为空工作表知识点一:利用工作表函数CountA统计工作表已使用区域的非空单元格个数:COUNTA函数功能是返回参数列表...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧18 重新计算工作表指定区域 12 技巧19 录入数据后单元格自动保护 12 技巧20 工作表事件Target参数的使用方法 12 20-1 使用单元格的Address 属性 12 20-2 使用Column属性和Row属性 12 20-3 使用Intersect方法 12 ...
  • VBA中没有专门的属性或函数可以判断工作表是否为空白工作表,可以使用自定义函数返回指定工作表是否为空工作表知识点一:利用工作表函数CountA统计工作表已使用区域的非空单元格个数:COUNTA函数功能是返回参数列表...
  • VBA与数据库

    2015-11-19 18:07:38
    •实例9-10 删除工作表数据区域内的所有空行 200 •实例10-2 利用DAO导入文本文件的全部内容 202 •实例10-3 利用ADO导入文本文件的部分内容 203 •实例10-4 利用DAO导入文本文件的部分内容 204 •实例10-5 利用ADO...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧18 重新计算工作表指定区域 60 技巧19 录入数据后单元格自动保护 60 技巧20 工作表事件Target参数的使用方法 62 20-1 使用单元格的Address 属性 62 20-2 使用Column属性和Row属性 63 20-3 使用Intersect方法 63 ...
  • EXCEL VBA常用技巧

    2010-02-09 22:28:27
    技巧18 重新计算工作表指定区域 53 技巧19 录入数据后单元格自动保护 53 技巧20 工作表事件Target参数的使用方法 55 20-1 使用单元格的Address 属性 55 20-2 使用Column属性和Row属性 56 20-3 使用Intersect方法 56
  • CAD_VBA开发手册

    热门讨论 2008-12-06 17:57:59
    删除对象 比例缩放对象 转换对象 延伸和修剪对象 分解对象 编辑多段线 编辑样条曲线 编辑阴影 使用图层、颜色和线型 使用图层 使用颜色 使用线型 分配图层、颜色和线型给对象 添加文本到图形中 处理...
  • Excel VBA实用技巧大全 附书源码

    热门讨论 2010-10-08 18:59:24
    04026利用Resize属性引用变更为指定大小的单元格区域 04027引用不包括标题行的单元格区域 04028引用不包括标题列的单元格区域 04029引用任意单元格区域的右下角单元格(之一) 04030引用任意单元格区域的右下角...
  • RemoveDuplicates后边...其中Columns参数指定删除重复项的列,如果是1的话,那么第一列中重复项所在行都会被删除,如果是2则只有1,2两列均重复的行才会被删除,以此类推,你的区域12列,那么只有12列均重复的行...
  • Excel VBA与数据库整合应用范例精讲

    热门讨论 2011-10-29 18:48:38
    实例9-10 删除工作表数据区域内的所有空行 第10章 将文本文件当作数据库来操作 实例10-1 利用ADO导入文本文件的全部内容 实例10-2 利用DAO导入文本文件的全部内容 实例10-3 利用ADO导入文本文件的部分内容 实例...
  • 中文版Excel.2007高级VBA编程宝典 1/2

    热门讨论 2012-04-06 16:00:16
     10.9.1 指定函数类别  10.9.2 添加函数说明  10.10 使用加载宏存储自定义的函数  10.11 使用Windows API  10.11.1 Windows API示例  10.11.2 确定Windows目录  10.11.3 检测Shift键  10.11.4 了解更多有关...
  • 中文版Excel.2007高级VBA编程宝典 2/2

    热门讨论 2012-04-06 16:41:38
     11.1.11 删除所有空行  11.1.12 任意次数地复制行  11.1.13 确定单元格区域是否包含在另一个单元格区域内  11.1.14 确定单元格的数据类型  11.1.15 读写单元格区域  11.1.16 在单元格区域中插入值的更好方法 ...
  • 函数作用:在多个工作表中查找一个范围内符合某个指定条件的项目对应指定范围加总求和..........................59 '35.函数作用:返回 Column 英文字.......................60 '36.函数作用:查找指定列名的列数.......
  • 155.在指定列中寻找含有指定字符串的单元格,并将符合条件的单元格标为红色,并将对应的下一列单元格赋值为1 156.清除字符串中的空格 157.查找合并单元格位置 158.阴阳历转换和阴阳历生日 159.利用数组和Substitute...
  • 实例9-10 删除工作表数据区域内的所有空行 第10章 将文本文件当作数据库来操作 实例10-1 利用ADO导入文本文件的全部内容 实例10-2 利用DAO导入文本文件的全部内容 实例10-3 利用ADO导入文本文件的部分内容 实例...
  • 定义打印区域 设置分页符 XLSReadWriteII完全支持Unicode 所有的字符型都是宽字符型。你完全不必担心非英语字符。 控件 你可以插入控件以及定义他们的源和目的单元 绘图 插入所有种类的绘图,从简单的线条到...
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    【将公式转换成值】:将指定工作表中指定区域的公式转换成值,可以自由选择工作表和单元格范围。 【根据工资计算钞票】:根据员工的工资计算需要多少张100元、50元......1元的钞票,可以批量计算。发现金工资的财务...
  • Excel百宝箱

    2012-10-27 17:09:21
    【将公式转换成值】:将指定工作表中指定区域的公式转换成值,可以自由选择工作表和单元格范围。 【根据工资计算钞票】:根据员工的工资计算需要多少张100元、50元......1元的钞票,可以批量计算。发现金工资的财务...
  • 【将公式转换成值】:将指定工作表中指定区域的公式转换成值,可以自由选择工作表和单元格范围。 【根据工资计算钞票】:根据员工的工资计算需要多少张100元、50元......1元的钞票,可以批量计算。发现金工资的...

空空如也

空空如也

1 2 3 4
收藏数 62
精华内容 24
关键字:

vba删除指定区域