Excel精英培训网

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

[已解决]多了几列空列

[复制链接]
发表于 2015-4-5 15:16 | 显示全部楼层 |阅读模式
本帖最后由 张雄友 于 2015-4-9 20:02 编辑

多了几列空列。
c = getNum(xname) '''''''''''''''''''''''''''怎么增加一个判断,去忽略空列??????????????????????就是G:L的空列不要显示出来。


多了几列空列.rar

62.05 KB, 下载次数: 3

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2015-4-6 09:05 | 显示全部楼层
因为你的列数是根据月份生成的,如果在生成阶段判断需要另用数组,比较麻烦。方便的做法是生成后删除空列。

多了几列空列.zip

64.06 KB, 下载次数: 2

评分

参与人数 1 +6 收起 理由
张雄友 + 6 很给力!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2015-4-6 19:05 | 显示全部楼层
grf1973 发表于 2015-4-6 09:05
因为你的列数是根据月份生成的,如果在生成阶段判断需要另用数组,比较麻烦。方便的做法是生成后删除空列。

这个办法我知道,放弃了。是因为后面的列如果还有数据要用的话,会删除必要的数据的。
除非可以定位到最后一个:如本例是:12月,就是从12月这列向前删除。
回复

使用道具 举报

 楼主| 发表于 2015-4-6 20:29 | 显示全部楼层
grf1973 发表于 2015-4-6 09:05
因为你的列数是根据月份生成的,如果在生成阶段判断需要另用数组,比较麻烦。方便的做法是生成后删除空列。

想到了一些:因不知提取的数字最大值是多少,怎么让这个 13  与  c   联系起来??
        For j = 13 To 2 Step -1
            If Application.WorksheetFunction.CountA(.Columns(j)) = 0 Then .Columns(j).Delete
        Next
    End With


回复

使用道具 举报

发表于 2015-4-6 20:31 | 显示全部楼层
怎么会呢。列不是月份吗?难道会有13个月?再说可以在记录列的过程中取个最大列作为循环起点(maxc=iif(c>maxc,c,maxc))。而且判断空列怎么会删除必要数据呢?既然是空列就是没数据。
回复

使用道具 举报

发表于 2015-4-6 20:33 | 显示全部楼层
张雄友 发表于 2015-4-6 20:29
想到了一些:因不知提取的数字最大值是多少,怎么让这个 13  与  c   联系起来??
        For j = 13  ...

在计算c的时候,定义  maxc=iif(c>maxc,c,maxc)

循环中 for j=maxc to 2 step -1
回复

使用道具 举报

 楼主| 发表于 2015-4-6 20:36 | 显示全部楼层
grf1973 发表于 2015-4-6 20:31
怎么会呢。列不是月份吗?难道会有13个月?再说可以在记录列的过程中取个最大列作为循环起点(maxc=iif(c>m ...

maxc 没有定义值,怎么知道是多少?怎么加和当中去。
For j = 13 To 2 Step -1
            If Application.WorksheetFunction.CountA(.Columns(j)) = 0 Then .Columns(j).Delete
        Next
    End With

PS:这里说的只是最大12个月,但当如:车间133 ,145部门,等等,就有用了。
回复

使用道具 举报

发表于 2015-4-6 20:37 | 显示全部楼层
自己看附件吧。

引用数据.zip

20.24 KB, 下载次数: 1

回复

使用道具 举报

发表于 2015-4-6 20:38 | 显示全部楼层
maxc没定义,初始值就是0.只要计算出一个c,就会变成c,然后跟每一个计算出的c比较,取其大值。
回复

使用道具 举报

 楼主| 发表于 2015-4-6 20:44 | 显示全部楼层
grf1973 发表于 2015-4-6 20:38
maxc没定义,初始值就是0.只要计算出一个c,就会变成c,然后跟每一个计算出的c比较,取其大值。

这个问题用你教的定位做试试看,我研究下先。
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-28 18:41 , Processed in 0.369003 second(s), 8 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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