加载中…
个人资料
微博
  • 博客等级：
  • 博客积分：
  • 博客访问：
  • 关注人气：
  • 获赠金笔：0支
  • 赠出金笔：0支
  • 荣誉徽章：
正文 字体大小：大 中 小

#Excel VBA#删除含特定字符的单元格及下方单元格上移

(2014-09-11 11:09:38)
分类： 【Excel】
1、需求目的：获取App Annie 上Google Play的榜单。
2、存在问题：从图1到图2，复制图1的榜单到Excel会出现特定字符，导致排序混乱。
3、解决问题：删除特定字符，且下方单元格上移。

具体如下：
图1：App Annie 上Google Play的榜单

http://s1/mw690/001Sl1b7gy6LXnMYVfW40&690VBA#删除含特定字符的单元格及下方单元格上移" TITLE="#Excel VBA#删除含特定字符的单元格及下方单元格上移" />

图2：复制图1到Excel表中的格式如下。

http://s3/mw690/001Sl1b7gy6LXnX4w8O92&690VBA#删除含特定字符的单元格及下方单元格上移" TITLE="#Excel VBA#删除含特定字符的单元格及下方单元格上移" />


以下是Excel VBA代码

Sub 删除含特定字符的单元格及空白单元格且下方单元格上移1()
    Dim i As Long
    Dim j As Long
    Dim n As Long
    n = 300
    For i = n To 1 Step -1
    For j = 1 To 5
        If Cells(i, j) Like "=" Or Cells(i, j) = "$" Or _
        Cells(i, j) = "" Or Cells(i, j) Like "(new)*" Then
        Cells(i, j).Delete xlShiftUp
        End If
        Next j
    Next i
End Sub

Sub 删除含特定字符的单元格及空白单元格且下方单元格上移2()
    Dim i As Long
    Dim j As Long
    Dim n As Long
    n = 300
    For i = n To 1 Step -1
    For j = 1 To 5
    Do Until Cells(i, j).Find("▼*") Is Nothing
        Cells(i, j).Find("▼*").Delete xlShiftUp
    Loop
    Next j
    Next i
End Sub

Sub 删除含特定字符的单元格及空白单元格且下方单元格上移3()
    Dim i As Long
    Dim j As Long
    Dim n As Long
    n = 300
    For i = n To 1 Step -1
    For j = 1 To 5
    Do Until Cells(i, j).Find("▲*") Is Nothing
        Cells(i, j).Find("▲*").Delete xlShiftUp
    Loop
    Next j
    Next i
End Sub

喜欢

0

阅读┊ 收藏 ┊ 喜欢▼ ┊打印┊举报/Report
  

新浪BLOG意见反馈留言板　欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

Copyright © 1996 - 2022 SINA Corporation, All Rights Reserved

新浪公司 版权所有