findreplacevbscript excel特定的单元格

我想利用查找replaceExcel中的特定单元格上的Vbscript函数。 我目前的代码是：

Dim myxl Dim mywb Dim mysh Set myxl = CreateObject("Excel.Application") myxl.Visible = True myxl.DisplayAlerts = False myxl.EnableEvents = False '20160412 BM open the workbook Set mywb = myxl.Workbooks.Open(mysrcfile, True, False, , , , , , , True) '20160523 BM open the sheet Set mysh = mywb.WorkSheets("General") 'The parameters in the following order for: what, replacement,lookat, searchorder, matchcase mywb.Sheets("General").Columns("C").Replace "Y", "N", 1, 2, True mywb.Save mywb.Close false Set mywb = Nothing myxl.EnableEvents = True myxl.DisplayAlerts = True myxl.Quit Set myxl = Nothing 

在这段代码中，我设法让脚本查看整个“C”列。 现在我想查找和replace只在特定的单元格上。 例如只有电池C1，C2，C4，C11等等。 有人可以帮我一下吗？

ps我是VBA的新手，刚接触脚本/编程

Answer 1

应该是这样的。 你可以写一个函数来避免重叠：

 mywb.Sheets("General").Range("C1").Replace "Y", "N", 1, 2, True mywb.Sheets("General").Range("C2").Replace "Y", "N", 1, 2, True mywb.Sheets("General").Range("C4").Replace "Y", "N", 1, 2, True mywb.Sheets("General").Range("C11").Replace "Y", "N", 1, 2, True