2023-01-25 03:41来源:m.sf1369.com作者:宇宇
按时间列排序,后用分类汇总,分类字段为时间列标题,汇总方式为“计数”就可以了!希望帮到你了!
假定你合并过的单元格地址是D9,合并的行数可以写成
Range(D9).Offset(1, 0).Row - Range(D9).Row
可以用这个宏测试一下(在A1单元格显示合并单元格的行数,把D9改成你合并过的单元格就行)
Sub test()
Dim span As Integer
span = Range(D9).Offset(1, 0).Row - Range(D9).Row
Cells(1, 1).Value = span
End Sub
Sub lxx()
Dim H As Integer '总行数
H = 1000 '假定总行数为1000,根据需要改
Dim I As Integer '定义行变量
Dim J
For I = 1 To H
If Worksheets(sheet1).Cells(I, 2).Value = 10月份 Then
Worksheets(sheet1).Cells(1, 1).Value = I
Worksheets(sheet1).Cells(2, 1).Value = I
J = I
GoTo Next1:
End If
Next
Next1:
For J = 1 To H
If Worksheets(sheet1).Cells(J, 2).Value = 10月份 Then
Worksheets(sheet1).Cells(2, 1).Value = J
End If
Next
End Sub
X = Application.wb.Sheets(Sheet1).CountA(Range(A:A))
这个需要A列没有空行
试下
X = Application.wb.Sheets(Sheet1).Range(A65536).end(xlup).row
Excel中用VBA判断行数的方法:
1、VBA中可以用CurrentRegion.Rows.Count属性获得连续的数据区域的行数。
2、'选择A2单元格周围连续有数据的区域,并将其行数值赋予HROW
3、HROW=Sheets(sheet1).[A2].CurrentRegion.Rows.Count