百度360必应搜狗淘宝本站头条
当前位置:网站首页 > 热门文章 > 正文

Vba第三十二课(vba教程80集)

bigegpt 2025-05-02 16:44 13 浏览

Vba第三十二课

数组概念

数组是一个列表或者一组数据表

数组位置

数组存储在内存中

数据特点

a、读写速度快;b、无法永远保存(内存只是暂存空间)

数组分类

a、常量数组、静态数组、动态数组

b、按维度分为:1维、2维、……60维

所以以前讲的对单元格的操作在数据量大的情况下会运行的非常缓慢,有必要将它们放入数组进行数据清洗运算,将会大大提高数据处理能力,缩短运行时间;

例:

Sub test1()

Dim arr1(3)

Dim arr2(1 to 3)

Dim arr3(1 to 3,1 to 2)

end sub

如图:

Dim arr1(3)

声明一个数组,但数组从0开始计数到3 为止,有4行,如图1 ,因为我们只是声明一个数组,并没有赋值,所以值都为空值;可以简单的认为这个一维数组就相当excel表格中的一行,比如相当于A1:D1;

Dim arr2(1 to 3)

声明一个数组,从1开始计数到3 为止,有3行,如图2 ,它也是一个一维数组,我们不习惯从0开始,所以一般我们自定义从1开始比较符合我们的习惯;

Dim arr3(1 to 3,1 to 2)

声明一个数组,它是一个二维数组,前1 to 3是确认它有三行,后1 to 2 是确认它有二列,也可以简单的认为这个二维数组相当于excel表格中的三行二列,比如相当于A1:C2,arr3(1,1)就表示A1,arr3(3,2)表示C2,虽然这个比喻不太恰当,但比较好理解。

Array用法

例:

Sub test2()

Dim arr1, arr2

arr1 = Array(1, 2, 3, 4)

arr2 = [{"甲",1;"乙",2;"丙",3}]

Sheets("Sheet1").[a1].Resize(, 4) = (arr1)

Sheets("Sheet1").[a3].Resize(3, 2) = (arr2)

End Sub

如图:

arr1 = Array(1, 2, 3, 4)

array() 函数用于创建数组,arr1 = Array(1, 2, 3, 4)表示对arr1一维数组赋了4个值,如上图红框;

arr2 = [{"甲",1;"乙",2;"丙",3}]

生成了一个二维数组,如上图红框中每一行,每一列都赋值,可能一些没接触过数组的可能无法理解,我们接着往下看,大家就容易理解了;

如图:

Sheets("Sheet1").[A1].Resize(, 4) = (arr1)

这名代码的意思就是把arr1一维数组的值赋给单元格,.Resize(, 4)表示从单元格A1向右扩展4个单元格,如果没有逗号.Resize(4)表示向下扩充4个单元格,如图单元格A1:D1就被赋于了数组arr1内的值;

Sheets("Sheet1").[A3].Resize(3, 2) = (arr2)

这是一个二维数组赋值给单元格,.Resize(3, 2)表示从单元格A3向下扩展了3个单元格,同时也向右扩展了2个单元格,正好可以放下二维数组的内所有的值;

如果觉得有帮助的话记得关注和点赞,有不懂的地方可以私信我,需要表格素材的也可私信给我转发给你们。

如果各位在实际工作中遇见excel常规方法无法解决的或操作比较复杂的报表可以私信我,可以免费编写代码来解决!

相关推荐

当Frida来“敲”门(frida是什么)

0x1渗透测试瓶颈目前,碰到越来越多的大客户都会将核心资产业务集中在统一的APP上,或者对自己比较重要的APP,如自己的主业务,办公APP进行加壳,流量加密,投入了很多精力在移动端的防护上。而现在挖...

服务端性能测试实战3-性能测试脚本开发

前言在前面的两篇文章中,我们分别介绍了性能测试的理论知识以及性能测试计划制定,本篇文章将重点介绍性能测试脚本开发。脚本开发将分为两个阶段:阶段一:了解各个接口的入参、出参,使用Python代码模拟前端...

