| 现在的位置：首页 > 会员中心 > 查看信息：【vba代码】合并相同部位的台账 |
|
|
| 查看权限： |
需要 [年费会员] 级别以上才能查看。 |
| 发布时间： |
2022-11-13 17:38:54 |
| 信息简介： |
Sub 精简台账()
On Error Resume Next
Dim arr1, arr2
最后行号 = Sheets("合并相同部位").Cells(Rows.Count, "a").End(xlUp).Row
arr1 = Range("a1:d" & 最后行号)
For i = 1 To UBound(arr1)
If arr1(i, 2) = arr1(i + 1, 2) Then
If a |
|
|
