设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2590|回复: 2
打印 上一主题 下一主题

[基础应用] 新建sheet并拷贝,代码出错求救

[复制链接]
跳转到指定楼层
1#
发表于 2008-12-12 05:38:36 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
原始数据在一个sheet("all")里,按年份(列K)排序。现在要:
1.新建sheet,以年份命名;
2.将all里的各行,按照年份,拷贝到相应的新建sheet中去,
写了一段代码,运行时总是出现错误,还请高手指教。万分感谢!
Sub Macro1()
    Dim i As Long, iBegin As Long, iEnd As Long
    i = 2
    iBegin = 2
    While Cells(K, i) <> ""
        If (Cells(K, i) <> Cells(K, i + 1)) Then
            iEnd = i
            Sheets.Add(after:=Sheets(Sheets.Count)).Name = Cells(K, i)                                    ‘新建sheet并命名
            Sheets("all").Rows(1).Copy Sheets("Cells(K, i)").Rows(1)                                          ’拷贝标题行
            Sheets("all").Rows("iBegin:iEnd").Copy Sheets("Cells(K, i)").Rows(2)                        ‘拷贝年份相同的行
            iBegin = i + 1
        End If
        i = i + 1
    Wend
End Sub

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2008-12-12 15:53:50 | 只看该作者
去掉引用值前后的"号试试(未测试)
Sheets("all").Rows(iBegin & ":" & iEnd).Copy Sheets(Cells(K, i)).Rows(2)
3#
发表于 2008-12-12 20:11:10 | 只看该作者
Try.......

Dim Shname as string
SHname=Cells(K, i).value   
Sheets("all").Rows(iBegin & ": " &iEnd).Copy Sheets(ShName).Rows(2)

[ 本帖最后由 方漠 于 2008-12-12 20:12 编辑 ]
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-14 10:48 , Processed in 0.097244 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表