精华内容
下载资源
问答
  • 我还是那句话,方法无绝对,多学点终究是好的,针对获取唯一值的方法,我后续几天会展开至少3种方法,大家可以选择自己喜欢的方法来玩。场景说明很明显今天的问题,我们无法用常规的去重的方式来实现了...

    前景提要(文末提供源码下载)

    昨天我们学习了针对单列的数据进行获取唯一值的方法,今天我们提升下难度,来尝试下获取已多列为参照物,获取唯一值的方法,昨天有很多小伙伴说还可以用字典的方法更加的简单,其实,针对这个问题,我还是那句话,方法无绝对,多学点终究是好的,针对获取唯一值的方法,我后续几天会展开至少3种方法,大家可以选择自己喜欢的方法来玩。

    场景说明

    很明显今天的问题,我们无法用常规的去重的方式来实现了,因为去重的方式只能针对某一列的上下文进行操作的,现在我们的操作对象并不仅仅是一列,而是两列,甚至可能是不相邻的两列,也可能是三列。

    4734105621409ebcb941916c8cd8ec81.png

    这就是我们今天构造的模拟数据源,我们来看看今天的效果要如何实现

    代码区

    多列取唯一值,在我们日常的工作中确实是比较常见的操作,但是牵涉到多列的数据,是不是操作起来非常的困难呢?,其实并不会很难,我们来看看今天的代码

    Sub test()Dim l&l = Cells(Rows.Count, 1).End(xlUp).RowWith Range(Cells(1, 1), Cells(l, 3)) .RemoveDuplicates Columns:=Array(1, 2), Header:=xlYesEnd WithEnd Sub

    是不是很简单,和上节的代码有很多地方都是非常的相似的,但是又有一些地方不相同

    其实我们使用的方式还是我们上节学习过的RemoveDuplicates的方法

    先来看看最终的结果是怎么样的

    ab4efd8b1604a78d306ff5330c4b4d00.gif

    如果我们希望的是不连续的两行是否能够实现呢?

    来实现下,我们现在希望在A-C两列之间进行取唯一值的操作

    Sub test1()Dim l&l = Cells(Rows.Count, 1).End(xlUp).RowWith Range(Cells(1, 1), Cells(l, 5)) .RemoveDuplicates Columns:=Array(1, 3), Header:=xlYesEnd WithEnd Sub
    9eeca9944f14a5d57c2f2978f9c36fd2.gif

    代码是稍微有一些点修改的,我们一会来讲述下。

    从上面的两个动图,我们可以看出来,上面的代码完全满足了我们的需求,那么今天我们来继续深入学习下RemoveDuplicates方法

    代码解析

    前面我们也说了,今天的功能的关键代码还是RemoveDuplicates方法的运用,上节我们学习了RemoveDuplicates在单列取唯一值的时候的运用,在今天的多列的取唯一值的需求中,依然能够用到RemoveDuplicates

    其实我们昨天留下了一个小的伏笔,

    295b11d20fc4120ac27e23ef79ced5ac.png

    那么针对多列的时候,这里要如何写呢?其实你如果仔细的观察代码的话,就会发现了。

    .RemoveDuplicates Columns:=Array(1, 3), Header:=xlYes

    将1换成了一个类似数组的方式,array()代表的就是数组,想要获取多列的唯一值就是用这样的结构,那么如何表现是第几列呢?

    来比较下两个代码的不同

    .RemoveDuplicates Columns:=Array(1, 3), Header:=xlYes.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes

    很明显发现了,array()括号内的内容是不相同的,(1,3)代表的就是第一列和第三列合在一起取唯一值,而(1,2)代表的就是第二列和第一列合在一起取唯一值,

    这里的第一列第二列都是数据源整体,和单元格具体的位置无关,并且并不受其他列的数据的影响。

    cd8f50bfa7389c1705f9d4a679839939.png

    1 2 3

    这里只有两列,那么如果有多列呢?三列甚至更多列呢?好吧,容我再卖个关子

    ================================

    本节课的案例源码已经上传,需要的小伙伴请按照如下步骤操作,一个不能少哦~~

    1.加个粉(已关注的略过这一步)

    2.转发下本文章(算是对我的小小支持吧~)

    3.后台私信“8-2”

    希望大家多支持~~,多多关注 ~ ~

    好了,明晚19:00,准时再见!

    展开全文
  • i = 7 '从第7行开始遍历,只要i行B还有边框,行数统计+1,直到遇到没有边框的那行为止 While aimSheet.Range("b" & i).Borders.LineStyle <> xlNone ' i = i + 1 Wend count = i '返回最后有边框的行数 ...
  • VBA 日期控件

    千次阅读 2018-01-18 12:55:45
    1、效果:1)单击A列某一个单元格,弹出日期选择控件(跟随选择的单元格移动)。2)选择日期后点击日期控件,自动将日期写入A的单元格,控件隐藏。2、代码:Private Sub DTPicker21_Click() ActiveCell = ...

    1、效果:

    1)单击A列某一个单元格,弹出日期选择控件(跟随选择的单元格移动)。

    2)选择日期后点击日期控件,自动将日期写入A列的单元格,控件隐藏。

    2、代码:

    Private Sub DTPicker21_Click()
        ActiveCell = DTPicker21.Value
        Me.DTPicker21.Visible = False
    End Sub


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Target.Column = 1 Then
            Me.DTPicker21.Visible = True
            Me.DTPicker21.Top = Target.Top
        Else
            Me.DTPicker21.Visible = False
        End If
    End Sub

    说明:DTPicker21是实际的控件名称,根据实际情况修改,插入的日期控件是Microsoft Date and Time Picker Control 6.0

    展开全文
  • 个将数字转换为文本的VBA

    万次阅读 2006-10-20 18:45:00
    做项目的时候经常要导入一些excel数据,如果某列同时有数字和文本的时候导入的时候会有问题,导前需要将数字单元格的内容前面加"",手工加很烦,于是写了个宏,可以将当前选中的单元格自动加"",支持同时选中多块选区,每...

    做项目的时候经常要导入一些excel数据,如果某列同时有数字和文本的时候导入的时候会有问题,导前需要将数字单元格的内容前面加"'",手工加很烦,于是写了一个宏,可以将当前选中的单元格自动加"'",支持同时选中多块选区,每块可以包含多个单元格.其实很简单,就是两个循环:

    Sub CastNumToStr()
        Dim rng As Range
        '遍历每个选择区域
        For Each rng In Selection
            '遍历当前选中区的所有单元格
            For Each cell In rng.Cells
                cell.Value = "'" & cell.Value
            Next
        Next
    End Sub 

    展开全文
  • 选中某一邮件并点击"Open Target Folder",会打开选择中邮件发件人的文件夹。点击"Open Folder By Name..."则会显示一个查询条件输入框,输入发件人的显示名或是邮件地址的全部或部分(支持正则表达式)可以出所有...
  • 2.查询某一值第num次出现的值 3.返回当个人工资薪金所得为2000元(起征点为850元)时的应纳个人所得税税额 4.从形如"123545ABCDE"的字符串中取出数字 5.从形如"ABCD12455EDF"的字符串中取出数字 6.按SplitType取得...
  • 函数作用:将工作表中最后一列作为页脚打印在每一面页尾101 '102.函数作用:获取vbproject引用项目.................102 '103.函数作用:移除Excel工作表中的外部数据连接.......103 '104.函数作用:将选择定单元格作成...
  • 04050引用输入了任何内容的最后一列单元格(多行情况之一) 04051引用输入了公式或值的最后一列单元格(多行情况之二) 04052引用多个非连续单元格区域的集合(Union方法) 04053引用多个非连续单元格区域的集合...
  • 简言之,只要您原始成绩表是什么样,把它复制过来就行,只需注意本总表第一行为表头且有班级一列和不合并单元格即可,其它不受任何限制。 2、具有容错能力 也许您对函数和公式比较熟悉,知道当公式引用的单元格被...
  • 检测同重复值工具

    2005-12-02 10:36:26
    <BR> 另外,本工具还可以手动对某一列数据进行检测!<P> 注意事项:<BR> 基于VBA功能的限制以及运行速度上的考虑,本工具只支持在同列中向上进行检测。也就是说,本工具将默认用户的输入习惯为:每输入完毕一个数据...
  • “A” 、“B”列分别为班级选项和字段,其数据分别来源于总表“班级”一列和首行,作用是其内容将呈现在表册窗口和统计表的选项框中以便选择输入,该设置可自动生成。 “C”列为科目选项,其数据应来源于该设置“B”...
  • “A” 、“B”列分别为班级选项和字段,其数据分别来源于总表“班级”一列和首行,作用是其内容将呈现在表册窗口和统计表的选项框中以便选择输入,该设置可自动生成。 “C”列为科目选项,其数据应来源于该设置“B”...
  • 【自动填充】 不同于EXCEL的CTRL+D功能,能对选中的某列数据不同存储格区域的空白处,取相邻的上不为空的存储格内容同时作数据源的自动填充。1分钟内能处理手工需几小时才能完成的几万行ERP或KingDee原始数据。...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    财 务 工 具 【自动填充】 不同于EXCEL的CTRL+D功能,能对选中的某列数据不同存储格区域的空白处,取相邻的上不为空的存储格内容同时作数据源的自动填充。1分钟内能处理手工需几小时才能完成的几万行ERP或KingDee...
  • Excel百宝箱

    2012-10-27 17:09:21
    【合并与合计】:可以任意指定两列,对其中一列的数据合并同类项,而另一列对应的数值则求合计,合计结果存放在合并区域中 【建立图片目录】:对指定文件夹下所有图片(GIF、PNG、JPG,JPEG)建立目录,并批量导入 ...
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    【合并与合计】:可以任意指定两列,对其中一列的数据合并同类项,而另一列对应的数值则求合计,合计结果存放在合并区域中 【建立图片目录】:对指定文件夹下所有图片(GIF、PNG、JPG,JPEG)建立目录,并批量导入 ...
  • 、特色 本作品采用EXCEL 公式+VBA制作,既可根据你平时使用EXCEL的习惯和方式操作充分发挥EXCEL的功能,又能利用本作品提高效率。 ※※※※二、主要功能 1、在原始成绩表中自动按你要求的统计科目生成总分、平均分...
  • 财 务 工 具 【自动填充】 不同于EXCEL的CTRL+D功能,能对选中的某列数据不同存储格区域的空白处,取相邻的上不为空的存储格内容同时作数据源的自动填充。1分钟内能处理手工需几小时才能完成的几万行ERP或KingDee...
  • 【合并与合计】:可以任意指定两列,对其中一列的数据合并同类项,而另一列对应的数值则求合计,合计结果存放在合并区域中 【建立图片目录】:对指定文件夹下所有图片(GIF、PNG、JPG,JPEG)建立目录,并批量导入 ...
  • excel的使用

    2012-11-25 17:06:01
    下面给出一个例子:选中一列,然后单击“格式”菜单中的“单元格”命令,在弹出的对话框中选择“数字”选项卡,在“分类”列表中选择“自定义”,然后在“类型”文本框中输入“"正数:"($#,##0.00);"负数:"($ #,##...
  • 【自动填充】 不同于EXCEL的CTRL+D功能,能对选中的某列数据不同存储格区域的空白处,取相邻的上不为空的存储格内容同时作数据源的自动填充。1分钟内能处理手工需几小时才能完成的几万行ERP或KingDee原始数据。...
  • excel成绩管理系统

    2010-01-23 18:49:29
    其中,分班成绩册和成绩单、统计分别以VBA和公式两种方式制作,这两种方式各有特点,供你选择:公式方式的优点是当条件变化(如所选班级、科目变化)时显示结果随之实时变化,除非公式被破坏或者刚从其它表册转入本...
  • Excel百宝箱8.0

    2011-06-07 21:32:17
    【取消合并还原合并数据】:对一列中合并后的单元格取消合并,且恢复合并前所有数据 【合并数据并复制】:可以将一个区域的数据直接复制到一个单元格中 【合并区域自动换行】:可以让具有合并单元格的区域在自动换行...
  • 【自动填充】 不同于EXCEL的CTRL+D功能,能对选中的某列数据不同存储格区域的空白处,取相邻的上不为空的存储格内容同时作数据源的自动填充。1分钟内能处理手工需几小时才能完成的几万行ERP或KingDee原始数据。...
  • 可以选择大于值或者小于值或者在范围之间的值,文本定位时支持通配符,在8.0版本开始还加了按格式定位、按格式计算功能。例如选择并计算红色区域,或者选择字号为20、字体为宋体的区域,再如选择加粗且倾斜的...
  • 【合并与合计】:可以任意指定两列,对其中一列的数据合并同类项,而另一列对应的数值则求合计,合计结果存放在合并区域中 【建立图片目录】:对指定文件夹下所有图片(GIF、PNG、JPG,JPEG)建立目录,并批量导入 ...
  • excel 工具箱

    2012-01-22 15:04:34
    【取消合并还原合并数据】:对一列中合并后的单元格取消合并,且恢复合并前所有数据 【合并数据并复制】:可以将一个区域的数据直接复制到一个单元格中 【合并区域自动换行】:可以让具有合并单元格的区域在自动换行...
  • EXCEL百宝箱8.0终极版

    2011-11-05 16:48:02
    【取消合并还原合并数据】:对一列中合并后的单元格取消合并,且恢复合并前所有数据 【合并数据并复制】:可以将一个区域的数据直接复制到一个单元格中 【合并区域自动换行】:可以让具有合并单元格的区域在自动换行...
  • 简言之,只要您原始成绩表是什么样,把它搞过来就行,只需注意本总表第一行为表格项目且有班级一列和不合并单元格即可,其它不受任何限制。 2、具有容错能力 也许您对函数和公式比较熟悉,知道当公式引用的单元格...

空空如也

空空如也

1 2 3 4 5
收藏数 90
精华内容 36
关键字:

vba选择某一列