<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)論
      
    主站蜘蛛池模板: 无码免费一区二区三区免费播放| 国产成人亚洲综合网站不卡| 亚洲AV无码乱码国产麻豆| 亚洲人成免费电影| 看免费毛片天天看| 久久精品无码专区免费青青| 国产公开免费人成视频 | 一二三四免费观看在线视频中文版 | 国产成人免费ā片在线观看老同学 | 亚洲精品在线播放| 日韩一区二区三区免费播放| 1000部无遮挡拍拍拍免费视频观看| 免费久久精品国产片香蕉| 久久夜色精品国产噜噜噜亚洲AV| 国产综合激情在线亚洲第一页| 日本免费一区尤物| 亚洲avav天堂av在线网爱情| 久久99免费视频| 免费中文字幕不卡视频| 黄网站色视频免费看无下截| 成人免费看片又大又黄| 久久亚洲AV无码精品色午夜麻豆 | 最近的免费中文字幕视频| 亚洲av无码一区二区三区人妖| 性色午夜视频免费男人的天堂| 久久亚洲中文字幕精品有坂深雪 | 亚洲人成无码网站在线观看| 99久久免费中文字幕精品| 亚洲婷婷国产精品电影人久久| 亚洲国产成人精品无码区花野真一| 18以下岁毛片在免费播放| 亚洲国产亚洲片在线观看播放| 免费国产作爱视频网站| 亚洲精品视频免费在线观看| 我要看免费的毛片| 一级免费黄色大片| 亚洲区小说区图片区| 美女被暴羞羞免费视频| 亚洲乱码中文字幕久久孕妇黑人| 亚洲αv久久久噜噜噜噜噜| 亚洲一区二区三区免费在线观看 |