ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 297|回复: 6
打印 上一主题 下一主题

ag娱乐平台手机版[求助] VBA输入去重复

[复制链接]

ag娱乐平台手机版,  荣耀畅玩6X主摄像头采为1200万像素,1.25微米大像素,支持F0.95——F16的光圈调节,能够拥有更加出色的背景虚化效果。拥有专业模式,美食模式,文档矫正等多重功能,官方样张展示其拍照效果非常出色。800万像素前置相机,支持柔光自拍以及十级智能美肤。

  所谓“专业的人做专业的事”。如果你分析,无论是科大讯飞、出门问问这种人工智能领域专业巨头,还是音频单元调试、智能移动芯片(CPU),其技术深度都需要一个领域全部精力和资金投入。这一点是手机厂商达不到的。老将排行榜:詹姆斯榜首甜瓜第六 魔兽升至第三  Sun StorageTek VSM System 5设计用于中档和大型主机环境,其存储能力和性能都是上代产品的两倍。新系统可使在一个系统中处理两倍的数据,降低总拥有成本,特别是与数据中心占地空间、功率、冷却和维护等相关的成本费用。Sun StorageTek VSM System 4e为较小型的主机环境提供了成本有效的初级磁带虚位存储能力。

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


ag娱乐平台手机版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-6-19 03:11 , Processed in 0.095058 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

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

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

快速回复 ag娱乐平台手机版 返回列表
脱贫攻坚填表太多有何破解措施?扶贫办主任回应 这个经济大省一气调整8名地市主官 6人是本地人 韩国防部:萨德基地施工不能再拖 或采取必要措施 以色列袭击伊朗在叙军事设施 回应此前遭受攻击 曼联穆帅最强阵出战切尔西 锋霸+妖王携手复出 罗马赛张帅苦战不敌奥斯塔彭科 无缘晋级16强 商家卖猞猁开价13万元一只:高风险要有高回报 多家上市公司在互动平台回应与脸书合作情况 女子交3年水费却是隔壁的 物业要求支付千元差额 京沪首战上海完胜居榜首 四强热门江苏山东告负 中国十一个部门联合亮剑重拳整治虚假违法广告 钢铁大王丁立国:市委书记抓环保要拆钢厂时我哭了
日在野党要求传唤质询安倍夫人 被自民党高官拒绝 两年后申花再斩三连胜 上次曾力克恒大 这回呢? 中国经济一季度成绩单今日揭晓 三大焦点值得关注 郑棉短期仍有上行空间 马云:机器再牛X也是人造 现在的智能还在幼儿园时代 滴滴整改:顺风车下线所有个性化标签和评论功能 美巡赛-中国北京锦标赛次轮 彼得-坎贝尔领先2杆 曼联大杀器移形换位 穆帅学比利时这招或有奇效 奥沙利文或退出世锦赛:我有价值但我不差钱! 外媒:美国在人工智能领域领先 但中国已缩小差距 人工智能创业调查:招聘百万起 人才荒成最大壁垒 英首相:英国“脱欧”拒做金融领域“规则接受者”
关于沈阳事件 你只需要了解这些就够了 征服世界的最强公务员 带你走近川内优辉 中国企业带动日本农民致富 10倍租金盘活荒废农地 美国死神无人机抵日本 可作军事用途投射制导武器 四看中国市场机遇:对外开放市场在中国 利益在全球 美海军男兵蓄须抗争:这些人能名正言顺留胡子 环球社评:欧美暂告妥协,中国需从容以对 海航东航宣布明起空中可用手机 需设置飞行模式 俄载71人客机坠毁前最后对话曝光 机长:我们完了 车贷业务盈利空间趋小 网贷平台探路绿色金融 王健林左拥腾讯右抱阿里 构建超级宣发生态圈 “告母家书”作者发起众筹治病:我想再努力一把 安徽拟规定:骗取医保待遇 最高处5倍罚款 ag娱乐平台手机版