
VBA
VBASub ModifyColumn()Dim ws As WorksheetSet ws = ActiveSheetFor i = 1 To ws.Cells(Rows.Count, "A").End(xlUp).RowIf ws.Cells(i, "A") > 50 Thenws.Cells(i, "A") = ws.Cells(i, "A") - 50End IfNext iEnd Sub这个宏代码会遍历整个表格,并检查A列中大于50的数值。如果发现有大于50的数值,就将它们减去50。在执行完这个宏后,A列中所有大于50的数值都会被自动减少50。请注意,在编写和运行宏之前,请确保已经备份了工作表以防数据损坏或丢失。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号