
excel
vbnetSub ReplaceNumbers()Dim ws As WorksheetSet ws = ThisWorkbook.Worksheets("Sheet1")Dim oldNum As DoubleDim newNum As DoubleDim i As LongFor i = 1 To ws.Cells(ws.Rows.Count, 1).End(xlUp).RowoldNum = ws.Cells(i, 1).ValuenewNum = 3ws.Cells(i, 1).Value = newNumNextEnd Sub以上代码会将所有列1中数值为“3”的单元格内的数值全部替换为“3”。可以根据需求修改代码中的“oldNum”和“newNum”变量来实现需要的替换效果。希望以上回答对您有所帮助!Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号