1问题

1.1 如何用VBA从EXCEL表取数据？

  • 有时候只是要把EXCEL表的数据读到VBA里
  • 经常，我们需要读入EXCEL的数据，且能明确的知道每列的意义，并且根据某一列（比如 id列/ index列 ）来像EXCEL一样查找其他数据
  • 其他对EXCEL数据的应用

1.2 问题升级

  • 如果不是excel呢
  • 如果是从xml文件读入的呢？ 识别, ？
  • 如果是从json文件读入呢？ 识别key:value?
  • 之后试试

2 如果只是要把EXCEL表的数据读到VBA里

2.1 取出Excel数据最直接的方法， array=range()

2.1.1 这种方法也叫 数组的整体赋值 / 一次性写入数组内容

  • 就是变量和数组array=range()
  • 一般认为range("") 会只能写死一个固定的区域，其实不然
  • 实际上 range("") 很灵活可以带参数
  1. range("") 内部""完全可以字符串拼接，可以按想法随意拼接，比如这样写 arr1 = sh1.Range("c" & 4 & ":h" & maxcount1 + 3)
  2. range(cells(),cells())更灵活，比如这样写 arr1 = sh1.Range(sh1.Cells(4, c1), sh1.Cells(maxcount1 + 3, 8))
  3. 但是要注意写成 sh1.range( sh1.cells(), sh1.cells()) ,而不是sh1.range( cells(), cells())
 Dim arr1arr1 = sh1.Range("c" & 4 & ":h" & maxcount1 + 3)         arr1 = sh1.Range(sh1.Cells(4, c1), sh1.Cells(maxcount1 + 3, 8))

2.1.2  一次性写入数组，需要注意的问题

  • 可以定义为变量arr1，然后变量 arr1=sh1.range()
  • 可以定义为动态数组，dim arr1() 且  redim  arr1()
  1. arr1()=range("")
  2. arr1()=range(cells(),cells())
  3. 都可以
  • 但是不能定义为静态数组 dim arr1(1 to 5) ，静态数组不能一次性写入内容。

