数学爱情公式Excel 公式

1. 合并多张excel工作薄

Dim strFileName As String
Dim wb As Workbook
Dim ws As Object

Const strFileDir As String = 示例数据记录

Updating = False

Set wb = (xlWorksheet)
strFileName = Dir(strFileDir &

Do While strFileName <> vbNullString
Dim wbOrig As Workbook
Set wbOrig = (Filename:=strFileDir & strFileName, ReadOnly:=True)
strFileName = Left(Left(strFileName, Len(strFileName) - 4), 29)

For Each ws In
After:=()
If > 1 Then
().Name = strFileName &
Else
().Name = strFileName
End If
Next

SaveChanges:=False

strFileName = Dir

Loop

yAlerts = False
(1).Delete
yAlerts = True

Updating = True

Set wb = Nothing

End Sub


2. 累加几张excel sheet中相同位置的和

=sum('*'!a1)


3.将一个excel 工作薄中的诸多表格拆分成单独的工作薄

Dim sht As Worksheet
yAlerts = False
For Each sht In Worksheets

&

Next
yAlerts = True


4.在Excel如何跨表批量引用同一个位置的单元格数据？

用INDIRECT函数，但是得事先把所有的表名全部放在一起。比如全部表名已放在A列 了，
在B3输入公式=INDIRECT(A3&，就可以取得A3单元格里名称的工作表C7的值了，
向下复制公式，就可以全部取出来了。
因为无论如何你也要提取工作表名，下面给一个提取所有工作表名的程序。 其中A3是总
表内该sheet表名的位置。


1.下拉时，按单元格累加。
B7=INDIRECT($$A$$4&

2.引用工作表有空格或符号

=INDIRECT(

或=INDIRECT(




获取工作表名称

同样，在excel中，按下ALT+F11，打开VBE编辑器，插入——模块，复制 下面的代
码，然后按F5键或者单击工具栏绿色的“运行”按钮即可实现用vba获取工作表名称。获< br>取的工作表名称将存放在当前工作表的A列。

Sub vba获取工作表名称()
For x = 1 To
Cells(x, 1) = Sheets(x).Name
Next x
End Sub