用户登陆
站点统计
最新评论
日志搜索
其他信息
笔记1 [ 日期：2017-09-18 ] With Me.Spreadsheet1
arr = .ActiveSheet.UsedRange
If Not IsEmpty(arr) Then
Range(.ActiveSheet.UsedRange(1).Address).Resize(UBound(arr), UBound(arr, 2)) = arr
End If
End With
引用通告地址 (0)：
http://www.cnng.net/blog/trackback.asp?tbID=99
http://www.cnng.net/blog/trackback.asp?tbID=99&CP=GBK