Public Sub Igor() Dim Dtsheet As Excel.Worksheet Dim TotalC As Long '原始数据范围列 Dim TotalR As Long '原始数据范围行 Dtsheet = Globals.ThisWorkbook.Sheets("sheet1") TotalC = Dtsheet.Cells.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Column TotalR = Dts
private static String getCellValueForMerginRegion(Cell cell) { int rowIdx=cell.getRowIndex(); Sheet sheet=cell.getSheet(); int mergedRegions=sheet.getNumMergedRegions(); for (int i = 0; i < mergedRegions; i++) { CellRangeAddress cellRangeAddress=shee
Sub W() ' MsgBox "行数:" & Selection.Rows.Count Dim rows_count As Integer Dim rows_id As Integer Dim column_count As Integer column_count = Selection.Columns.Count '获取选择区域的列数 'MsgBox column_count '打印列数 rows_id = ActiveCell.