LastRow

首页 > TAG信息列表 > LastRow

POI导出Excel将相同的列合并行

public static void mergeCell(List<QsggDTO> list, Sheet sheet, int[] index){ int id1 = 0; int id2 = 0; int firstRow = 2; int lastRow = 2; QsggDTO qsggDTO = list.get(0); id1 = qsggDTO.getId();

小记：EXCEL + VBA 用户记录：保留一个月的以前的登陆用户

EXCEL + VBA，按照一切数据均可处理的原则。这俩组合给非码工提交使用还是不错的。今天遇上了一个有意思的case： Excel遍历不符合预期，不得不多轮遍历处理数据。记录备需。详情如下：客户（免费帮忙校友）的需求如下：数据（输入）数据表格通过Excel格式存储，仅一页数据，多列。首列是名

Vba Excel 自动分级

Sub classification() Dim LastRow, max_level As Integer Dim i, j, m, a, b As Integer Dim st1, st2, s1, s2 As Integer On Error Resume Next Application.ScreenUpdating = False '运行时关闭屏幕更新。 LastRow = ActiveSheet.UsedRange.Rows.Cou

Vba中删除指定行

Sub classification() Dim LastRow, max_level As Integer Dim slc, j, dele, a, b As Integer On Error Resume Next LastRow = ActiveSheet.UsedRange.Rows.Count For slc = 1 To LastRow Line1: If Sheet1.Cells(slc, "e") =

字段的任意查找

内容：根据需要查找的关键词，在固定的表格中逐行查找。 Sub 任意查找() Dim i As Integer Dim strFind As String Dim LastRow As Long LastRow = ActiveSheet.UsedRange.Rows.Count '获得使用的行数 Range("B1").Select strFind = "钻头2" If T

Python高级特性

and & or 在使用or时，比如A or B，当A为真时，将不再计算B 在使用and时，A and B，当A为假时，将不再计算B zip & map & filter def pascal(n): if n == 1: return [[1]] else: result = [[1]] x = 1 while x < n: lastRow = res

VBA删除空白行列

1 '删除空行 2 Sub DeleteEmptyRows() 3 Dim LastRow As Long, r As Long 4 LastRow = ActiveSheet.UsedRange.Rows.Count 5 LastRow = LastRow + ActiveSheet.UsedRange.Row - 1 6 7 For r = LastRow To 1 Step -1 8 If WorksheetFunction.CountA(Rows(r)) = 0 Then R