6441| 12
|
大侠们,帮忙写个删除重复项的程序呗 |
2学分
最佳答案Sub TQ()
Dim X%, K%
Dim str As String
K = 1
For X = 2 To Cells(Rows.Count, 2).End(xlUp).Row
If Application.WorksheetFunction.CountIf(Range("B2:B" & X), Cells(X, 2)) = 1 Then
K = K + 1
Sheet1.Cells(X, 2).Copy Sheet2.Cells(K, 1)
ElseIf Application.WorksheetFunction.CountIf(Range("B2:B" & X), Cells(X, 2)) = 2 Then
str = str ...
| ||
发表于 2019-7-10 23:02
|
显示全部楼层
| ||
发表于 2019-7-11 09:08
|
显示全部楼层
| ||
| ||
发表于 2019-7-11 10:33
|
显示全部楼层
| ||
发表于 2019-7-11 10:59
|
显示全部楼层
| ||
| ||
| ||
发表于 2019-7-11 14:28
|
显示全部楼层
| ||
| ||