<rt id="bn8ez"></rt>
<label id="bn8ez"></label>

  • <span id="bn8ez"></span>

    <label id="bn8ez"><meter id="bn8ez"></meter></label>

    隨筆-94  評(píng)論-56  文章-3  trackbacks-0

    問(wèn)題:
    一個(gè)EXCEL中有N個(gè)SHEET
    想把所有的SHEET的名字都讀到一個(gè)SHEET中。

    解決方案:
    1、點(diǎn)擊工具--選項(xiàng)--安全性--宏安全性--在安全級(jí)里面選擇最后一個(gè)低。
    2、點(diǎn)擊工具--宏--宏--在宏名中輸入SheetName--點(diǎn)擊創(chuàng)建按鈕。
    3、將下面的代碼復(fù)制、粘貼--按F5執(zhí)行

    Sub SheetName()

        For i = 1 To Sheets.Count
               
                Worksheets(Sheets(1).Name).Cells(i, 1).Value = Sheets(i).Name
        Next i

    End Sub

    注意:
     1、Worksheets(Sheets(1).Name)是你的第一個(gè)sheet,你也可以改成 Worksheets("sheetname"),其中的sheetname是你想要存放的sheet的名稱(chēng)
    2、Cells(i, 1)中的1代表是第一列既A列,你也可以改成2、3、4……依此類(lèi)推分別代表B、C、D列

    posted on 2008-02-21 09:57 小言身寸 閱讀(5733) 評(píng)論(3)  編輯  收藏 所屬分類(lèi): 軟件應(yīng)用

    評(píng)論:
    # re: 使用EXCEL宏取得所有Sheet名 2009-03-20 11:35 | HAN
    太好了,第一次用宏,還這好用,多謝啊!  回復(fù)  更多評(píng)論
      
    # re: 使用EXCEL宏取得所有Sheet名 2010-07-11 17:29 | BBQ

    Sub SheetName()

    For i = 1 To Sheets.Count

    Worksheets(Sheets(1).Name).Cells(i, 1).Value = Sheets(i).Name
    Next i

    End Sub

    簡(jiǎn)化
    Worksheets(Sheets(1).Name) = Worksheets(i)  回復(fù)  更多評(píng)論
      
    # re: 使用EXCEL宏取得所有Sheet名 2010-07-11 17:32 | BBQ
    上面的表述應(yīng)該如下
    Worksheets(Sheets(1).Name) 可以被 Worksheets(1) 替換

    這樣比較簡(jiǎn)單:)  回復(fù)  更多評(píng)論
      
    主站蜘蛛池模板: 日本红怡院亚洲红怡院最新| 99在线视频免费观看视频| 免费成人av电影| 在线视频亚洲一区| 国产免费久久精品| 深夜特黄a级毛片免费播放| 国产99在线|亚洲| 中文字幕无码免费久久99 | 亚洲一区二区三区香蕉| 一边摸一边桶一边脱免费视频 | 黄色a三级三级三级免费看| 国产91在线免费| 国产乱妇高清无乱码免费| 亚洲日韩中文字幕在线播放| 日韩精品免费视频| 久久夜色精品国产噜噜亚洲AV| 国产偷国产偷亚洲清高APP| 俄罗斯极品美女毛片免费播放| 一级特黄a大片免费| 亚洲AV无码第一区二区三区| 美女内射无套日韩免费播放 | 日韩在线播放全免费| 亚洲精品天堂在线观看| 免费人成年轻人电影| 成人免费区一区二区三区| 国产乱弄免费视频| 青青操在线免费观看| 亚洲国产成人超福利久久精品| 成人免费男女视频网站慢动作| 亚洲欧洲国产成人精品| 好吊妞在线成人免费| 岛国精品一区免费视频在线观看| 亚洲国产美国国产综合一区二区| 青青在线久青草免费观看| 国产精品亚洲AV三区| 亚洲成a人片在线观看无码| aⅴ在线免费观看| 草久免费在线观看网站| 久久亚洲AV成人无码| 精品国产麻豆免费网站| 国产一区二区三区免费观在线|