Http://www.cnng.net  首页 原创软件   VB文挡  VB资源   乱舞人生  资源   Tags  给我留言 
用户登陆
用户:
密码:
 

站点日历
73 2017 - 9 48
     12
3456789
10111213141516
17181920212223
24252627282930


站点统计

最热日志

最新评论

日志搜索

 

友情链接
显示模式: 普通模式 | 列表模式 
晴天 笔记1   [ 2017-09-18  |  本站原创 ]
Dim arr
    With Me.Spreadsheet1
        arr = .ActiveSheet.UsedRange
        If Not IsEmpty(arr) Then
            Range(.ActiveSheet.UsedRange(1).Address).Resize(UBound(arr), UBound(arr, 2)) = arr



阅读全文……