数组真的是"万能容器"吗？

aman1516 · 发表于 2021-1-21 14:24

源起：
数组内的值如何能带格式
http://club.excelhome.net/thread-1571172-1-1.html

把单元格装进数组内：

Sub tt() '合并单元格暂时无法处理
Dim rng As Range, r&, c&, i&, j&, k&, m&, n&
Dim arr
On Error Resume Next
With Sheets("Sheet1")
r = .[A65536].End(xlUp).Row
ReDim arr(1 To r, 1 To 4)
For i = 1 To 5
For j = 1 To 4
Set arr(i, j) = .Cells(i, j)
Next
Next
Range("F1:I255").Clear
For m = 1 To UBound(arr)
For n = 1 To UBound(arr, 2)
arr(m, n).Copy .Range("F6").Offset(m - 1, n - 1)
Next
Next
arr(4, 3).Copy .Range("F1")
End With
End Sub

复制代码

aman1516 · 发表于 2021-1-21 14:32

详见附件：

数组带单元格格式.rar (15.84 KB, 下载次数: 35)

aman1516 · 发表于 2021-1-21 15:51

本帖最后由 aman1516 于 2021-1-21 17:04 编辑

'合并单元格暂时无法处理

复制代码

补充内容 (2022-4-29 12:49):
’ 用 Set arr(i, j) = .Cells(i, j).MergeArea 解决，兼顾合并单元格

zjzyj · 发表于 2021-1-21 19:12

这个可不行的，不能让数组啥都能装，万一让坏人知道了在数组里藏个白粉什么的，那要闯大祸的

aman1516 · 发表于 2021-10-2 22:59

缘起：
在新建工作簿中如何引用另一个工作簿中的图片呢？
https://club.excelhome.net/thread-1479646-1-1.html

借用例子补充个示例，将图片放入到数组调用：

采购清单.rar (1.66 MB, 下载次数: 35)

zglibk · 发表于 2021-12-2 09:03

这个讨论的很深！

905738810 · 发表于 2021-12-2 10:52

数组能装什么首先是看数组的类型而决定的，比如long()就只能装整数,Object()就只能装对象，Variant()什么都可以装
数组装内容也是有讲究的，比如他装对象，装1万字符的文本，并不是数组的存储空间大，而是他只需要存储一个32位或64位整数
这个整数就是指向对象指向文本的内存地址（真实的存储空间），当数组要读取一个对象，只需要读取对象地址，在通过地址读取
对象的存储空间，就可以进行访问，所以不管多大的对象都是可以存的
Variant()为什么都能装，是因为他的占的了N个位置，其中有一个位置是描述实际数据类型，有一处空间存储数字类型，
有一处位置存了指向的地址（文本地址，对象地址），Variant会根据不同的数据类型来存储到不同的空间，这就是他为什么这么能装了

ykcbf1100 · 发表于 2021-12-7 14:00

aman1516 发表于 2021-1-21 14:32
详见附件：

这个行是行，但运行速度有点慢啊。

游乐缘 · 发表于 2021-12-7 14:05

留名学习ing

aman1516 · 发表于 2021-12-7 16:31

ykcbf1100 发表于 2021-12-7 14:00
这个行是行，但运行速度有点慢啊。

所有最终涉及到对单元格直接操作的，数据量大时都快不了

		自动登录	找回密码
密码			免费注册

[讨论] 数组真的是"万能容器"吗？