'''   '遇到一个奇怪的问题，有一次居然遇到Range("b2:g17")可以，但是 sh1.Range("b2:g17")报错 类型不匹配？'array(）函数的index默认从0开始 ，除非有 option base 1等  array(）是默认从0开始
'ReDim Preserve arr1(maxcount1, 6)  这样index也会从0开始，最好写成  ReDim Preserve arr1(1 to maxcount1, 1 to 6)
'但是,无论有没有特殊声明，array()=range() 默认行，列都是从1开始
'而且如果用option base 1 或 dim ( 1 to 10) 都是从1开始Sub test11()''''--------------下面是把数值一次性装入数组！-------------------'方法1，定义为变量，一次性装入赋值，（变量指向 range 就会自动变成 动态数组）Dim sh1Set sh1 = ThisWorkbook.Worksheets("模拟")arr1 = sh1.Range("b2:g17")
'''   '遇到一个奇怪的问题，有一次居然遇到Range("b2:g17")可以，但是 sh1.Range("b2:g17")报错 类型不匹配？'方法2，类似方法1 定义为变量，且用range(cells(),cells())
'''    Dim arr1
'''    Set sh1 = ThisWorkbook.Worksheets("模拟")
'''    arr1 = sh1.Range(sh1.Cells(2, 2), sh1.Cells(17, 7))'方法3，定义为动态数组，可以一次性装入赋值/或者逐个写入都可以
'''      Dim arr1()
'''      ReDim arr1(1 To 16, 1 To 6)    '其中16，6等都可以是参数, 也可以是数字常数
'''      arr1() = sh1.Range("b2:g17")'错误方法01，定义为静态数组，是不行的，静态数组无法一次性装入数据，只能循环一个个写入。
'''      Dim arr1(1 To 16, 1 To 6)   '静态数组的定义，必须一次性dim（不能带参数），且不能redim
'''      arr1() = sh1.Range("b2:g17")    '静态数组不允许一次性装入'显示函数For i = LBound(arr1, 1) To UBound(arr1, 1)For j = LBound(arr1, 2) To UBound(arr1, 2)Debug.Print "arr1(" & i & "," & j & ")=" & arr1(i, j),NextDebug.PrintNextEnd Sub

2.1.3  VBA里一定要小心数组的起始 index() 是从0，还是从1开始

  • 'array(）函数的index默认从0开始 ，除非有 option base 1等  array(）是默认从0开始
  • 'ReDim Preserve arr1(maxcount1, 6)  这样index也会从0开始，最好写成  ReDim Preserve arr1(1 to maxcount1, 1 to 6)
  • '但是,无论有没有特殊声明，array()=range() 默认行，列都是从1开始 （EXCEL标都是从第1行，第1列开始的，EXCEL里没有0行0列这种标识方法，虽然VBA有）
  • '而且如果用option base 1 或 dim ( 1 to 10) 都是从1开始

2.1.4  一个奇怪的问题，备忘

  • '遇到一个奇怪的问题，有一次居然遇到Range("b2:g17")可以，但是 sh1.Range("b2:g17")报错 类型不匹配？

2.2 遍历一个区域的内容 -- 写入数组的写法

2.2.1 遍历写入数组， redim 时要特别注意多层循环，比如2维数组的内外层循环，行列谁在内层谁在外层的问题！

见下面的代码

  • 这个要注意
  • 其实一般EXCEL数据里，列数相对稳定（因为是 列名/字段名）
  • 一般行数会变化很多，经常增加什么的，所以行数一般需要是参数，比如下面的maxcount1, 需要根据实际数据变化maxcount1 = sh1.Cells(999, c1).End(xlUp).Row - 3
  • redim arr() 数组只能改变最后一维，不能2个维度都变化
  • redim preserve arr()
  • redim arr()  数组，要求先定义为数组， dim arr1() 不能是 dim arr1 定义为变量
  • 而且遍历时需要redim preserve arr() ，不加perserve 很可能只保留最后1个数组数据，
   '读入数据Dim sh1 As ObjectSet sh1 = ThisWorkbook.Worksheets("data")c1 = WorksheetFunction.Match("rank", sh1.Range("3:3"), 0)c2 = WorksheetFunction.Match("ID", sh1.Range("3:3"), 0)c3 = WorksheetFunction.Match("name", sh1.Range("3:3"), 0)c4 = WorksheetFunction.Match("权重", sh1.Range("3:3"), 0)c5 = WorksheetFunction.Match("name", sh1.Range("3:3"), 0)maxcount1 = sh1.Cells(999, c1).End(xlUp).Row - 3'根据需要去查全部的其他列数据'其实这个可以直接用   等同于 arr1=range("a1:h8")Dim arr1()For j = 1 To 8For i = 1 To maxcount1ReDim Preserve arr1(16, j)arr1(i, j) = Application.Index(sh1.Columns(c1 + j - 1), Application.Match(i, sh1.Columns(c1), 0))NextNext

2.2.2 双层循环的注意点！

  • 动态数组在循环外redim一次
  • 或 动态数组只在外层循环 redim，而在内层循环不redim
  1. 比如外层循环是列数，同时列数是最后1维，且redim 列数在变化（行数不能从小到大变化）
  • 或 动态数组在  内层循环，不断的 redim，但是需要知道，之后最后一维才可以redim，如果第一维也在redim 就会报错，实际上这种方法是等同于 动态数组只在外层循环 redim的

2.2.3  循环写入数组时可能遇到得错误和对应问题！

  • 语法错误
  • 如果 redim(i,j)  如果i 也在变化，就可能会报错   数组下标越界（实际是index越界，第一维度不让redim导致）
  • 逻辑错误
  1. 如果不写  redim preserve ，直接 redim 循环写入时，前面得数据会丢失，只有最后得数据
  2. 如果二维数组，双层循环配合  redim preserve写得不对，会导致只剩下第1列和最后1行数据,如果 内外层循环弄得不对，虽然没有语法错误，但是会造成逻辑错误，就是虽然 redim preserve了，但是因为 列数从大变小时，会裁剪数组，即使preserve也会丢失之前得数据
  3. 如果 redim preserve 还要写对 对应循环得层数，一般来说只在外层循环中。
  4. redim preserve arr1(i,j) 这样会造成多出0 行 0列数据来，因为这个例子之前arr1=range()里是从 1行1列开始得，所以要写成 redim preserve arr1( 1 to 16,1 to j) 才行！
Sub test12()''''--------------下面是用循环，逐个往数组里装入数值！-------------------
'''    '上面都是 数组一次性装入数值，下面是逐个装入数据的写法Dim arr1()Set sh1 = ThisWorkbook.Worksheets("模拟")c1 = Application.Match("牌数", sh1.Rows("1:1"), 0)maxcount1 = sh1.Cells(999, c1).End(xlUp).Row - 1'''    '方法4， 动态数组在循环外redim一次
'''    'ReDim Preserve arr1(maxcount1, 6)  '这行注释掉了是错的，这样会多出1行和1列，数组index默认从0开始
'''    ReDim Preserve arr1(1 To maxcount1, 1 To 6)   '其实这里只redim了一次，循环开始前已经界定了动态数组实际范围--
'''    For i = 1 To maxcount1
'''        For j = 1 To 6
'''            arr1(i, j) = Application.Index(sh1.Columns(c1 + j - 1), Application.Match(i, sh1.Columns(c1), 0))
'''        Next
'''    Next'方法5，动态数组，每次循环都在redim 数组大小（其实写的不太好，方法6更好）'redim 每次循环列都在变化（其实是外层循环时，数组最后一维才变化），同时内循环是行（内部循环时其实列数没变）
''''    For j = 1 To 6
''''        For i = 1 To maxcount1
''''             ReDim Preserve arr1(1 To maxcount1, 1 To j)    'arr1逐个数组从1列逐渐每次 + 新增1列 + 同时往新列里加数据
''''             arr1(i, j) = Application.Index(sh1.Columns(c1 + j - 1), Application.Match(i, sh1.Columns(c1), 0))
''''        Next
''''    Next'方法6， redim动态数组，写在外层循环内，更合适For j = 1 To 6ReDim Preserve arr1(1 To maxcount1, 1 To j)   'redim 放在外层循环更合适For i = 1 To maxcount1arr1(i, j) = Application.Index(sh1.Columns(c1 + j - 1), Application.Match(i, sh1.Columns(c1), 0))NextNext''''    '错误方法02,遍历时需要考虑 redim 扩展的方向--先填充(内循环的先填充)另外一个维度的内容-------内外2层嵌套次序要写对才行
''''    '因为只有最后1维可变化，也就是第1维，arr1数组行数始终是 maxcount1=16
''''    '这样得出的结果是，第1列和最后一行有数据，其他都空的，为啥呢
''''    '因为 第二维列j一直从1变6，又从6变1，从6变1的时候即使有redim也因为列数变小而丢失了数据
''''    '所以前面的行都只有第1列有数保留，j=2-5都被删掉了,而最后1行是因为j=6循环结束了不再缩小为1了
''''    For i = 1 To maxcount1
''''        For j = 1 To 6
''''             ReDim Preserve arr1(1 To maxcount1, 1 To j)   '只有最后1维允许动态调整，前面那一维不能
''''            arr1(i, j) = Application.Index(sh1.Columns(c1 + j - 1), Application.Match(i, sh1.Columns(c1), 0))
''''        Next
''''    Next
''''''''    '错误方法03，i修改为16/ maxcount1就对了,因为VBA里动态数组redim只允许最后1列改变
''''    For j = 1 To 6
''''        For i = 1 To maxcount1
''''            ReDim Preserve arr1(1 To 16, 1 To j)           '会报错下标index越界，
''''            arr1(i, j) = Application.Index(sh1.Columns(c1 + j - 1), Application.Match(i, sh1.Columns(c1), 0))
''''        Next
''''    Next'显示函数For i = LBound(arr1, 1) To UBound(arr1, 1)For j = LBound(arr1, 2) To UBound(arr1, 2)Debug.Print "arr1(" & i & "," & j & ")=" & arr1(i, j),NextDebug.PrintNextEnd Sub

