Sub ai_insurance()cr = Range("c65536").End(xlUp).RowSet crng = Range(Cells(1, 3), Cells(cr, 3))Dim arr(13) As IntegerFor Each c In crngSelect Case Left(c, 2)Case "1月"arr(1) = c.RowCase "2月"arr(2) = c.RowCase "3月"arr(3) = c.RowCase "4月"arr(4) = c.RowCase "5月"arr(5) = c.RowCase "6月"arr(6) = c.RowCase "7月"arr(7) = c.RowCase "8月"arr(8) = c.RowCase "9月"arr(9) = c.RowCase "10"arr(10) = c.RowCase "11"arr(11) = c.RowCase "12"arr(12) = c.RowEnd SelectNextarr(0) = arr(1) - 5  '固定1月起始行号(?-4)begin_m = InputBox("请输入起始月 (1~ 11的数值)")end_m = InputBox("请输入结束月(大于起始月小于12的数值)")col = 0For i = begin_m To end_m 'i是月份,循环每月r = 0For j = arr(i - 1) + 1 To arr(i) - 1     'j是每月的内容行号Cells(cr + 1 + r, 5 + col).Formula = "=d" & (j)r = r + 1  '让当月数据每行递增Nextcol = col + 1  '让月份增加时列号增加NextEnd Sub

vba formula 公式的引用相关推荐

  1. [vba] 写入公式, xlookup, 及evaluate直接获取公式结果的探索

    结论: 1. 通过range.formula = "= 公式" 的方式来写入公式, 其中需要注意公式中的部分因为处于双引号中, 原本的双引号需要加倍; 2. Evaluate可以很 ...

  2. 关于word中插入公式及公式交叉引用问题

    点我进入原文 我们这里最关心的一点实际上是对公式交叉引用时候出现的将公式整体都插入引用点的现象,从这篇转载的文章中我们发现,可以通过 先键入回车分割公式与公式标号,然后将光标停在这个回车前方,使用ct ...

  3. 叉乘点乘混合运算公式_初学者的Excel公式及其引用方法指南

    Excel 2016中的公式必须以"="开头,其后可以包含常量.运算符.单元格引用.函数等组成对象,除文本外,公式的所有内容都应当在英文状态下输入. 常量:常量指不会变化的数据,如 ...

  4. Word中双击mathtype、Axmath公式编号引用无反应

    问题描述: Word中双击mathtype公式编号引用突然无反应,其它功能均正常(编号能更新.公式能编辑) 尝试方法: mathtype卸载重装后能管用2.3天.但引用功能会随机失效. 最终方法: w ...

  5. VBA写入公式(6):排名不重复

    排名不重复,即使是相同值,先出现的排名在前.输入的公式是:=RANK(A1,$A 1 : 1: 1:A$17)+COUNTIF(A 1 : A 1 , A 1 ) − 1 , 第 1 次 选 择 一 ...

  6. VBA写入公式(2):日期公式集

    Sub 日期公式集()'先选择数字所在的一个单元格,在选择大写金额保存的一个单元格.'&两边无空格是公式上的连接符,&两边有空格是vba上的连接符.'带有双引号的外面必须由两重双引号, ...

  7. VBA写入公式(3):身份证公式集

    提取身份证信息: 1.出生日期: 2.性别: 3.年龄(周岁): 4.生肖: 5.星座: 6.省份简称: 7.省份全称: 8.退休日期(男60退休,女50退休): 9.用星号隐藏: 31.退休日期(男 ...

  8. Excel公式不同引用地址方式的应用总结

    在Excel中,加上了绝对引用符"$"的列标和行号为绝对地址,在公式向旁边复制时不会发生变化,没有加上绝对地址符号的列标和行号为相对地址,在公式向旁边复制时会跟着发生变化.混合引用 ...

  9. excel 公式 平移 引用单元格_不学会这3个Excel隔列求和函数公式,你只能一个个单元格去相加...

    Excel中的求和,并不是你们想的1+2=3那么简单.有单条件求和.多条件求和,合并单元格求和,隔列求和等等.有关求和的函数也很多,例如SUM函数.SUMIFS函数.还有与这两个函数结合使用的其它函数 ...

  10. 如何快速把多个excel表合并成一个excel表(不熟悉vba及公式的人)

    对于不熟悉Excel公式,不熟悉vba的人,要如何按需要快速把多个excel表合并成一个excel表? 对于Excel的合并,很多需要通过vba变成,但对于不熟悉vba编程的人,如何合并呢?给大家推荐 ...

最新文章

  1. php制作标记图,PHP使用JPGRAPH制作圆柱图的方法详解
  2. 特别推荐:15个精美 Metro UI 风格 WordPress 主题
  3. 应用系统中交互式报表功能解析
  4. java.lang.OutOfMemoryError---at java.lang.StringBuilder.append
  5. docker-compose.yml模板文件
  6. python输入输出格式_Python基础-用户的输入及格式化输出 | 【韩涛博客】
  7. java.lang.IllegalStateException: Max number of active transactions reached:50
  8. c语言setw函数怎么用,C++中setw()的用法?
  9. 徐耀赐:道路安全——交通安全会议整理稿(1)
  10. 发音程序c语言,用C语言发声
  11. win7 从网络访问此计算机',在里面把guest用户组添加上,大白菜修复win7系统没有权限访问网络资源的办法...
  12. Airflow调度 Design
  13. 集合多种功能的转录调控数据库:hTFtarget,介绍及使用教程
  14. python中的序列封包和序列解包
  15. 简单灵活万用管理软件——蓝点通用管理系统V26破版,手慢无
  16. 华强北山寨“AirPods 3”出圈,油管博主直夸好
  17. Java小游戏学习笔记
  18. 请仔细品味--俞敏洪励志演讲
  19. 【OpenHarmony】napi基础知识学习
  20. 计算机磁盘为uefi引导,科普一分钟|UEFI引导+GPT硬盘格式装系统方法

热门文章

  1. 年轻时放纵享乐,不要指望年老时一念向善
  2. 给人工智能初学者看的5本入门书 | 附下载链接
  3. 苹果手机的Heic格式转换成jpg格式的简单python代码
  4. 基于天牛须搜索算法的函数寻优算法
  5. canvas改变图片原始尺寸
  6. uniapp中text-indent不起作用,uniapp首行缩进不管用如何解决?
  7. react中请求网络图片加载不出来的问题 解决
  8. 世界最大最高摩天轮,迪拜之眼迎来首批游客
  9. html禁止后退按钮,关于禁止页面后退的一些方法
  10. python钻石和玻璃球游戏_python使用pygame实现笑脸乒乓球弹珠球游戏