ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
EH云课堂-专业的职场技能充电站 限时送,魔方网表将Excel变在线系统 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 ExcelHome出品 - VBA代码宝免费下载 13门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 200|回复: 6
打印 上一主题 下一主题

[求助] VBA输入去重复

[复制链接]

ag娱乐平台手机版,  “一年1200架次除以365天,平均每天美方对中国海域抵近侦察三四次。”张召忠说,这证明美国对南海太过关注。除了飞机意外,美国水面舰艇、潜艇等也在对中国海域进行抵近侦察,一年下来美国对中国海域的抵近侦察次数估计达到数千次,这对中国的国家安全构成了很大的威胁。

  答:在03年的4月份,一个偶然的机会发现了一家非常出色的站点,当时对主要是对他们的一些新技术非常有兴趣,当时在国外网站上看到上面有很少的中国用户,其中印象比较深刻的是一个南京地区的用户,她发了很多相关自己的生活。而当时在国内类似的网站几乎没有,而同时国内的blog热潮越来越活跃,于是我就想过建立一个分享网站,到了04年的时候碰到了目前我的几位合伙人,正式开始运营fotolog。抢票背后:网络售票这场技术攻防战谁能赢  在客源潜力很大的中低客流量航线上,以合适尺寸的支线飞机运营能够通过提高航班频率来刺激客流量增长。下图所示为一条典型航线上客流量随航班频率变化而变化的曲线。在航班频率较低时,航班的增加将带来客流量的大幅提高。当航班密度达到一定程度时,由于潜在的出行人数不会无限制的增长,这种刺激作用将会减弱。在这样的航线上采用合适尺寸的支线飞机,则航班频率得以提高,良好的航空服务水平得以保持。

TA的精华主题

TA的得分主题

跳转到指定楼层
1
发表于 2019-1-11 23:59 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
要求:
1、根据日期和班次条件进行去重,只保留最新输入的那一个数据;
2、以最后一次输入的数值为最新数值,删除之前重复项保留最后一次输入数值

捕获.JPG (117.2 KB, 下载次数: 0)

捕获.JPG

测试.zip

27.25 KB, 下载次数: 4

去重复

TA的精华主题

TA的得分主题

2
发表于 2019-1-12 08:06 | 只看该作者

TA的精华主题

TA的得分主题

3
发表于 2019-1-12 08:53 | 只看该作者
字典去重就解决了

0101.gif (222.82 KB, 下载次数: 1)

0101.gif

测试.zip

24.67 KB, 下载次数: 7

TA的精华主题

TA的得分主题

4
发表于 2019-1-12 09:13 | 只看该作者
不用字典啊,为什么要用字典,数据是一行一行输入的,不是一下就输入一堆数据。
Private Sub CommandButton1_Click()
    Dim X%, Y%, new_arr, old_arr, i, j
    With Sheet1
        'Rows.Count表格总行数
        X = .Cells(Rows.Count, "B").End(xlUp).Row + 1 'xlUP向上查找range非空单元格.行号
        j = 1
        If ComboBox1.Text = "" Or TextBox1.Text = "" Then
            MsgBox "请输入数据", , "提示" '弹出消息窗口
            Exit Sub '退出程序
        Else
             old_arr = .Range("B2:E" & X) '源数据写入数组old_arr
            ReDim new_arr(1 To UBound(old_arr) + 1, 1 To 4) '重新定义数组大小new_arr(行,列)
            For i = 1 To UBound(old_arr)
                '源数据除开新输入班次外的数据写入数组new_arr
                If old_arr(i, 3) <> "" And old_arr(i, 3) <> ComboBox1.Text Then
                    new_arr(j, 1) = j '第1列序号
                    new_arr(j, 2) = old_arr(i, 2) '第2列日期
                    new_arr(j, 3) = old_arr(i, 3) '第3列班次
                    new_arr(j, 4) = old_arr(i, 4) '第4列产量
                    j = j + 1 '变量j+1
                End If
            Next i
            '新输入班次的数据写入数组new_arr最后1行
            new_arr(j, 1) = j '第1列序号
            new_arr(j, 2) = Format(Now, "yyyy-m-d") '第2列日期
            new_arr(j, 3) = ComboBox1.Text '第3列班次
            new_arr(j, 4) = TextBox1.Text '第4列产量
            '处理好的数组new_arr写回表格
            .Range("B2:E" & X) = "" '清空源数据
            .Range("B2:E" & j + 1) = new_arr '写回
        End If
    End With
End Sub


TA的精华主题

TA的得分主题

5
 楼主| 发表于 2019-1-19 14:08 | 只看该作者