3 需要按一定的规则（关键信息）定位/查找数据

3.1取出的数据，一般需要根据哪些 关键信息来定位/查找呢？

  • 关键信息：列名（字段名）
  • 关键信息，行名 + 列名
  • 关键信息：其他

3.2 首先用 match() 等很方便的去查找要找信息的 行/列 号信息

  • 用 match() ，根据 列名（比如rank） 去取得关键的行/列 号信息
  • 然后怎么利用这些  行/列 号信息 去查到具体的数据

3.2.1  总体来说，用  r1c1模式去 定位数据 更方便

  • 可用的函数
  • indirect(r1c1,false)
  • index( range, row,column)
  • 其他函数

3.2.2 indirect() +match()

  • indirect("r1c1",false)
  • indirect("r"& 1 & "c" & 2,false)  其中& 用concatenate() 是可以的
  • indirect("r"& match() & "c" & match() ,false)

3.2.3  用 index() +match()

  • index( range ,row ,column) 可以定位到数据
  • index( range ,match() ,match())

3.3 定位的技巧问题

3.3.1 用 row+ column 定位到一个单元格

  • 如果用range()
  • range("") 直接用的是 A1模式，但是可以拼接字符串
  • range("") 内部""完全可以字符串拼接，可以按想法随意拼接，比如这样写 arr1 = sh1.Range("c" & 4 & ":h" & maxcount1 + 3)
  • 想用range()  且用r1c1模式，就需要用到range(cells(),cells())
  • range(cells(),cells())更灵活，比如这样写 arr1 = sh1.Range(sh1.Cells(4, c1), sh1.Cells(maxcount1 + 3, 8))

