HI,大家好,我是星光。话说我们有一个完整的VBA小代码系列,包含了多表汇总,总表拆分,图片导入等常见问题处理。后台回复关键字常用代码即可获取。但总会有朋友询问VBA代码如何使用,这里就先聊一下。

举个例子。

比如下面这段代码,作用是合并多个工作表数据成总表。

Sub CollectData() Dim Sht As Worksheet, rng As Range, k&, n& Application.ScreenUpdating = False '取消屏幕刷新 n = Val(InputBox('请输入标题的行数', '提醒')) If n < 0 Then MsgBox '标题行数不能为负数。', 64, '提示': Exit Sub '取得用户输入的标题行数,如果为负数,退出程序 Cells.ClearContents '清空当前表数据 For Each Sht In Worksheets '遍历工作表 If Sht.Name <> ActiveSheet.Name Then '如果工作表名称不等于当前表名则进行汇总动作…… Set rng = Sht.UsedRange '定义rng为表格已用区域 k = k + 1 '累计表的个数 If k = 1 Then '如果是首个表格,则把标题行一起复制到汇总表 rng.Copy Cells(1, 1).PasteSpecial Paste:=xlPasteValues Else '否则,扣除标题行后再复制黏贴到总表 rng.Offset(n).Copy Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1) _ .PasteSpecial Paste:=xlPasteValues End If End If Next Cells(1, 1).Activate Application.ScreenUpdating = True '恢复屏幕刷新 MsgBox '一共汇总了' & k & '张工作表。'End Sub

操作步骤如下:

▎1,完整复制代码。

▎2,打开目标Excel工作簿,右键单击任意工作表名称,执行右键菜单的【查看代码】命令,或者按组合键,打开VBE窗口。

▎3,在VBE窗口界面,右键单击左侧任意工作表名称,例如下图所示的Sheet1,在弹出的选项菜单中,依次单击【插入】→【模块】

▎4,单击选中新建的模块,在右侧代码窗口粘贴代码,然后关闭该窗口

▎5,在工作表的【插入】选项卡下,依次单击【形状】→【矩形】在当前工作表绘制一个大小任意你满意就好的矩形。

▎6,右键单击该矩形,在弹出的菜单中选择【指定宏】命令。打开【指定宏】对话框,选择目标宏名,例如本例的CollectData,最后单击【确定】按钮。

▎7,OK,单击该矩形形状,就可以运行小代码了。

……

没了,祝大家周末愉快,下期再见。

vba能运行在linux上吗,如何运行VBA代码?其实很简单相关推荐

  1. linux 运行jupyter,在 Linux 上安装并运行 Jupyter

    在 Linux 上安装并运行 Jupyter 根据官方文档安装Jupyter 检查本机Python版本 输入 python -V TensorFlow官网告知我们 需要Python 2.7.3.4.3 ...

  2. linux 线程id 进程id,在Linux上显示正在运行的进程的线程ID

    在Linux上显示正在运行的进程的线程ID 在上Linux," ps -T"可以显示正在运行的进程的线程信息: # ps -T 2739 PID SPID TTY STAT TIM ...

  3. linux ortp 编译,Linux下oSIP的编译使用应该是很简单的,其Install说明文档.doc

    Linux下oSIP的编译使用应该是很简单的,其Install说明文档.doc Linux下oSIP的编译使用应该是很简单的,其Install说明文档里也介绍的比较清楚,本文主要就oSIP在Windo ...

  4. linux系统牵引程序设置,Linux上安装Wine运行AutoCAD实例[多图]

    借用在网上看到一段很经典的话 同济大学 - Tongji LUG 有土木的吗?唉,我拼命地想甩掉XP可今生注定已是被它缠住了-- CAD--Wine了个中望(教育版) 3D--摸着学blender A ...

  5. RIDE在linux系统下运行,在linux上执行robotframework用例

    一.场景: 之前是在windows上的robotframework框架下写的接口自动化用例,现在需要在linux上运行自动化用例,要怎么做呢? 二.操作: 1.需要在linux上安装robotfram ...

  6. Linux上使用docker运行酷Q机器人

     我们知道酷Q机器人是运行在windows上的,配合图灵机器人的API可以实现QQ或者微信的自动对话,但是如果想让机器人不间断24小时运行,那就需要使用云服务了,并且需要使用docker作为运行的容器 ...

  7. LWN:在Linux上用Waydroid运行安卓应用!

    关注了就能看到更多这么棒的文章哦- Android apps on Linux with Waydroid July 19, 2022 This article was contributed by ...

  8. linux系统可以安装天正吗,Linux上安装Wine运行AutoCAD实例[多图]

    虽然总是有人说XP和Ubuntu双系统并不是真正的解决之道因为这个解决的方法隐含着的还是未摆脱ms-Windows的束缚最终的解决方案只有 借用在网上看到一段很经典的话 同济大学 - Tongji L ...

  9. linux系统上运行sh,Linux系统下如何运行.sh文件的实现

    Linux系统下如何运行.sh文件的实现 在Linux系统下运行.sh文件有两种方法,比如我在root目录下有个datelog.sh文件 第一种(这种办法需要用chmod使得文件具备执行条件(x): ...

最新文章

  1. 修改系统density适配
  2. ORACLE 11GR2 RAC的网络规划解析
  3. Oralce 数据库 - 查询数据库所有的表和视图实例演示,查询指定用户下所有表和视图方法
  4. 安装.net5.0后怎么在vs里选择_Visual Stdio 2019(或其它版本)怎样全部安装到非系统盘的实现方法(小白版)...
  5. [NBUT 1458 Teemo]区间第k大问题,划分树
  6. 20172316 结对编程-四则运算 第一周 阶段总结
  7. win+shift+s截图保存在哪_今天才发现,原来不使用工具,电脑也能快速截图,你用过哪些?...
  8. oracle数据库注册服务,oracle 共享服务联接静态注册服务
  9. Android Zip解压缩目录穿越导致文件覆盖漏洞
  10. APQC 7.0.5通用版流程框架
  11. 【PYTHON程序设计】期中准备
  12. 如何写好小论文论文摘要
  13. NYOJ-71:独木舟上的旅行
  14. Transformer15
  15. 向量的加减(输出重载)
  16. 一行能装逼的JavaScript代码的延伸
  17. Inner Join与Left Join
  18. VS2008运行过程中出现regsvr32问题解决方法记录
  19. weka中的arff格式数据
  20. vue百度地图引入聚合,点击聚合,label被清理掉问题解决。同步异步问题

热门文章

  1. python:私有变量和私有方法
  2. php中配置文件操作config.php文件的读取修改等操作
  3. 库卡工业机器人负载曲线图_DC电机性能曲线图
  4. 一键自动化批量安装服务脚本
  5. VUE element-ui之table表格表头下拉筛选功能
  6. 也说说家养猿类养成套路
  7. Window是系统中BitLocker是否应该开启?
  8. win10 启用BitLocker,保存恢复密钥时提示:BitLocker加密无法保存到Microsoft账户 的解决方法
  9. 执行ssh命令时报错CANNOT LINK EXECUTABLE “ssh“ library “libcrypto.so.1.1“ not found解决方法
  10. 5G(2)5G NR Redcap