vba单元格批量赋值_实用|利用VBA批量按条件给单元格添加批注！

我的目标：让中国的大学生走出校门的那一刻就已经具备这些office技能，让职场人士能高效使用office为其服务。支持我，也为自己加油！

上一节中我们讲过给单元格添加和删除批注的方法，这一节我们来解决一个实例问题。 如下： 需要批量给上图中每个部门对应的最高工资的单元格添加批注，批注内容如下： 部门名称+最高工资 思路如下： 1、想要插入批注，必须找到对应的单元格，单元格要对应部门的单元格，所以第一步先要找到有几个部门。 循环部门列，把部门写入字典，这样就可以提取出不重复的部门。 2、用函数maxifs可以求出每个部门对应的最高工资。 3、用find在工资列找见最高工资，为防止最高工资不止一个，所以用do-loop循环，为每个找见的最高工资所在的单元格添加批注。 具体代码如下：

Sub pltjpz()Dim d As ObjectDim rng As Range, rng1 As Range, rng2 As Range, rng3 As RangeDim i%, m As Double, a$, b