[已解决]如何使用代码

爱疯 · 发表于 2015-12-4 20:20

Sub Click()
Dim A, B, i, j, k
Application.ScreenUpdating = False
i = Range("a655536").End(xlUp).Row
Range([b31], Range("ad" & i)).ClearContents
A = Range("a1:ad" & i)

For i = 31 To UBound(A)
      ReDim B(1 To UBound(A, 2))
      For j = 2 To UBound(A, 2)
         If Len(A(i - j + 1, 1)) Then B(A(i - j + 1, 1)) = B(A(i - j + 1, 1)) + 1
      Next j

      For j = 2 To UBound(A, 2)
         If Len(A(i - j + 1, 1)) Then
            If B(A(i - j + 1, 1)) = 1 Then A(i, j) = A(i - j + 1, 1)
         End If
      Next j
Next i

[a1].Resize(UBound(A), UBound(A, 2)) = A
Range([b31], Range("ad" & i - 1)).SpecialCells(xlCellTypeBlanks).Delete 1
End Sub

12.rar (68.25 KB, 下载次数: 3)

mmc998 · 发表于 2015-12-4 20:41

爱疯发表于 2015-12-4 20:02
Sub Click()
Dim A, B, i, j, k
i = Range("a655536").End(xlUp).Row

不行

爱疯 · 发表于 2015-12-4 20:46

13.rar (31.64 KB, 下载次数: 4)

mmc998 · 发表于 2015-12-4 21:16

爱疯发表于 2015-12-4 20:46

下标越界

爱疯 · 发表于 2015-12-4 21:38

14.rar (31.64 KB, 下载次数: 6)

mmc998 · 发表于 2015-12-4 21:43

爱疯发表于 2015-12-4 21:38

数据不全

爱疯 · 发表于 2015-12-5 09:40

mmc998 发表于 2015-12-4 21:43
数据不全

第31行，从A30引用到A2，并且去重复。
第32行，从A31引用到A3，并且去重复。
第33行，从A32引用到A4，并且去重复。
...

是这样吗？

15.rar (31.67 KB, 下载次数: 6)

ZZCUEEI · 发表于 2015-12-5 18:41

mmc998 · 发表于 2015-12-5 23:46

爱疯发表于 2015-12-5 09:40
第31行，从A30引用到A2，并且去重复。
第32行，从A31引用到A3，并且去重复。
第33行，从A32引用到A4，并 ...

第一个数也不能重复

爱疯 · 发表于 2015-12-6 10:10

mmc998 发表于 2015-12-5 23:46
第一个数也不能重复

16.rar (31.25 KB, 下载次数: 5)

		自动登录	找回密码
密码			注册