如何将多个Excel表格中的一行适用到其他表格

来源：百度知道 编辑：UC知道 时间：2024/07/03 03:07:55
在同一个文件夹下面有多个（数量在100个以上，逐一修改浪费时间）Excel表格，因为每个表有一行（其他行内容不同）都是相同的，不想每个都去逐一修改，需要将所有的表格的这相同的一行用一种快速的方法修改，例如：在work文件夹下面有广东，广西，福建，山西，浙江这几个Excel表格，这些表格的第一行都是 姓名 年龄 性别 出生日期 毕业时间 ，怎么样可以不需要逐一去复制就可以统一将他们修改成 name age sex 。。。。有没有什么好办法（少的话还可以复制，太多了上百个....)
各位帮帮忙啊，一定重谢，加分

欢迎百度搜索“您可能正在到处寻找答案的Excel问题详解”本题代码修改为：

Sub test()
Application.ScreenUpdating = False
On Error Resume Next '防止文件夹内没有所找文件出现错误
Dim i As Integer
Dim myPath$
Dim myFiles$
Dim wb$
myPath = "D:\桌面\work\"
myFiles = Dir(myPath)
Do
Workbooks.Open (myPath + myFiles), False '打开文件并设置不自动更新
Range("A1") = "表格名称"
Range("K1") = "表格ID"
Range("S1") = "特性"
Range("U1") = "数据库名"
Range("Y1") = "系统名"
Range("AG1") = "制作日期"
Range("AK1") = "更新日期"
ActiveWorkbook.Save '保存文件
ActiveWorkbook.Close '关闭文件
myFiles = Dir
i = i + 1
Loop Until myFiles = "" '循环到该路径中的每一个文件都改完为止
Application.ScreenUpdating = True
End Sub

不是吧，这样也可以！
太厉害了！

我来告诉你一个简单通用的方法：
打开一个excel文