請問Excel中如何用VBA批量操作 使得單元格E1的名稱為該sheet的名稱呢？代碼怎么撰寫呢？
小白求教
！！感謝感謝！
uj5u.com熱心網友回復：
Sub Macro1()
For Each Sheet In Sheets
If Trim(Sheet.Cells(5, 1).Text <> "") Then
Sheet.Name = Sheet.Cells(5, 1).Text
End If
Next
End Sub
uj5u.com熱心網友回復：
trim那句的括號的位置有點錯了，用下面這個Sub Macro1()
For Each Sheet In Sheets
If Trim(Sheet.Cells(5, 1).Text )<> "" Then
Sheet.Name = Trim(Sheet.Cells(5, 1).Text )
End If
Next
End Sub
uj5u.com熱心網友回復：
好的，我試一下，感謝感謝
uj5u.com熱心網友回復：
1. 你這個是A5單元格不是E1單元格;
2. 你這個是把單元格內容賦值給表名,不是把表名賦值給單元格;
uj5u.com熱心網友回復：
哎呀，看著急了，看錯了，不好意思，不好意思
uj5u.com熱心網友回復：
Sub Macro1()
For Each Sheet In Sheets
Sheet.Cells(1, 5) = Sheet.Name
Next
End Sub
uj5u.com熱心網友回復：
那請問如果是指定檔案是sheet名稱呢？就是同檔案夾下另外一個作業簿的sheet名寫入這個單元格呢？轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/18482.html
標籤：VBA
上一篇：BindingNavigator用什么方法或事件更新資料集到原始資料庫？
下一篇：求問VBA如何抓取郵件資訊。