如何同时修改多张EXCEL表格
我在一个文件下有100张电子表格,在这些表格的同一个地方要做同时修改,分别的打开太慢了,有什么快的办法吗?如何操作?谢谢!...
我在一个文件下有100张电子表格,在这些表格的同一个地方要做同时修改,分别的打开太慢了,有什么快的办法吗?如何操作?谢谢!
展开
7个回答
展开全部
你好,
10000个名字,难道你准备用10000张表格吗?
只用2张表格,就可以了,在第一张表格输入姓名、身份证号、性别、年龄、名族等基本信息,第二张表格用你上面提供的表格,在需要输入名字等基本信息的单元格,用vlookup函数,输入姓名可以得到所属名字的基本信息。
我做了个简单的样式供参考。
10000个名字,难道你准备用10000张表格吗?
只用2张表格,就可以了,在第一张表格输入姓名、身份证号、性别、年龄、名族等基本信息,第二张表格用你上面提供的表格,在需要输入名字等基本信息的单元格,用vlookup函数,输入姓名可以得到所属名字的基本信息。
我做了个简单的样式供参考。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用VBA吧,自动依次打开指定文件夹下面所有excel文件,然后按你的要求去依次进行修改。
得知道你要进行什么修改才能说怎么具体怎么做。
下面这段代码实现:在“C:\Test”文件夹下面所有的Excel文件的Sheet1表的A2单元格写上三个字--文件名。
你可以根据自己的需求更改。
'==================================
Sub Temp()
Dim i As Integer
Dim strPath As String
strPath = "C:\test"
With Application.FileSearch
.LookIn = strPath
.SearchSubFolders = True
.Filename = "*.xls"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Sheets("Sheet1").Range("A2") = "文件名"
ActiveWorkbook.Save
ActiveWorkbook.Close
Next i
End If
End With
End Sub
'==================================
得知道你要进行什么修改才能说怎么具体怎么做。
下面这段代码实现:在“C:\Test”文件夹下面所有的Excel文件的Sheet1表的A2单元格写上三个字--文件名。
你可以根据自己的需求更改。
'==================================
Sub Temp()
Dim i As Integer
Dim strPath As String
strPath = "C:\test"
With Application.FileSearch
.LookIn = strPath
.SearchSubFolders = True
.Filename = "*.xls"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Sheets("Sheet1").Range("A2") = "文件名"
ActiveWorkbook.Save
ActiveWorkbook.Close
Next i
End If
End With
End Sub
'==================================
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
怎么同时修改多个表格呢?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
100张?不会吧。
按住ctrl键或shift键,点选左下角工作表标签,就组成了“工作组”,下面就开始改吧。
按住ctrl键或shift键,点选左下角工作表标签,就组成了“工作组”,下面就开始改吧。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
如何同时修改好多个表格?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询