[發問] 請教~工作表命名

linsurvey2005

請問前輩
工作表有"N"個,要讓每個工作表命名為"A1"的名稱,怎麼使用,有巨集嗎?

jarodz

同一個workbook下的sheet應該是不能取一樣的名字，
用worksheets(1).name = XXXX 就可以改sheet 的名字了。

GBKEE

回復 2# jarodz
同一個workbook下的sheet應該是不能取一樣的名字，   這是對的

1. Sub Ex()
   
2.     Dim E
   
3.     For Each E In Sheets
   
4.         E.Name = E.Cells(1).Text
   
5.     Next
   
6. End Sub

複製代碼

linsurvey2005

同一個workbook下的sheet應該是不能取一樣的名字(多謝前輩指正)
我更正一下,一個workbook裡面已經有多個sheets,想把每個sheets的名稱,命為"B25"的儲存格
要每個sheets更改名稱快昏倒了~拜託前輩了
GBKEE 前輩好 妳的方法會卡在E.Name = E.Cells(1).Text
我使用的是Execl 2002版

GBKEE

回復 4# linsurvey2005
Cells(1)就是 A1    如有一個A1 沒有資料 在那裏就會有錯誤
Cells(1) 可成 RANGE("B25")

linsurvey2005

GBKEE 前輩好感激你
另外想把每個sheets裡面的"I20"儲存格的資料
放在目前工作表裡面A1 A2 A3..... 一直排序可以嗎?

GBKEE

回復 6# linsurvey2005
不太懂,上傳檔案看看

linsurvey2005

回復 7# GBKEE

前輩好,檔案裡面有一個工作表名稱:"整理表"
想把資料排序在一起~可以嗎?
    更改工作表.rar (18.81 KB)

下載次數: 8

2012-1-5 18:54

GBKEE

回復 8# linsurvey2005

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Sh As Worksheet
   
4.     For Each Sh In Sheets
   
5.         If Sh.Name <> "整理表" Then
   
6.             With Sheets("整理表").Cells(Rows.Count, "a").End(xlUp).Offset(1)
   
7.                 .Cells(1) = Sh.Name
   
8.                 .Cells(1, 2) = Sh.[i38]  ' 6# 是I20  附檔是I38  自己選
   
9.             End With
   
10.         End If
    
11.     Next
    
12. End Sub

複製代碼

linsurvey2005

Option Explicit
Sub Ex()
    Dim Sh As Worksheet
    For Each Sh In Sheets
        If Sh.Name <> "整理表" Then '這行是說找到sheets整理表才執行嗎?
            With Sheets("整理表").Cells(Rows.Count, "a").End(xlUp).Offset(1)
                .Cells(1) = Sh.Name
                .Cells(1, 2) = Sh.[i38]  ' 6# 是I20  附檔是I38  自己選直接中跨號也可以喔
            End With
        End If
    Next
End Sub
看起來簡單不過前輩的邏輯好強
感謝有三