如何锁定excel多个工作表中第一个工作表，不让移动？-excel工作表固定,excel固定工作表标签

在同一工作簿中新建一个文档，在VB中输入以下宏代码并运行该宏：
Sub 合并()
'将同一路径下的多个工作簿的第e799bee5baa6e997aee7ad94e78988e69d83363一个工作表的内容合并到有此代码的工作簿的第一个工作表中
Dim MyPath$, MyName$, sh As Worksheet,AbRcou%
Application.ScreenUpdating = FalseSet
Set sh = ThisWorkbook.Sheets(1)
MyPath = ThisWorkbook.Path & "\"
MyName = Dir(MyPath & "*.xls")
[a1].CurrentRegion.Offset(1).Clear
Do While MyName <> ""
If MyName <> ThisWorkbook.Name Then
With GetObject(MyPath & MyName)
AbRcou = sh.Cells(Rows.Count, 1).End(xlUp).Row
Workbooks(MyName).Worksheets(1).[a1].CurrentRegion.Offset(IIf(AbRcou = 1, 0, 1)).Copy sh.Cells(1, 1).Offset(IIf(AbRcou = 1, 0, AbRcou))
.Close False
End With
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
MsgBox "ok"
End Sub

得用vba了，发EXCLE表上来看看
如果是要两列合并的话，就在公式栏输入“=A1&B1”（假如A1与B1合并）

下面介绍的这个方法试一下：

　　只能用宏：
　　插入一个命令按钮（在工具栏zhidao区右键_->控件工具箱->在显示出的工具栏上点长方的灰色钮，即为命令按钮，点选之後，在工作表区画一方框，绘出命令按钮）,在命令按钮上按鼠标右版键->查看代码->输入下列代码：
　　Private Sub CommandButton1_Click()
　　 Sheets("工作表名权称").Move Before:=Sheets(1)
　　End Sub
　　其中的工作表名称要手动输入，如你的工作表名称为SHEET1，则输入SHEET1就行