<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)論
      
    主站蜘蛛池模板: 国产成人青青热久免费精品| 16女性下面扒开无遮挡免费| 日韩免费视频一区| 嫩草在线视频www免费看| 亚洲国产中文字幕在线观看| 国产精品亚洲综合天堂夜夜| 免费看大黄高清网站视频在线| 国产99在线|亚洲| 国产免费看JIZZ视频| 亚洲免费二区三区| 午夜网站免费版在线观看| 亚洲日韩乱码中文无码蜜桃臀网站| xxxxx做受大片在线观看免费| 中文字幕亚洲专区| 无码国产精品一区二区免费式芒果| 亚洲天天做日日做天天欢毛片| 5g影院5g天天爽永久免费影院| 亚洲天堂一区在线| 成人免费视频一区二区三区| 亚洲日韩一区二区三区| 我要看免费的毛片| 曰批全过程免费视频免费看| 麻豆最新国产剧情AV原创免费| 亚洲一级特黄特黄的大片| 啦啦啦手机完整免费高清观看| 另类小说亚洲色图| 亚洲AV无码一区二区乱孑伦AS| 亚洲网站免费观看| 亚洲爆乳成av人在线视菜奈实| 亚洲国产一区二区三区| 99热这里只有精品免费播放| 亚洲人配人种jizz| 亚洲AV之男人的天堂| 日本免费一区二区久久人人澡| 亚洲中文久久精品无码1| 免费永久在线观看黄网站| 日韩电影免费在线观看中文字幕| 亚洲国产精品人久久电影| 亚洲阿v天堂在线2017免费| 99视频有精品视频免费观看| 亚洲精品无播放器在线播放|