Springboot整合Apache Ftpserver拓展功能及业务讲解(三)

今日分享每天分享技术实战干货,技术在于积累和收藏,希望可以帮助到您,同时也希望获得您的支持和关注。架构开源地址:https://gitee.com/msxyspringboot整合Ftpserver参...

Linux和Windows下:Python Crypto模块安装方式区别

一、Linux环境下:fromCrypto.SignatureimportPKCS1_v1_5如果导包报错:ImportError:Nomodulenamed'Crypt...

Python 3 加密简介(python des加密解密)

Python3的标准库中是没多少用来解决加密的,不过却有用于处理哈希的库。在这里我们会对其进行一个简单的介绍,但重点会放在两个第三方的软件包:PyCrypto和cryptography上,我...

怎样从零开始编译一个魔兽世界开源服务端Windows

第二章:编译和安装我是艾西,上期我们讲述到编译一个魔兽世界开源服务端环境准备,那么今天跟大家聊聊怎么编译和安装我们直接进入正题(上一章没有看到的小伙伴可以点我主页查看)编译服务端:在D盘新建一个文件夹...

附1-Conda部署安装及基本使用(conda安装教程)

Windows环境安装安装介质下载下载地址:https://www.anaconda.com/products/individual安装Anaconda安装时,选择自定义安装,选择自定义安装路径:配置...

如何配置全世界最小的 MySQL 服务器

配置全世界最小的MySQL服务器——如何在一块IntelEdison为控制板上安装一个MySQL服务器。介绍在我最近的一篇博文中,物联网,消息以及MySQL,我展示了如果Partic...

如何使用Github Action来自动化编译PolarDB-PG数据库

随着PolarDB在国产数据库领域荣膺桂冠并持续获得广泛认可,越来越多的学生和技术爱好者开始关注并涉足这款由阿里巴巴集团倾力打造且性能卓越的关系型云原生数据库。有很多同学想要上手尝试,却卡在了编译数据...

面向NDK开发者的Android 7.0变更(ndk android.mk)

订阅Google官方微信公众号:谷歌开发者。与谷歌一起创造未来!受Android平台其他改进的影响,为了方便加载本机代码,AndroidM和N中的动态链接器对编写整洁且跨平台兼容的本机...

信创改造--人大金仓(Kingbase)数据库安装、备份恢复的问题纪要

问题一:在安装KingbaseES时,安装用户对于安装路径需有“读”、“写”、“执行”的权限。在Linux系统中,需要以非root用户执行安装程序,且该用户要有标准的home目录,您可...

OpenSSH 安全漏洞,修补操作一手掌握

1.漏洞概述近日,国家信息安全漏洞库(CNNVD)收到关于OpenSSH安全漏洞(CNNVD-202407-017、CVE-2024-6387)情况的报送。攻击者可以利用该漏洞在无需认证的情况下,通...

Linux:lsof命令详解(linux lsof命令详解)

介绍欢迎来到这篇博客。在这篇博客中,我们将学习Unix/Linux系统上的lsof命令行工具。命令行工具是您使用CLI(命令行界面)而不是GUI(图形用户界面)运行的程序或工具。lsoflsof代表&...

幻隐说固态第一期:固态硬盘接口类别

前排声明所有信息来源于网络收集,如有错误请评论区指出更正。废话不多说,目前固态硬盘接口按速度由慢到快分有这几类:SATA、mSATA、SATAExpress、PCI-E、m.2、u.2。下面我们来...

新品轰炸 影驰SSD多款产品登Computex

分享泡泡网SSD固态硬盘频道6月6日台北电脑展作为全球第二、亚洲最大的3C/IT产业链专业展,吸引了众多IT厂商和全球各地媒体的热烈关注,全球存储新势力—影驰,也积极参与其中,为广大玩家朋友带来了...