[已解决][求助]如何在另一个工作薄中修改工作表单元格内容

rinyxa

附件里有二个工作薄，如何在修改代码工作薄中用VBA程序替换代码工作薄中“1”为“z”，请求大家帮助谢谢！！！

最佳答案

月排行榜 / 总排行榜

zjdh

2013-3-12 15:08

1. Sub TEST()
   
2.     Workbooks.Open (ThisWorkbook.Path & "\代码.xls")
   
3.     With ActiveWorkbook.Sheets(1)
   
4.         For I = 1 To .Range("A65536").End(3).Row
   
5.             .Cells(I, 1) = Replace(.Cells(I, 1), "1", "Z")
   
6.         Next
   
7.     End With
   
8.     ActiveWorkbook.Close True
   
9.     MsgBox "修改完毕！"
   
10. End Sub
    
11. 
    

复制代码

跳转到最佳答案楼层

zjdh

1. Sub TEST()
   
2.     Workbooks.Open (ThisWorkbook.Path & "\代码.xls")
   
3.     With ActiveWorkbook.Sheets(1)
   
4.         For I = 1 To .Range("A65536").End(3).Row
   
5.             .Cells(I, 1) = Replace(.Cells(I, 1), "1", "Z")
   
6.         Next
   
7.     End With
   
8.     ActiveWorkbook.Close True
   
9.     MsgBox "修改完毕！"
   
10. End Sub
    
11. 
    

复制代码