VBA Range与数组互相赋值
2012-11-19 22:39
429 查看
Sub test()
'Range赋值给数组（利用Application.WorksheetFunction.Transpose）
' Dim myData
' myData = Application.WorksheetFunction.Transpose(Range("a1:e5"))
' MsgBox "共有" & UBound(myData) & "个数据！"
Dim objrge As Range
Set objrge = Sheets(1).Range("a11:e15")
objrge.Value = myData
'Range赋值给数组
myarr = Range("a1:e5")
'数组赋值给Range
Set objrge = Sheets(1).Range("a11:e15")
objrge.Value = myarr
End Sub
'Range赋值给数组（利用Application.WorksheetFunction.Transpose）
' Dim myData
' myData = Application.WorksheetFunction.Transpose(Range("a1:e5"))
' MsgBox "共有" & UBound(myData) & "个数据！"
Dim objrge As Range
Set objrge = Sheets(1).Range("a11:e15")
objrge.Value = myData
'Range赋值给数组
myarr = Range("a1:e5")
'数组赋值给Range
Set objrge = Sheets(1).Range("a11:e15")
objrge.Value = myarr
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 不同类型数组互相赋值
- 数组为什么不能用“=”互相赋值
- 【Python】多维narray数组的子数组仍然是narray格式，赋值也无法改变这一点
- 【Oracle】集合（联合数组（索引表），嵌套表，变长数组，记录类型的嵌套表）的初始化与赋值，以及它们的区别
- 结构体初始化及结构体指针.结构体数组.结构体函数的调用赋值等
- 直接对Object数组进行赋值
- PHP 数组和字符串互相转换实现方法
- php 对象和数组的赋值过程
- JAVA中数组的定义格式以及赋值
- 第十三周 项目1.1 1.2 1. 3 ——数组的赋值与输出
- 数组赋值。
- 关于字符数组赋值问题
- 字符数组赋值方法
- JS脚本:JS子父窗口互相操作取值赋值的方法介绍
- 关于结构体数组的赋值问题
- 给字符数组赋值的方法
- 给动态数组一次性赋值
- java byte数组与short数组互相转换
- 如何让boost::any支持字符数组赋值
- 16进制字符串和字节数组互相转换