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

linsurvey2005

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

GBKEE

回復 10# linsurvey2005
For Each Sh In Sheets     '依序裡每一個工作表
        If Sh.Name <> "整理表" Then   '當工作表名稱不是"整理表" 才執行的

jarodz

<> 是不等於

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
看起來簡單不過前輩的邏輯好強
感謝有三

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

回復 7# GBKEE

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

下載次數: 8

2012-1-5 18:54

GBKEE

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

linsurvey2005

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

GBKEE

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

linsurvey2005

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