excel sheet的 某列(m*n行) 快速复制到 m行n列区域
2006-04-24 09:20
477 查看
'以下代码可以利用非循环的方式,实现把[a1:a12]的数据快速复制到[b1:e3]:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Sub xxx()
Dim arr1(), arr2(1 To 3, 1 To 4)
arr1 = Range("a1:a12")
CopyMemory ByVal VarPtr(arr2(1, 1)), ByVal VarPtr(arr1(1, 1)), 12 * 16'variant需要16个字节存储空间
Range("b1:e3") = arr2
End Sub
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Sub xxx()
Dim arr1(), arr2(1 To 3, 1 To 4)
arr1 = Range("a1:a12")
CopyMemory ByVal VarPtr(arr2(1, 1)), ByVal VarPtr(arr1(1, 1)), 12 * 16'variant需要16个字节存储空间
Range("b1:e3") = arr2
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- excel sheet的 某列(m*n行) 快速复制到 m行n列区域
- excel sheet中数据的快速复制
- excel sheet中数据的快速复制
- Excel中快速复制四周单元格数据的快捷键
- excel快速复制大量公式的方法
- EXCEL 移动或复制sheet到另一个工作簿
- Excel中Sheet复制
- Qt快速读取Excel大文件——读取整个sheet
- VC 操作Excel sheet复制、重命名
- Excel中快速复制四周单元格数据的快捷键
- poi操作excel，复制sheet，复制行，复制单元格 .
- QT QAxObject 复制Excel Sheet方法
- 用python快速将excel（含多sheet）导入MySQL（兼容中文）
- Markdown 从excel快速复制表格
- C# 操作Excel ---复制Excel的sheet
- excel快速选定特定区域
- 关于C#操作Excel,复制Sheet的记录
- python实现跨excel的工作表sheet之间的复制方法
- NPOI 将一个sheet指定区域复制到另一个sheet，复制数据，样式和备注
- excel如何快速实现数据区域的框选