Question

excel拖动复制时，如何同时自动变化工作表名称

excel，一个工作薄中，100多个工作表。总表、张表、李表、王表……
现在，要在总表的A1，引用张表的A1，总表的A2引用李表的A1，总表A3引用王表的A1，依此类推，请问应该如何设公式。
一个个改工作表名称，累都累死了。
一楼的回答很好，很复杂。能够有简单点的么？

Answer 1

Private Sub 累不死_Click()

Dim Sht As Worksheet

Dim r As Integer

[a2:b65536].ClearContents

 For Each Sht In ThisWorkbook.Sheets

    If Sht.Name <> Me.Name Then

        r = [a65536].End(xlUp).Row

        Range("A" & r + 1).Value = Sht.Name

        Me.Hyperlinks.Add Range("A" & r + 1), "#" & Sht.Name & "!A1", ScreenTip:=Sht.Name

        Range("B" & r + 1).Value = Sht.[a1].Value

    End If

 Next

End Sub 

太复杂？不懂用吧？如图所示操作：（双击看大图）

Answer 2

1、如果所有相关内容都已经在区域内了，那么拖动复制的过程不会关联其他文件和工作表
2、如果与有关内容与原来区域内容里有关系，那么拖动复制的过程就会把有关源表格里面关联进来。这个是没有办法改变的，因为这就是复制黏贴的原因。你只能手动改变公式，最多查找替换一下公式里面的表名