摘要： ‘LISTVIEW1中有13列
‘因为LISTVIEW1中的所有数据，有可能是通过筛选得来的，可能通过搜索得来的
EXCEL中EOMONTH函数的使用基础教程
EOMONTH函数返回某个月份最后一天的序列号，该月份与 start_date 相隔（之后或之后）指示的月份数。使用函数 EOMONTH 可以计算正好在特定月份中最后一天到期的到期日。EOMONTH函数语法为： EOMONTH(start_date, months) ▲EOMONTH函数语法具有以下参数： ▲St
‘所以在这里将显示在LISTVIEW1中的数据写入数组ARR中，方便处理这些数据
Dim arr
With ListView1
ReDim arr(1 To .ListItems.Count, 1 To 13)
For i = 1 To UBound(arr, 1) ‘遍历所有LISTVIEW1数据的行，用 For i = 1 To .ListItems.Count 也可以
arr(i, 1) = .ListItems(i).Text ‘第一列不一样，无法通过循环得到，只好单取
For j = 2 To 13 ‘遍历第i行的所有列的数据，共13列，第1列数据已取，从第2列开始
arr(i, j) = .ListItems(i).ListSubItems(j – 1).Text ‘将i行其他列写入数组中
Next
Next
End With
excel提取一列中出现次数最多和最少的文本数据
如果某列中有许多数值，可以用MODE函数找出出现频率最多的数值（众数）。如果该列中的数据是文本，可以用下面的公式，假如数据在A1:A100区域中： 提取出现次数最多的文本： =INDEX(A1:A100,MODE(MATCH(A1:A100,A1:A100,))) 或下面数组公式： =INDEX(A1:A100,MAT
