精华内容
下载资源
问答
  • 使用VBA脚本删除某行之后的所有。 ALT+F11打开“Visual Basic 编辑器”中。单击“插入”菜单,然后单击“模块”。 输入以下代码 Sub deleteRow() For i = 1500 To 1603 Step 1 Rows(i).Delete i = i + 1 ...

    使用VBA脚本删除某行之后的所有行。

    ALT+F11打开“Visual Basic 编辑器”中。单击“插入”菜单,然后单击“模块”。

    输入以下代码

    Sub deleteRow()

    For i = 1500 To 1603 Step 1
    Rows(i).Delete
    i = i + 1
    Next

    End Sub


    在“工具”菜单中指向“”并单击“”。

    选择定义的宏

    单击运行


    展开全文
  • 、背景及需求:上期介绍的由多个excel合成的Excel表如下所示,我们需要把有汉字的删删除掉。 二、解决方案:同样的还是要用VBA来解决,操作前面已经介绍过了,我们直接上代码和注释(!!!在这里需要强调一下...

    一、背景及需求:上一期介绍的由多个excel合成的Excel表如下所示,我们需要把有汉字的行删删除掉。在这里插入图片描述
    二、解决方案:同样的还是要用VBA来解决,操作前面已经介绍过了,我们直接上代码和注释(!!!在这里需要强调一下:在运行代码前要选中需要删除的部分,比如A-F——1-2000,上下左后都要选,不能全选。由于程序会对选中的每个单元格进行索引,如果直接Ctrl+A全选或者只选择上下或者左右的话,程序会由于一直进行excel单元格的索引而进入无限索引,最终导致电脑卡死!!!):

    Sub wrj()
    Dim rng As Range '定义了一个range类型的变量 rng
    Dim InputRng As Range  '同上
    Dim DeleteRng As Range  '同上
    Dim DeleteStr As String  '字符串型数据
    xTitleId = "KutoolsforExcel" '选择区域弹窗的名字
    Set InputRng = Application.Selection
    Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
    DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2) '删除的行的关键字
    For Each rng In InputRng '遍历所有行
        If rng.Value = DeleteStr Then '如果有关键字和需要删除的关键字一样
            If DeleteRng Is Nothing Then
                Set DeleteRng = rng
            Else
                Set DeleteRng = Application.Union(DeleteRng, rng)
            End If
        End If
    Next
    DeleteRng.EntireRow.Delete '删除行
    End Sub
    

    三、摁下F5运行,即可得到结果。

    展开全文
  • i = 7 '从第7行开始遍历,只要i行B列还有边框,行数统计+1,直到遇到没有边框的那一行为止 While aimSheet.Range("b" & i).Borders.LineStyle <> xlNone ' i = i + 1 Wend count = i '返回最后有边框的行数 ...
  • 04046引用输入了任何内容的最后一行单元格(多列情况之一) 04047引用输入了公式或值的最后一行单元格(多列情况之二) 04048引用输入了任何内容的最后一列单元格(单行情况之一) 04049引用输入了公式或值的最后一...
  • 函数作用:查询某一值第num次出现的值................9 '3.函数作用:返回当个人工资薪金所得为2000元(起征点为850元)时的应纳个人所得税税额.............................10 '4.函数作用:从形如"123545ABCDE"的...
  • 2.查询某一值第num次出现的值 3.返回当个人工资薪金所得为2000元(起征点为850元)时的应纳个人所得税税额 4.从形如"123545ABCDE"的字符串中取出数字 5.从形如"ABCD12455EDF"的字符串中取出数字 6.按SplitType取得...
  • 可是对总表您尽可放心大胆编辑、修改,对数据进行各种处理,比如可以进行排序、筛选、删除等操作,哪怕移动和删除任何一行、一列,删除任何一个单元格也无妨。 3、具有恢复能力 本作品对成绩册和成绩单,虽然采用...
  • 网上找的VBA代码来进行随机不重复地提取。它能实现从列(本例为A1:A600)中随机不重复地提取100个数据,将其放到指定区域(本例为C1:C100)中,但是只能实现随机抽取1次,可是VB我完全看不懂啊,不知道怎么改...
  • Knob是一个开发者可灵活配置的多用途的园旋转组件来设置或连续调节某一变量的值, SwitchKnob是一个旋钮调节器来选择某一选项的离散选择控件。 开发者可以买整个软件包,或只买其中一个或几个子软件包。 对每个...
  • arcgis工具

    2012-10-22 22:37:31
    这种方法选择某一图层上的要素,其中心点落在另一图层要素中。 完全在…内(Are completely within) 这种方法选择完全落在另一图层多边形内部的某一图层上的要素,例如,选择林区里面的湖泊。通过指定一个缓冲...
  • 最大的优点是将指定的任意区域按每个存储格内容为一行加入到当前批注中,允许批注内容中是否显示行号。 【连接字符串】 可视化地窗体连接字符串功能。能将最多三个任意区域存储格(或列)的内容按自定的分隔符号连接...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    最大的优点是将指定的任意区域按每个存储格内容为一行加入到当前批注中,允许批注内容中是否显示行号。 【连接字符串】 可视化地窗体连接字符串功能。能将最多三个任意区域存储格(或列)的内容按自定的分隔符号...
  • 可是对总表您尽可放心大胆编辑、修改,对数据进行各种处理,比如可以进行排序、筛选、删除等操作,哪怕移动和删除任何一行、一列,删除任何一个单元格也无妨。 3、具有恢复能力 本作品对“成绩册(公式)”和“成绩...
  • 可是对总表您尽可放心大胆编辑、修改,对数据进行各种处理,比如可以进行排序、筛选、删除等操作,哪怕移动和删除任何一行、一列,删除任何一个单元格也无妨。 3、具有恢复能力 本作品对“成绩册(公式)”和“成绩...
  • 最大的优点是将指定的任意区域按每个存储格内容为一行加入到当前批注中,允许批注内容中是否显示行号。 【连接字符串】 可视化地窗体连接字符串功能。能将最多三个任意区域存储格(或列)的内容按自定的分隔符号...
  • 最大的优点是将指定的任意区域按每个存储格内容为一行加入到当前批注中,允许批注内容中是否显示行号。 【连接字符串】 可视化地窗体连接字符串功能。能将最多三个任意区域存储格(或列)的内容按自定的分隔符号...
  • Excel百宝箱

    2012-10-27 17:09:21
    【筛选唯一值】:以选择区域左边列为条件进行唯一值筛选,输入1则删除重复值所在,输入2则隐藏重复值所在 【相同项与不同项】:提取两列数据的共同项和不同项,也可以对两列数据的不同项或者相同项进行标示 ...
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    【筛选唯一值】:以选择区域左边列为条件进行唯一值筛选,输入1则删除重复值所在,输入2则隐藏重复值所在 【相同项与不同项】:提取两列数据的共同项和不同项,也可以对两列数据的不同项或者相同项进行标示 ...
  • 【筛选唯一值】:以选择区域左边列为条件进行唯一值筛选,输入1则删除重复值所在,输入2则隐藏重复值所在 【相同项与不同项】:提取两列数据的共同项和不同项,也可以对两列数据的不同项或者相同项进行标示 ...
  • 最大的优点是将指定的任意区域按每个存储格内容为一行加入到当前批注中,允许批注内容中是否显示行号。 【连接字符串】 可视化地窗体连接字符串功能。能将最多三个任意区域存储格(或列)的内容按自定的分隔符号...
  • 【筛选唯一值】以选择区域左边列为条件进行唯一值筛选,输入1则删除重复值所在,输入2则隐藏重复值所在 【建文件目录】对指定文件夹中的文件建立目录,且生成链接,单击可以打开对应的文件 【建工作表目录】对...
  • excel的使用

    2012-11-25 17:06:01
    比如,假设在某一河流生态调查工作表中,B2包含“物种”、B3包含“河鳟鱼”,B7包含总数45,那么: 输入“=CONCATENATE("本次河流生态调查结果:",B2,"",B3,"为",B7,"条/公里。")” 计算结果为:本次河流...
  • Excel百宝箱8.0

    2011-06-07 21:32:17
    【筛选唯一值】:以选择区域左边列为条件进行唯一值筛选,输入1则删除重复值所在,输入2则隐藏重复值所在 【相同项与不同项】:提取两列数据的共同项和不同项,也可以对两列数据的不同项或者相同项进行标示 ...
  • 检测同列重复值工具

    2005-12-02 10:36:26
    <BR> 另外,本工具还可以手动对某一列数据进行检测!<P> 注意事项:<BR> 基于VBA功能的限制以及运行速度上的考虑,本工具只支持在同列中向上进行检测。也就是说,本工具将默认用户的输入习惯为:每输入完毕一个数据...
  • 可是对总表您尽可放心大胆编辑、修改,对数据进行各种处理,比如可以进行排序、筛选、删除等操作,哪怕移动和删除任何一行、一列,删除任何一个单元格也无妨。 3、具有恢复能力 本作品对成绩册和成绩单,虽然采用...
  • 【筛选唯一值】:以选择区域左边列为条件进行唯一值筛选,输入1则删除重复值所在,输入2则隐藏重复值所在 【相同项与不同项】:提取两列数据的共同项和不同项,也可以对两列数据的不同项或者相同项进行标示 ...
  • excel 工具箱

    2012-01-22 15:04:34
    【筛选唯一值】:以选择区域左边列为条件进行唯一值筛选,输入1则删除重复值所在,输入2则隐藏重复值所在 【相同项与不同项】:提取两列数据的共同项和不同项,也可以对两列数据的不同项或者相同项进行标示 ...
  • 3.7.3 利用“按某一字段汇总”跟踪YTD总和 62 3.7.4 确定每一行业务对总计的贡献大小 62 3.7.5 创建季节性报表 63 3.7.6 用占总和的百分比选项度量两个字段的百分比 63 3.7.7 使用百分比选项将一行与另一行...
  • 3.7.3 利用“按某一字段汇总”跟踪YTD总和 62 3.7.4 确定每一行业务对总计的贡献大小 62 3.7.5 创建季节性报表 63 3.7.6 用占总和的百分比选项度量两个字段的百分比 63 3.7.7 使用百分比选项将一行与另一行...
  • 3.7.3 利用“按某一字段汇总”跟踪YTD总和 62 3.7.4 确定每一行业务对总计的贡献大小 62 3.7.5 创建季节性报表 63 3.7.6 用占总和的百分比选项度量两个字段的百分比 63 3.7.7 使用百分比选项将一行与另一行...

空空如也

空空如也

1 2 3 4 5
收藏数 85
精华内容 34
关键字:

vba选择某一行