编程语言应用

注册

 

发新话题 回复该主题

办公软件分享应用篇假空变真空 [复制链接]

1#
北京治疗白癜风去哪里 https://wapjbk.39.net/yiyuanzaixian/bjzkbdfyy/zdxbdf/

最近工作比较忙,也就没时间去做更多的分享了,后期我们会继续分享函数。今天我们在这里介绍一种比较小众的情况,假空和真空。

我们首先说说真空,其实在excel表里面,空白单元格就是真空,不过这里需要注意的一点是,部分excel虽然单元格看起来是空白的,但是他是一种假空状态,这种状态很少见,一般都是由不成熟的系统产出的数据源表上自带的。

左边的数据区域CTRL+G,定位空值是定位不出来的,右边的数据区域是可以定位的,这就分别代表了假空、真空两种状态。

实际更多的是需要解决问题,如何把假空区域变成真空区域,有人说手动删除掉假空、然后在插入空白行或者列,这是可以的,这只能解决数据量很少的情况,数据量多的话太费时间。

那么解决这种情况最好的办法是VBA,

VBA编程是Excel里面比较高端的运用了,旨在把批量重复的,人力不易完成的工作交给机器来完成,当然还有其他的一些功能,我们以后再介绍。

这里的话,包括以后,会把各种功能,成熟的代码发出来,但是编程语言就不教了,这个有兴趣的朋友需要专业的学习。

首先我们需要知道EXCEL代码的情况,低版本是没办法用VBA的,WPS也无法用代码。

假空变真空代码是

PrivateSubCommandButton1_Click()

DimcAsRange,UnRngAsRange

WithUsedRange

Setc=.Find(,LookIn:=xlValues,lookat:=1)

IfNotcIsNothingThen

firstAddress=c.Address

Do

IfUnRngIsNothingThen

SetUnRng=c

Else

SetUnRng=Union(UnRng,c)

EndIf

Setc=.FindNext(c)

LoopWhileNotcIsNothingAndc.AddressfirstAddress

EndIf

EndWith

IfNotUnRngIsNothingThen

UnRng.ClearContents

EndIf

EndSub

分享 转发
TOP
发新话题 回复该主题