VSTO 获取sheet单元格行列数

最新推荐文章于 2024-05-23 17:39:23 发布

转载最新推荐文章于 2024-05-23 17:39:23 发布 · 647 阅读

2 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/igor/p/4241561.html

文章标签：

#c#

本文介绍了一段使用Visual Basic for Applications (VBA) 编写的代码，用于在Excel工作表中批量替换特定单元格区域内的文本内容为N/A。操作涉及确定数据范围的大小，并对指定的单元格进行替换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

 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