3.3.2 如果想表示 1行1列

  • 用range() 还是 A1模式，且用不了range(cells(),cells())
  • 只能是
  • range("3:3")
  • range("A:A")

更好的方法是用 rows()  columns() 表示1行，1列更简洁

rows(3)  和 columns(3) 天生的就是 r1c1的引用格式，很简洁

  • rows(3)
  • columns(3)
  • 比如下面
  • m1 = Application.Index(sh1.Columns(c2), Application.Match(5, sh1.Columns(c1), 0))

3.3.3 如果想表示 1个区域

  • range("") 是很直接的
  • 用数组，尤其是 二维数组，array() 存储 EXCEL的数据是非常合适的
  • 下面也有例子
   '读入数据Dim sh1 As ObjectSet sh1 = ThisWorkbook.Worksheets("data")c1 = WorksheetFunction.Match("rank", sh1.Range("3:3"), 0)c2 = WorksheetFunction.Match("ID", sh1.Range("3:3"), 0)c3 = WorksheetFunction.Match("name", sh1.Range("3:3"), 0)c4 = WorksheetFunction.Match("权重", sh1.Range("3:3"), 0)c5 = WorksheetFunction.Match("name", sh1.Range("3:3"), 0)maxcount1 = sh1.Cells(999, c1).End(xlUp).Row - 3'测试，用rank=5这个信息去查找对应的id是多少m1 = Application.Index(sh1.Columns(c2), Application.Match(5, sh1.Columns(c1), 0))'根据需要去查全部的其他列数据'其实这个可以直接用   等同于 arr1=range("a1:h8")Dim arr1()For j = 1 To 8For i = 1 To maxcount1ReDim Preserve arr1(16, j)arr1(i, j) = Application.Index(sh1.Columns(c1 + j - 1), Application.Match(i, sh1.Columns(c1), 0))NextNext

3.3.4  使用match() 等函数时，尽量带参数，不要带写死的列名等

  • 比较下面2句写法
  • Application.Match(ra1, sh1.Columns(c1), 0))
  • Application.Match(i, sh1.Range("c:c"), 0)

'更好的写法，带着参数

c1 = WorksheetFunction.Match("rank", sh1.Range("3:3"), 0)

sh2.Cells(bb, 3) = Application.Index(sh1.Columns(c2), Application.Match(ra1, sh1.Columns(c1), 0))

' 这种写法不好，因为写死了列名，之后不好修改
arr1(i) = WorksheetFunction.Match(i, sh1.Range("c:c"), 0)

4  如果从 xml 或 json 里读到VBA ，差别是什么？

4.1 可以尝试的文件格式，xml json

  • 如果不是excel呢
  • 如果是从xml文件读入的呢？ 识别, ？
  • 如果是从json文件读入呢？ 识别key:value?
  • 之后试试

