Excelでシート名を記録するVBA
Sub sheetName() Dim i As Long For i = 1 To Worksheets.Count Cells(2, i + 1) = Worksheets(i).Name Next i End Sub
川越市霞ヶ関のパソコン教室。完全個人指導でわかりやすい教室として評価をいただいております。
Sub sheetName() Dim i As Long For i = 1 To Worksheets.Count Cells(2, i + 1) = Worksheets(i).Name Next i End Sub