办公软件分享:应用篇 假空变真空

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

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

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

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

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

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

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

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

假空变真空代码是

​Private Sub CommandButton1_Click()

    Dim c As Range, UnRng As Range

    With UsedRange

        Set c = .Find("", LookIn:=xlValues, lookat:=1)

        If Not c Is Nothing Then

            firstAddress = c.Address

            Do

                If UnRng Is Nothing Then

                    Set UnRng = c

                Else

                    Set UnRng = Union(UnRng, c)

                End If

                Set c = .FindNext(c)

            Loop While Not c Is Nothing And c.Address <> firstAddress

        End If

    End With

    If Not UnRng Is Nothing Then

    UnRng.ClearContents

    End If

End Sub

©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。

推荐阅读更多精彩内容