全部博文
-
编辑 删除
EXCEL VBA 使用数组记录文本，并判断文本在数组中是否已经存在
Dim arr() '声明一个动态的arr数组(不知道它能盛多少数据)Dim row_1 '声明数组大小的变量（通常是excel的有效行数）row_1 = Sheet1.[B65536].End(xlUp).Row 'B列的有效行数ReDim arr(1 To row_1) '设置数组大小Dim CurrentarrIndex '声明数组里当前存放数据的位置For i = 2 To row_1 If InStr(1,...
