Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2748|回复: 4

[已解决]请hwc2ycy老师进来?

[复制链接]
发表于 2014-4-1 19:52 | 显示全部楼层 |阅读模式
本帖最后由 hadha 于 2014-4-8 08:46 编辑

    Dim i As Integer
    Application.ScreenUpdating = False
    For i = Cells(2, Columns.Count).End(xlToLeft).Column To 1 Step -1
        Select Case Cells(2, i).Value
            Case "dd", "kk", "aa", "hh"  这行代码下面是不是省略什么代码?
            Case Else
                Columns(i).Delete
        End Select
    Next
    Application.ScreenUpdating = True
   

最佳答案
2014-4-1 20:20
hadha 发表于 2014-4-1 20:19
Case 条件表达式1
              语句块1
是不是少了语句块?

语句块不是必须的。
正如2楼所说,主要是为了过滤。

if也有这样的用法
if 条件 then
else
'语句
end if

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2014-4-1 20:14 | 显示全部楼层
Case "dd", "kk", "aa", "hh"  '这行代码没省略什么代码
代表的是或者的关系  只要是cells(2,i)是   dd kk  aa  hh之一就不执行删除
其他的删除该列
回复

使用道具 举报

 楼主| 发表于 2014-4-1 20:19 | 显示全部楼层
as0810114 发表于 2014-4-1 20:14
Case "dd", "kk", "aa", "hh"  '这行代码没省略什么代码
代表的是或者的关系  只要是cells(2,i)是   dd k ...

Case 条件表达式1
              语句块1

是不是少了语句块?
回复

使用道具 举报

发表于 2014-4-1 20:20 | 显示全部楼层    本楼为最佳答案   
hadha 发表于 2014-4-1 20:19
Case 条件表达式1
              语句块1
是不是少了语句块?

语句块不是必须的。
正如2楼所说,主要是为了过滤。

if也有这样的用法
if 条件 then
else
'语句
end if

点评

知道你在我就不答了。  发表于 2014-4-1 20:29
回复

使用道具 举报

发表于 2014-4-1 20:21 | 显示全部楼层
Case 条件表达式1
              语句块1
其中    语句块1是可选参数
你认真看看case的帮助

评分

参与人数 1 +1 收起 理由
hadha + 1 很给力!

查看全部评分

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 15:26 , Processed in 6.562986 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表