
VBA
Sub Sum()Dim ws As WorksheetSet ws = ActiveSheetDim lastRow As LonglastRow = ws.Cells(Rows.Count, 1).End(xlUp).RowDim lastColumn As LonglastColumn = ws.Cells(Columns.Count, 1).End(xlToLeft).ColumnDim i As LongFor i = 2 To lastRow ws(i, 1) = "冻住"Next iEnd Sub这个代码会将整个工作表中2行及以上的内容全部标记为“冻住”,方便后续进行筛选和求和等操作。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号