|
楼主 |
发表于 2019-9-6 18:10
|
显示全部楼层
本帖最后由 zdj365 于 2019-9-6 18:15 编辑
没有备注的,是我看不懂的,您可以帮我备注一下注释吗?
Sub jaofuan() '过程开始
Set d =CreateObject("scripting.dictionary") '创建对象D
arr =Sheet1.Range("A1").CurrentRegion '字典范围
ReDim brr(1 To UBound(arr), 1To 3) '重新定义数组下标。第一个参数是这个表格有几行。第二个参数是已知有3列。
For i = 2 To UBound(arr) '从第2个开始循环,直到最后一行
IfNot d.exists(arr(i, 1) & Format(arr(i, 2), "YYYY-MM-DD")) Then
p = p + 1
d(arr(i, 1) & Format(arr(i, 2), "YYYY-MM-DD"))= h
brr(p, 1) = arr(i, 1)
brr(p, 2) = Format(arr(i, 2), "YYYY-MM-DD")
brr(p, 3) = arr(i, 3)
EndIf '判断结束
Next '循环结束
Range("A2:c" &Rows.Count) = "" '清空原有的数据
[a2].Resize(UBound(brr, 1),UBound(brr, 2)) = brr
End Sub '过程结束
|
|