作者：乔山办公网日期：
返回目录：excel表格制作
用一款名叫【excel多文件查找替换】的软件，简单快捷。华军，霏凡都有下载。
最好能解释下你的"更新"。不然不会有答案的
使用来VBA可批量解源锁，假百设度密码问为答123456。
Sub Unlock_()
Application.DisplayAlerts = False
Dim my_Link, my_Doc As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
.AllowMultiSelect = False
my_Link = .SelectedItems(1)
End With
my_Doc = Dir(my_Link & "\" & "*.xls*")
Do While Len(my_Doc) <> 0
Workbooks.Open (my_Link & "\" & my_Doc)
ActiveSheet.Unprotect "123456" '密码为123456
ActiveWorkbook.Save
ActiveWorkbook.Close
my_Doc = Dir
Loop
End Sub
一个copyEXCEL表中，可以用查找--替换进行操作。也可以同时对一个工作薄中的百所有sheet进行查找--替换。无法对多个EXCEL表同时操作。
如果时候VLOOKUP的话你要有一张价格和配件对应的表，然后度找到需要填充更新价格的表格，使用VLOOKUP函数问第一选择配件名称，第二选择第一张完整的表格，第三需要第几列就答写上数字几，最后的填0