ExcelSheet名取得 Excel 2017.09.19 Excelで作成している社内マニュアルでシート名を目次とするためシート名を一括で取得する。 Visual Basic Sub sheetname() Dim i As Long For i = 1 To Worksheets.Count Cells(i, 1) = Worksheets(i).Name Next End Sub 123456 Sub sheetname()Dim i As LongFor i = 1 To Worksheets.Count Cells(i, 1) = Worksheets(i).NameNextEnd Sub
コメント