1 Public Sub Igor() 2 Dim Dtsheet As Excel.Worksheet 3 Dim TotalC As Long ‘原始数据范围列 4 Dim TotalR As Long ‘原始数据范围行 5 Dtsheet = Globals.ThisWorkbook.Sheets("sheet1") 6 TotalC = Dtsheet.Cells.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Column 7 TotalR = Dtsheet.Cells.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Row 8 Dtsheet.Range("A1", Dtsheet.Cells(TotalR, TotalC)).Replace(What:="", Replacement:="N/A", LookAt:=Excel.XlLookAt.xlWhole, SearchOrder:=Excel.XlSearchOrder.xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False) 9 10 End Sub
时间: 2024-11-11 18:33:24