返回列表 上一主題 發帖

如何把工作表的名稱顯示為指定的儲存格內容?

回復 1# irenemak2007
  1. Sub Ex()
  2.     Dim i%
  3.     With Sheets(1)
  4.         .Range("A:A") = ""
  5.         For i = 1 To Sheets.Count
  6.             .Range("A" & i) = Sheets(i).Name
  7.         Next
  8.     End With
  9. End Sub
複製代碼

TOP

        靜思自在 : 有願放在心裡,沒有身體力行,正如耕田不播種,皆是空過因緣。
返回列表 上一主題