excel宏命令

//批量返回目录.txt

Sub aa()
Dim i%
For i = 2 To Sheets.Count
Sheets(i).Range("G3").Formula = "=HYPERLINK(""#sheet1!G3"",""返回目录"")"
Next
End Sub





//以单元格命名工作表

Sub 工作表重命名()
For x = 2 To Worksheets.Count
Sheets(x).Name = Sheets(x).[b1]
Next
End Sub




//批量超链接
Option Explicit

Sub AutoGenerateHyperlinks()

Dim nIndex As Integer
Dim oRange As Range

For nIndex = 2 To Sheets.Count
Set oRange = Cells(Selection.Row + nIndex - 2, Selection.Column)
oRange.Hyperlinks.Add Anchor:=oRange, Address:="", SubAddress:=Sheets(nIndex).Name & "!A1", TextToDisplay:=Sheets(nIndex).Name
Next

End Sub


//工作簿合并
Sub 工作薄间工作表合并()

Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="V:\同步课程建课,*.xlsx", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub


errhadler:
MsgBox Err.Description
End Sub