excel 动态追加sheet 并命名sheet

例如  在一个excel里面有如下数据 和按钮一个
省份 城市
山东 济南
山东 青岛
北京 北京
天津 天健点击按钮时 
要求是按照省份 追加sheet 一个省份一个sheet 并且这个sheet的名字是省份的名字 
最终结果是 在一个新的excel里面有 3个sheet 
第一个 sheet 名字是 山东  里面有2数据
第二个sheet 名字是北京 里面有1条数据
、、、、
数据时动态的 省份不确定 请高手多帮忙 谢谢

解决方案 »

  1.   

            Set xlsheet = xlbook.Sheets.Add
            xlsheet.Name = 
      

  2.   


    手动把数据粘贴到一个excel里面  这个excel里面有个按钮功能  数据是不确定的     就是说动态的数据怎么按照省份分别弄到不同的sheet里面  
      

  3.   

    没有你的文件，不清楚具体情况，只能给你个示意
    for i=1 to sheet1.UsedRange.Rows.Count
        if sheet1.cells(i,1)<>"" then
             Set xlsheet = xlbook.Sheets.Add
             xlsheet.Name = sheet1.cells(i,1)
        end if
    next i
        
      

  4.   


    在请教下 能不能在生成的每个sheet里面都自动加上表头啊  就是第一行都是省份 城市
    每次都是从第二行开始粘贴啊？ 
      

  5.   

    把你的城市名称填入第一行
    xlsheet.PageSetup.PrintTitleRows = "$1:$1"
    数据从第二行粘
    xlsheet.Range("A2").Paste