vba字典学习案例二

一、案例概述：
通过本次案例来提升对vba字典的学习，本次案例主要练习的是将同一列同名对应的值进行相加计算。

二、案例如下：

（1）源数据：

（2）代码部分：

Sub 字典()Dim 字典, arr1, arr2, iSet 字典 = CreateObject("Scripting.Dictionary")i = 2Do While Range("A" & i) <> ""Key = Range("A" & i)If 字典.Exists(Key) Then'item是key对应的值字典.Item(Key) = 字典.Item(Key) + Range("B" & i).ValueElse'将key和值添加到字典中字典.Add Key, Range("B" & i).ValueEnd Ifi = i + 1Loop字典条数 = 字典.CountIf 字典条数 > 0 Thenarr1 = 字典.keys()arr2 = 字典.items()Range(Cells(2, 4), Cells(字典条数 + 1, 4)) = Excel.Application.Transpose(arr1)Range(Cells(2, 5), Cells(字典条数 + 1, 5)) = Excel.Application.Transpose(arr2)End If
End Sub

（3）结果呈现：

vba字典学习案例二相关推荐

DataWhale集成学习Task15 集成学习案例二（蒸汽量预测）
集成学习案例二 (蒸汽量预测) 文章目录集成学习案例二 (蒸汽量预测) 1 整体思路 1.1 整体步骤 1.2 评价指标 2 实战演练导入package 加载数据探索数据分布特征工程模型构建 ...
PHP学习案例二商品价格计算
<?php header('Content-type: text/html; charset=utf-8'); const DISCOUNT =0.8; //定义变量,保存所有商品名称 $fru ...
深度学习（三十）贪婪深度字典学习
贪婪深度字典学习原文地址:http://blog.csdn.net/hjimce/article/details/50876891 作者:hjimce 一.相关理论近几年深度学习声名鹊起,一个又一 ...
【集成学习（下）】Task15 集成学习-案例蒸汽量预测
文章目录集成学习案例二 (蒸汽量预测) 背景介绍数据信息评价指标导入package 加载数据探索数据分布小小个人总结特征工程模型构建以及集成学习进行模型的预测以及结果的保存参考集 ...
Webpack从入门到进阶（二）---附沿路学习案例代码
文章目录 Webpack从入门到进阶(一)---附沿路学习案例代码一.Webpack简介 1.前端发展的几个阶段 2.前端三个框架的脚手架 3.Webpack是什么? 4.webpack和vite ...
ajax入门学习（二）小案例Demo1
(尊重劳动成果,转载请注明出处:http://blog.csdn.net/qq_25827845/article/details/55823800冷血之心的博客) ajax入门学习(一) ajax入门 ...
Houdini学习笔记——【案例二】消散文字制作
[案例二]Houdini消散文字制作一.Overview 文字通过时间轴中frame变化而碎裂从两边开始向着中间消散并向镜头移动. 效果二.Sop(Surface OPerators or ...
【b站黑马程序员C++视频学习笔记-多态案例二-制作饮品】
多态案例二-制作饮品利用多态实现制作咖啡和茶水 Coffee和Tea继承了抽象类AbstractDrinking,并重写了AbstractDrinking的抽象函数 #include<iost ...
Day15-集成学习-机器学习-案例二：蒸汽量预测(DataWhale)
案例二.蒸汽量预测 1. 基础信息数据信息: 训练数据(train.txt) 测试数据(test.txt) 特征变量字段:V0-V37 目标变量字段:target 目的:利用训练数据训练出模型,预测 ...
python 判断字典key是否存在_神奇的VBA字典，判断数据是否重复
心胸开阔一点,不去争:得失看轻一点,不去争:功利心淡一点,不去争.一杯茶,满也好,少也好,不要浪费时间去争:浓也好,淡也好,其中自有值得品的味道.人生有顺境也有逆境,不可能处处是逆境:人生有巅峰也有谷 ...

vba字典学习案例二

vba字典学习案例二相关推荐

最新文章

热门文章