爱问知识人 爱问教育 医院库

EXCEL VBA自动检测字样做插入单元格、删行处理

首页

EXCEL VBA自动检测字样做插入单元格、删行处理

您好,希望能通过VBA 实现:自动检测列D单元格内是否含有 SALIDA字样的行,
若有则该行的E列单元格插入空白单元格而活动单元格右移。
而检测到列D单元格内含有 TOTAL 字样的行,则删除这整行。谢谢!
具体请看附件,万分感谢!

您好,希望能通过VB……
提交回答
好评回答
  • 2011-12-20 21:47:44
      Sub Macro1()
    '将此代码保存到模块中即可^0^
    Dim i As Long
    '将salida的数据写到e列
    For i = 1 To [d65536]。End(xlUp)。Row
        If InStr(Cells(i, 4), "Salida") <> 0 Then
            Cells(i, 6) = Cells(i, 5)
            Cells(i, 5) = ""
        End If
        If InStr(Cells(i, 4), "TOTAL") Then
        End If
    Next
    '将含有total的行删除
    i = 1
    While i <= [d65536]。
      End(xlUp)。Row If InStr(Cells(i, 4), "Total") Then Rows(i & ":" & i)。Select Selection。Delete Shift:=xlUp i = i - 1 End If i = i + 1 Wend End Sub。
      

    2***

    2011-12-20 21:47:44

类似问题

换一换
  • 办公软件 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新资料 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):