返回列表 上一主題 發帖

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

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

        靜思自在 : 人的眼睛長在前面,只看到別人的缺點,絲毫看不到自己的缺點。
返回列表 上一主題