MOY838840554 发表于 2019-1-12 09:13
不用字典啊,为什么要用字典,数据是一行一行输入的,不是一下就输入一堆数据。
Private Sub CommandButto ...

已经达到我要求的意思,我想问一个问题,就是如果这个表格是整年度的,在新建组内的数据会不会非常大,导致重新写回表格的时候卡死或者季度缓慢。

TA的精华主题

TA的得分主题

6
 楼主| 发表于 2019-1-19 14:10 | 只看该作者

我的意思就是,每天只能有ABC班的数据存在,其他只要多输入的都是保留最新的产量。

TA的精华主题

TA的得分主题

7
 楼主| 发表于 2019-1-19 14:15 | 只看该作者
microyip 发表于 2019-1-12 08:06
字典去重就解决了

字典去重我不会用,在定义字典之后,如何对比字典内容,并且删除或者覆盖,到了这步我就歇菜了;
然后我照着人家的,依葫芦画瓢,又没有任何作用:
Dim Dic As Object, Dic2 As Object, End_Row_No As Integer, Arr, Brr, rng
Set Dic = CreateObject("Scripting.Dictionary")
Set Dic2 = CreateObject("Scripting.Dictionary")
  With ActiveSheet
    End_Row_No = .[B100000].End(xlUp).Row
    Arr = .Range("C2:C" & End_Row_No)
    Brr = .Range("D2:D" & End_Row_No)
End With
     Set rng = Nothing
For i = UBound(Arr) To 1 Step -1
        For j = UBound(Brr) To 1
        If Dic.exists(Arr(i, 1)) = Format(Now, "yyyy-m-d") Then
         If Dic2.exists(Brr(j, 1)) = ComboBox1.Text Then
             If rng Is Nothing Then
                 Set rng = Cells(i, 1)
             Else
                 Set rng = Union(rng, Cells(i, 1))
             End If
        Else
             Dic(Arr(i, 1)) = 1
         End If
        End If
        Next
        Next
    If Not rng Is Nothing Then rng.EntireRow.Delete
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-1-23 19:42 , Processed in 0.073481 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 ag娱乐平台手机版 返回列表
俄媒:俄军将拥有新航母 可搭载90架飞机和直升机 国资委主任:国企国资改革要加快解决历史遗留问题 人民日报谈美国公立学校困境:减税导致经费削减 国足热身对手有变约旦不来了 5月底中国将改战缅甸 李春江:冠军主帅最基本的素养就是得能拿冠军 大小摩托同时来袭鲁能需注意 冲击力成大威胁 夫妇骑行违规拒不认罚 悍妻一拳将交警打骨折(图) 人民日报社论:凝聚新时代的奋斗伟力 李春江:新疆拿到现在的排名不易 我们应多学习 特朗普贸易关税 或只是逞口舌之利其实并没什么用 美推进汽车关税进程 墨西哥称仍在准备应对措施 金软景曾春蕾合砍36分 上海女排零封江苏迎赛点
煤炭价格增减之间 看煤炭经济运行新变化! 国民党基层力拱洪秀柱参选台北市长 洪未明确拒绝 内蒙古大兴安岭发现国家一级保护鸟类白头鹤 22+13+7失误5犯!第一C都这毛病 赢数据球输了 印度女子生两个女孩 妇女节遭丈夫泼浓酸面目全非 最高法出台解释 明确执行担保实现方式及追偿权 全国政协十三届一次会议主席团和会议主持人名单 美职高与美巡赛声明:高尔夫球技术不可能开倒车 苏宁门神在最关键时刻站出来 神扑浇灭贵州气焰 工商总局:企业注册便利化仍存问题 今年重点改革 去年光伏组件出口达到37.9GW 出口额或较2016年… 日海岸漂来2千多个不明塑料桶 里面残留强酸液体
重庆警备区司令员韩志凯已任市委“戎装常委” 亚马逊无人便利店要开业了! CBA选秀“成交量”创纪录 北京队四年首次出手 挪威获平昌冬奥奖牌运动员七成为哮喘患者 涉禁药 里约赛沃达斯科遭横扫 施瓦茨曼收获赛季首冠 中国出版集团副总裁:唱衰纸质出版的说法没有依据 22岁女孩让男子借住在家 惨遭其杀害并被藏尸床箱 外储2月末小幅下降 专家:规模有望保持总体稳定 男子为专心玩游戏 把“全球最性感主播”甩了(图) 安倍回应美军普天间基地搬迁:将遵日本最高法院判决 SK电讯测试自动驾驶汽车5G实时通信:未来不需红绿灯 詹天佑双色球18016期分布图:三区降温明显 香港证监会:监管虚拟货币交易有清晰指引 ag娱乐平台手机版