返回列表 上一主題 發帖

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

回復 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

回復 5# irenemak2007
solely的程序沒錯 請附上實際檔案 看看

TOP

回復  irenemak2007
我猜想..可能是您的A欄資料筆數不足造成.
當 A欄位的資料筆數 小於 sheet 數量, ...
jackdream 發表於 2010-8-19 16:20

我猜: 可能是A欄有相同的資料 產生 1004的錯誤 "應用程式或物件定義上的錯誤"

TOP

        靜思自在 : 地上種了菜,就不易長草;心中有善,就不易生惡。
返回列表 上一主題