精华内容
下载资源
问答
  • 同时还有其他工作表,现在要实现在上述几张工作表的第9行查找 内容为 摘要、期初余额、本期借方、本期贷方、借方累计、贷方累计 的单元格 所在的列,并将对应的列删除 Sub 删除列() Dim sh As Worksheet For ...

    实用场景1.

           一个工作簿里包含有其他应收款、其他应付款、应收账款、应付账款工作表,同时还有其他工作表,现在要实现在上述几张工作表的第9行查找 内容为 摘要、期初余额、本期借方、本期贷方、借方累计、贷方累计 的单元格 所在的列,并将对应的列删除


    Sub 按钮1_Click()

    Dim sh As Worksheet


    For Each sh In Sheets(Array("其他应收款", "其他应付款", "应收账款", "应付账款"))


        sh.Range("a9:k9").Find("摘要").EntireColumn.Delete


    Next sh

    End Sub



    实用场景2.

    单元格区域查找指定内容并删除指定内容所在单元格对应的行



    Sub 按钮1_Click()

    A = InputBox("请输入需要删除包含的某特定字符", "输入框", v)
    j = Trim(InputBox("请输入需要选择的列号", "输入框", 1))
     
    For k = j To j
        For i = 1 To 65535
        
            Sheets(3).Cells(i, k).Select
             
            If Len(Sheets(3).Cells(i, k).Value) = 0 Then
                Exit For
            End If
            '包含A的场合
            'If InStr(Sheets(1).Cells(i, k).Value, A) <> 0 Then
            'A是字符串的场合(只等于A的场合)
            'If Sheets(1).Cells(i, k).Value = A Then
            'A是数字的场合(只等于A的场合)
            If Sheets(3).Cells(i, k).Value = CInt(A) Then
            
                B = i & ":" & i
                Sheets(3).Rows(B).Select
                Selection.Delete Shift:=xlUp
                
                '删除一行后,行号退回一个,复原
                i = i - 1
                
            End If
        Next i
    Next k
     
    Sheets(3).Cells(i, k).Select
    MsgBox "删除操作完成!"
    End Sub



    展开全文
  • 最近操作 Excel 表格优点频繁,有些重复性的操作感觉让我回到了搬砖时代.为了提高我的办公效率,最近...删除选中的单元格所在 Rows(ActiveCell.Row).Delete 设置成快捷键,享受原本需要用鼠标才能完成的操作吧. ...

    最近操作 Excel 表格优点频繁,有些重复性的操作感觉让我回到了搬砖时代.为了提高我的办公效率,最近有开始在研究 Excel 宏编程。
    最近在处理 Excel 表格,需要手工删除一些行。但是直接删除太麻烦了,鼠标移动的太多了。需要先选中该行,然后右键-删除。
    在这里插入图片描述
    思考了半天,写了个简单的宏,实现了快捷键删除单元格所在的行。
    不知道怎么回事,我的 Excel 无法直接新建宏。有懂行的大神帮忙在评论区里答疑解惑。
    在这里插入图片描述
    所幸它是可以录制宏的,这样的话我可以先录制一个宏然后再编辑这个宏就可以了。
    在这里插入图片描述
    随便选择一个单元格,然后点击停止录制宏并保存该宏。
    在这里插入图片描述
    现在我们打开刚刚录制的宏,然后编辑该宏为我们想要的内容即可。
    在这里插入图片描述
    将图中的内容替换成下面内容,并保存。

    Rows(ActiveCell.Row).Delete
    

    在这里插入图片描述
    重新进入宏选项,然后为刚刚保存到宏设置一个快捷键,并保存。这里我们设置成了 Ctrl+Q
    在这里插入图片描述
    现在我们可以选择我们需要删除的行,并使用快捷键即可删除对应的行。

    总结

    上面的操作适用于表数据适中,但是有一定量的行需要我们删除的情况。宏的功能很强大,但是编写过于复杂的宏很麻烦。简单的宏命令可以省去我们点鼠标的麻烦。

    展开全文
  • 写此文的初衷 ...写此文的原因在于,我想指定某一区域去查找我要的单元格,网上的资料都是全局查找,很难应用实际中,会查找到其他的单元格。该函数便于后人使用。 举例: 姓名 班主任 李四 张

    写此文的初衷
    本人从事VBA宏编程十多年,最近在转型用Python写Excel操作程序。编码过程中遇到很多问题,某度N久,论坛也查了很多资料。然而发现一个问题,发布的很多关于xlwings的文章,只是基于Python方面对于xlwings的初步介绍,或者就是作者对VBA根本就没有很深的认识或者是藏拙,无法应用到实际使用中。
    写此文的原因在于,我想指定某一区域去查找我要的单元格,网上的资料都是全局查找,很难应用到实际中,会查找到其他的单元格。该函数便于后人使用。

    举例:

    姓名 班主任
    李四 张三
    张三 张三

    一个简单的表,表中发现,学生姓名和班主任姓名重复,这在现实中是不可避免会出现的。
    如果出现学生转学,就要从表中移出学生:张三

    先上一个网上找到的全局查找例子:

    def FindRowCol(SheetName, RowOrCol, KeyWord):
        try:
            if RowOrCol == 'Row':
                Cell_Address = SheetName.api.Cells.Find(What=KeyWord, After=SheetName.api.Cells(SheetName.api.Rows.Count, SheetName.api.Columns.Count), LookAt=xws.constants.LookAt.xlWhole,
                                                        LookIn=xws.constants.FindLookIn.xlFormulas, SearchDirection=xws.constants.SearchDirection.xlNext, MatchCase=False).Row
            elif RowOrCol == 'Col':
                Cell_Address = SheetName.api.Cells.Find(What=KeyWord, After=SheetName.api.Cells(SheetName.api.Rows.Count, SheetName.api.Columns.Count), LookAt=xws.constants.LookAt.xlWhole,
                                                        LookIn=xws.constants.FindLookIn.xlFormulas, SearchDirection=xws.constants.SearchDirection.xlNext, MatchCase=False).Column
        except:
            Cell_Address = 0
        return Cell_Address
    

    这个查找最后返回的是 B2 单元格 ,即李四的班主任张三那个格子。如果继续执行删除程序,李四就会被删掉了。

    以下是指定区域查找

    def FindRowColRange(SheetName, RowOrCol, KeyWord,StCol,StRow,EdCol,EdRow):
        # StCol = getColumnName(StCol)
        # EdCol = getColumnName(EdCol)
        # RangeStr = StCol + str(StRow) + ":" + EdCol + str(EdRow)
        try:
            if RowOrCol == 'Row':
                Cell_Address = SheetName.range((StRow,StCol),(EdRow,EdCol)).api.Find(What=KeyWord, After=SheetName.api.Cells(wb.app.selection.row,wb.app.selection.column), LookAt=xws.constants.LookAt.xlWhole,
                                                        LookIn=xws.constants.FindLookIn.xlFormulas, SearchDirection=xws.constants.SearchDirection.xlNext, MatchCase=False).Row
            elif RowOrCol == 'Col':
                Cell_Address = SheetName.range((StRow,StCol),(EdRow,EdCol)).api.Find(What=KeyWord, After=SheetName.api.Cells(wb.app.selection.row,wb.app.selection.column),LookAt=xws.constants.LookAt.xlWhole,
                                                        LookIn=xws.constants.FindLookIn.xlFormulas, SearchDirection=xws.constants.SearchDirection.xlNext, MatchCase=False).Column
        except:
            Cell_Address = 0
        return Cell_Address
    

    当调用的时候,输入参数,这样的话,就只在第一列中进行查找。结果为 A3 ,然后删除即可。

    Keyword_Row = getRowColRange(wb.Sheets(1),"Row","张三",1,1,655436,1)
    

    隐藏起来的几句话是用来拼接区域地址的,如:”A1:B3“。可以结合以下 列数 转 列名 函数使用,这个是网上找来的,谢谢大神。

    def getColumnName(columnIndex):
        ret = ''
        ci = columnIndex - 1
        index = ci // 26
        if index > 0:
            ret += getColumnName(index)
        ret += string.ascii_uppercase[ci % 26]
        return ret
    

    为啥我会隐藏起来那几句话呢,因为直接使用单元格行列数代替区域地址可以少几步运行时间。xlwings中的range支持这种方法。

    以下是xlwings关于range的使用方法:

    import xlwings as xw
    xw.Range('A1')
    xw.Range('A1:C3')
    xw.Range((1,1))
    xw.Range((1,1), (3,3))
    xw.Range('NamedRange')
    xw.Range(xw.Range('A1'), xw.Range('B2'))
    

    另外附上一个读取文件、创建文件夹的函数。

    def LoadFile(dir,period):
        ResultPath = dir + '\\output\\' + period
        if os.path.exists(ResultPath) == True:
            print("There has the same period folder in output! Deleting...")
            shutil.rmtree(ResultPath)
        print("Creating " + period + " folder...")
        os.mkdir(ResultPath)
        os.mkdir(ResultPath + '\\文件夹1\\')
        os.mkdir(ResultPath + '\\文件夹2\\')
        DataPath = dir + '\\input\\'
        FileLists = []
        for Files in os.listdir(DataPath):
            if Files[-4:] == "xlsx":
                FileLists.append(DataPath + Files)
        return FileLists
    

    最近一直在写此类程序,如果有好的会继续分享出来。

    展开全文
  • https://zhidao.baidu.com/question/368634799536175604.html
    展开全文
  • Excel 中如何根据单元格内容删除行

    千次阅读 2018-10-29 18:15:33
    根据单元格内容快速删除行,首先需要选中含有该单元格内容的所有行,然后删除。似乎在 Excel 当中除了 VBA 以外没有其他更快捷的方法能解决这个问题了。这里将推荐几个快速根据单元格内容删除行的方法给你。 通过...
  • 这个需求简单来说,就是从右向左查找字符出现的首个位置,或从左向右查找字符出现的最后位置,例如:查找“中华人民共和国人民代表大会发言人任免人选”中,最后一个“人”字的位置,直接的查找是做不的。...
  • 这节对我的启发是,是否可使用Find/Match或其他方法来替代worksheetfunction.vlookup方法,从而提高工作中的一个报表的...'1 使用循环查找 (在单元格查找效率太低) '2 调用工作表函数 Sub c1() '判断是否存在...
  • 首先,打开Excel, Ctrl+F 查找,输入0,点击选项扩展栏 选择单元格匹配,查找范围选“值”,点击查找全部 选定所有0值单元格 点击右键,选择清除内容 大功告成! ...
  • ​EXCEL是由很多的对象组成,每个对象都有他的属性和方法,所谓的对象可以理解为所有存在的东西,在同一个程序里的对象之间是存在关系的,比如说上下级关系或同级关系,上下级关系之间用英文句点“.”连接。...
  • 比如一张表显示商品信息,每一显示一种商品,在每一的末尾有删除按钮,想要删除指定ID的商品。这种需求常有遇到,而且这个操作涉及xpath的一些用法,有些Page Object书写人员可能并不能轻松应对,所以我封装一...
  • excel怎么合并单元格方法今天有网友在QQ上问了笔者一个excel合并单元格的问题,找不怎么合并了。下面针对这个问题,笔者今天就把“excel怎么合并单元格”的方法和步骤详细的说下,希望对那些刚用excel软件还不太...
  • 修改删除所在单元格 var tdDom = document.createElement('td' ); // 每次添加单元格事,在单元格中添加一个按钮 var btnModDom = document.createElement('button' ); // 按钮的内容是修改 ...
  • VBA单元格操控备忘

    2017-06-23 00:23:33
    1、选取单个单元格: Sub 选取单元格B2方法1() Range("B2").Select End Sub Sub 选取单元格B2方法2() Range("B" & 2).Select End Sub Sub 选取单元格B2方法3() Cells(2, 2).Select End Sub Sub 选取单元格B2方法4...
  • 如何删除关键字所在

    千次阅读 2018-05-04 21:11:19
    后想到用Word文档中的‘查找与替换’功能,将关键字输入,全部替换成特殊的符号,再查找,逐一删除,删了10分钟,感觉实在是太慢了,并且耗费精力,开始想有没有更为方便快捷的办法,在网上看到一方法,真的不错。...
  • 单击显示单元格内容 单击一个单元格以筛选Excel列 (Click a Cell to Filter Excel Column) Here is a fancy filter trick, if you frequently have to filter your Excel tables. Click on a cell in this Excel ...
  • 在EXCEL中,单个的单元格是无法拆分的,你最多在其中增加一条斜线,方法是右键点单元格,选“设置单元格格式”,在“边框”选项卡中有。 如果选取多个单元格,你可以合并,也可以拆分,方法是右键点单元格,选...
  • 代码如下: Sub july234() Dim i As Integer For Each Y In Worksheets X = Y.UsedRange.Rows.Count For i = 1 To X If Cells(i, "...).EntireRow.Delete '在A列中删除0所在行 End If ...
  • VBA 单元格字体设置

    千次阅读 2018-10-15 16:31:05
    '查找语文成绩所在列号 For i = 1 To c If myRange.Cells(1, i) = "语文" Then num = i With myRange.Cells(1, i) .RowHeight = Application.CentimetersToPoints(2) .ColumnWidth = Application....
  • 因着以上的问题,Excel催化剂对图片进行有限度地调整,以便满足单个图片完整落入单个单元格范围内(若单元格存在合并单元格,则落入合并单元格的范围内)。 功能原理是对原图片进行缩放,缩放的方式是中心缩放,...
  • excel 合并行列单元格

    千次阅读 2015-01-29 16:52:33
     // 3, 2, 5, 6: 代表四个点坐标 分别是起始,起始列,结束,结束列,可以吧这四个值存一个list中,  // 多个合并的时候,可以吧这些list添加另外一个容器中,循环容器即可  if(indexMargeList != ...
  • 工作和学习中,我们往往需要删除一大段文本或者excel表格内包含某一字符的所有行。ps:如果只要删除所有的特定字符(注意不是删除所有行),那直接替换为空白就行了,不赘述。工具/原料 excel表格方法/步骤1.将需要...
  • 需求描述: 当工作表中的列数比较多,而且列数、列...使用自定义列号、列名查找函数。 代码如下: 1. 列号查找函数 '查找列号函数 Private Function intFindColumnID(ByVal rowID, ByVal objworkBook, ByVal ob...
  • excel批量删除所有空白

    千次阅读 2019-06-13 13:48:44
    背景:某一列,中间有很多空行,只想把空行删除掉! https://baijiahao.baidu.com/s?id=1625326584580421791&wfr=spider&for=pc 如下图这种情况: ●我们可以先框选要删除空行的表格范围。 ●选择表格...
  • excel之单元格格式/设置/

    千次阅读 2013-03-23 11:40:02
    示例---将所有单元格设置为文本格式:   [cpp] view plaincopyprint? _Application app; //Excel应用程序接口 Workbooks books; //工作薄集合 _W
  • FineUI v3.3.0 更新的内容非常多,所以一下子从 v3.2.6 连跳 3 个小版本,直接...外置ExtJS库去AXD化表格合计表格可编辑单元格的增删改顶部菜单框架   下面就来详细说明这些更新。   1. 外置ExtJS库
  • 在高级Excel用户群体中无比痛恨的合并单元格,在现实的表格中却阴魂不散的纠缠不断。今天Excel催化剂也来成为“帮凶”,制造更多的合并单元格。虽然开发出此功能,请使用过程中务必要保持节制,在可以称为报表功能的...
  • 单元格区域选取,竟然有这么多种方法,你都造吗?要选取一个单元格区域,除了常规的鼠标拖选,还有多少其他的可行方法?如果有数万行数据要去选取,怎么操作最快?在包含隐藏行列的情况下如何仅对可见部分进行操作?...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 9,142
精华内容 3,656
关键字:

删除查找到的所有单元格所在的行