excel问题,如何批量替换工作表同一单元格不同内容
我有很多工作表,我想批量修改其中一个单元格的内容。不是数值比如我做了一个表格,在所有表格的B5的位置的内容分别是不同人的名字。我能否批量替换。就是应另外一个EXCEL做成...
我有很多工作表,我想批量修改其中一个单元格的内容。不是数值 比如我做了一个表格,在所有表格的B5的位置的内容分别是不同人的名字。我能否批量替换。就是应另外一个EXCEL做成有规律的一个名字列表替换同一单元格内的内容,谢谢
展开
4个回答
2013-07-13
展开全部
你把要放入B5单元格的数据 放在A列,B列放入对应的文件名 使用以下代码 Sub B5()i = 1Do Until ThisWorkbook.ActiveSheet.Cells(i, 2) = ""
Set dx_workbook = Workbooks.Open(ThisWorkbook.ActiveSheet.Cells(i, 2))
dx_workbook.Sheets("sheet1").Range("B5") = ThisWorkbook.ActiveSheet.Cells(i, 1)
i = i + 1
dx_workbook.Close
Set dx_workbook = Nothing
Loop
End Sub
Set dx_workbook = Workbooks.Open(ThisWorkbook.ActiveSheet.Cells(i, 2))
dx_workbook.Sheets("sheet1").Range("B5") = ThisWorkbook.ActiveSheet.Cells(i, 1)
i = i + 1
dx_workbook.Close
Set dx_workbook = Nothing
Loop
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-13
展开全部
你所说的所有表格是不是在同一工作簿中,这样的话直接用查找/替换就行了注意:选项中的范围一定选中工作簿
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-13
展开全部
可以实现,将恶意用VBA处理,可以的话可以看看你的演示数据
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询