excel sheet中数据的快速复制
2006-04-25 13:06
351 查看
'利用Copymemory 复制数组,实现excel sheet中数据的任意复制,粘贴区域小于复制区域,数据将被截取,否则将用空格填充
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Sub copyrange(ByVal src As Range, ByVal dest As Range) ' copy all data from src to dest
Dim arrsrc(), arrdest()
arrsrc = src
arrdest = dest
ReDim arrdest(1 To dest.Rows.Count, 1 To dest.Columns.Count)
CopyMemory ByVal VarPtr(arrdest(1, 1)), ByVal VarPtr(arrsrc(1, 1)), 16 * src.Rows.Count * src.Columns.Count
dest = arrdest
Erase arrsrc
Erase arrdest
End Sub
Sub xxx() '将a1:c100 区域数据复制到d3:h40
copyrange Range("a1:c100"), Range("d3:h40")
End Sub
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Sub copyrange(ByVal src As Range, ByVal dest As Range) ' copy all data from src to dest
Dim arrsrc(), arrdest()
arrsrc = src
arrdest = dest
ReDim arrdest(1 To dest.Rows.Count, 1 To dest.Columns.Count)
CopyMemory ByVal VarPtr(arrdest(1, 1)), ByVal VarPtr(arrsrc(1, 1)), 16 * src.Rows.Count * src.Columns.Count
dest = arrdest
Erase arrsrc
Erase arrdest
End Sub
Sub xxx() '将a1:c100 区域数据复制到d3:h40
copyrange Range("a1:c100"), Range("d3:h40")
End Sub
相关文章推荐
- excel sheet中数据的快速复制
- Excel中快速复制四周单元格数据的快捷键
- excel sheet的 某列(m*n行) 快速复制到 m行n列区域
- Delhpi利用剪贴板快速导出(复制)数据到excel
- Excel中快速复制四周单元格数据的快捷键
- excel sheet的 某列(m*n行) 快速复制到 m行n列区域
- 【c#】 5. Tensor数据(用于Excel中不同sheet中都有矩阵的情况)
- 在MySQL中快速复制数据表方法汇总
- 快速导出数据到Excel(一):利用剪贴板
- VBA 从一个Excel文件复制一行数据到另一个Excel文件
- 常用代码备份--OLE操作Excel之sheet复制
- POI复制Excel模板并填充数据
- 从 Linq Queries 快速生成数据 HTML, EXCEL, CSV 报表
- Jxls导出excel的若干方式总结(十一)-- 同一个sheet中显示来自不同数据表的对象记录
- SQL Server 中的批量复制操作 (ADO.NET)--sqlserver快速写入大数据
- 快速将excel数据保存到Oracle数据库中
- 将excel中的数据快速插入表中
- Excel 复制一类数据到另一列合并过单元格的列中
- 如何使用户能像Excel一样方便的复制Datagridview中的单元格区域数据[C#]
- 快速导出数据到Excel(三):利用Excel内置功能