• 所有问题

    • 用vb删除excel的某一行具体程序

    如题所述

    举报该问题
    推荐答案   2019-04-15
    '菜单“工程/引用”，勾选Microsoft
    Excel
    11库，必须的
    Private
    Sub
    Command1_Click()
    Dim
    xlApp
    As
    Excel.Application
    Dim
    xlBook
    As
    Excel.Workbook
    Dim
    xlSheet
    As
    Excel.Worksheet
    On
    Error
    Resume
    Next
    Set
    xlApp
    =
    GetObject(,
    "Excel.Application")
    If
    Err.Number
    <>
    0
    Then
    Set
    xlApp
    =
    CreateObject("Excel.Application")
    On
    Error
    GoTo
    prcERR
    Set
    xlBook
    =
    xlApp.Workbooks.Open(App.Path
    &
    "\test.xls")
    '打开你的EXCEL文件
    Set
    xlSheet
    =
    xlBook.Worksheets(1)'第一个表格
    xlSheet.Application.Visible
    =
    True
    '设置Excel
    可见
    xlSheet.Rows("1:1").Delete
    Shift:=xlUp'假如要删除第1行。删除第2行就是"2:2"，删除1-3行就是"1:3"
    Set
    xlSheet
    =
    Nothing
    Set
    xlBook
    =
    Nothing
    Set
    xlApp
    =
    Nothing
    Exit
    Sub
    prcERR:
    Debug.Print
    Err.Number
    &
    ":"
    &
    Err.Description
    End
    Sub
    温馨提示：答案为网友推荐，仅供参考
    相似回答
    如何用VB删除EXCEL里单元格所在的行?答：Dim wb As Excel.Workbook Dim ws As Excel.Worksheet Set wb = xapp.Workbooks.Open(“Excel文件路径”)Set ws = wb.Worksheets(“工作表索引号”)ws.Activatews.Cells(2, 4).Select ‘这个就是D2单元格，选中 Selection.EntireRow.Delete '选中D2所在的行，删除 wb.Save wb.Close (Tr...
    如何用vb删除excel 中的某一行某一列的数据 例如第三行第一列.求简易...答：Sub Macro1() Rows("3:3").Delete Shift:=xlUp '删除第3行,下面上移 Columns("C:C").Delete Shift:=xlToLeft '删除C列,右边左移End Sub
    用vb删除excel的某一行具体程序答：Set xlSheet = xlBook.Worksheets(1)'第一个表格 xlSheet.Application.Visible = True '设置Excel 可见 xlSheet.Rows("1:1").Delete Shift:=xlUp'假如要删除第1行。删除第2行就是"2:2"，删除1-3行就是"1:3"Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing Exit Sub ...
    如何用EXCEL的VBA脚本编写程序删除空行和空列答：调用 DeleteEmptyColumns 子过程，删除所有空列。自动调整行高和列宽，以适应数据。Sub DeleteEmptyRows()这个子过程用于删除工作表中的空行。它首先确定最后一行的行号，然后从最后一行开始向上遍历，逐行检查该行是否为空行。如果该行为空行，则删除该行。通过使用 CountA 函数来确定行中是否存在任何非空...
    关于EXCEL中VBA判断条件删除行答：Sub 宏1() For i=ActiveSheet.UsedRange.Rows.Count To 2 Step -1 If VarType(Cells(i,"I"))=vbString And VarType(Cells(i,"J"))=vbString And VarType(Cells(i,"J"))=vbString And VarType(Cells(i,"H"))=vbString Then Rows(i).Delete End if Next iEnd Sub ...
    excel怎么用vb自动删除满足条件的那一行答：，然后选择行，删除。再点击”数据“-”筛选“，取消筛选。原来要另外的方案，下面是VBA代码：Sub mydel() Dim i As Double For i = Cells(Rows.Count, 1).End(3).Row To 2 Step -1 If Range("B" & i) = "完成" Then Rows(i).Delete Next iEnd Sub ...
    大家正在搜