如何用VBA从EXCEL表取数据？问题1：1次性整体写入，还是循环写入数组呢？ 问题2：取得数据后如何定位需要的那个？相关推荐

  1. code的bootstrap如何有提示 vs_如何用DataFocus对Excel表中数据进行分析？

    常见的数据分析方法有 结构分析.对比分析.平均分析和交叉分析等等.那么,如何用DataFocus进行数据分析?如何对Excel表中数据进行分析呢?接下来,我们先简单看下对Excel表中数据进行结构分析 ...

  2. Python openpyxl打开有公式的excel表取值错误的解决办法，Python openpyxl获取excel有公式的单元格的数值错误，Python操作excel（.xlsx）封装类

    Python openpyxl打开有公式的表格,如果直接读取,会出现有公式的单元格为空或零的情况. 参见: https://blog.csdn.net/weixin_45903952/article/ ...

  3. python怎么合并多个excel表 视频_()如何用python合并两个excel表格

    ()如何用python合并两个excel表格 python合并excel表格视频教程2020-09-25 04:04:33人已围观 python实现excel合并 Created on Mon Mar ...

  4. python合并excel表数据_23.python之excel多表合并

    关于python的应用办公中很常见,尤其是对于数量较多的重复性操作.本节课要做的是将多张excel表中的信息合并到一张excel表中. 新建一个文件夹名为[merge],里面放入三个名为[销售订单信息 ...

  5. 使用JAVA流操作(POI)将Excel表中数据取出，并直接生成完整SQL语句

    使用POI读取excel,并输出为sql语句 一.准备工作 二.编写代码(Transform.java) 三.完整代码 四.POI所有常用方法参考 个人文章地址 一.准备工作 1.1.新建一个普通的M ...

  6. 关于扫码签到统计信息，一键导出excel表

    1.首先进入草料二维码官网 2.微信扫码登录注册,登录成功后即可进入草料二维码后台(手机微信小程序也可以实时查看后台数据) 3.根据自己需要创建活动二维码(选择自己喜欢的模板,这里我们选择的是会议签到 ...

  7. VBA跨表操作和取数据的各种问题，如跨表取其他EXCEL工作簿的sheet名

    1 本地取其他EXCEL的表名,很简单 1.1 下面2种写法都是可以的 Sub williamDing1() k = 1 For i = 1 To Worksheets.CountWorksheets ...

  8. 集思录REITs基金数据python爬取写入EXCEL表

    本文主要讲述REITs基金相关内容, 封闭基金数据获取参见: 集思录封闭基金数据python爬取写入excel表 国债数据获取参见: 和讯网债券数据Python爬取保存成CSV文件之一 1.什么是RE ...

  9. 集思录封闭基金数据python爬取写入excel表

    本文是在之前文章"集思录REITs基金数据python爬取写入EXCEL表"的基础上写成的. 封闭式基金,是相对于开放式基金而言的,是指基金规模在发行前已确定,在发行完毕后和规定的 ...

最新文章

  1. 【转载】wpf学习笔记1
  2. 中文论文万能句型_SCI 论文写作万能句型汇总（很实用）
  3. java 风格的正则表达式 vs Perl风格的正则表达式
  4. 05-xpath爬虫数据解析
  5. 应该怎么做一个登录功能?
  6. windows下eclipse调试hadoop详解
  7. 系统集成资质培训 - 2013下半年系统集成资质申报及集成资质考试
  8. pandas学习、热力图、子图
  9. html div自动撑起来,解决子级用css float浮动 而父级div没高度不能自适应高度
  10. Ubuntu系统下面软件安装更新命令
  11. ios 开发证书导出p12文件_iOS 证书(.p12)和描述文件(.mobileprovision)的导出和使用方法...
  12. 【Swift】401状态处理流程
  13. 降甘油三脂 的中药/中成药
  14. 未来十年人工智能和机器学习，主要造就了哪些新职位？
  15. rk3568安卓11系统之开发环境搭建
  16. java编写流星_【原创】java 流星划过天空
  17. Friendly ARM开发板安装Linux系统教程
  18. 一个加密PHP脚本的解码方法
  19. IT 规划 之 企业架构
  20. java gis离线地图_java离线地图web GIS制作

热门文章

  1. Aspose for Java 去除水印和数量限制
  2. 设置 app 不能在模拟器上运行
  3. 汇编实验5 DOS、BIOS调用
  4. juniper官网相关网址
  5. 网站日志流量分析系统之（日志收集）
  6. 【Android】Android入门
  7. FSM——squirrel状态机使用
  8. ENET库（可靠UDP）
  9. UML用例图-用例图
  10. python跑神经网络_程序员深夜用Python跑神经网络，只为用中二动作关掉台灯