在指定的一个或多个单元格区域内，把完全相同的单元格全部都清空，如果只保留一个

gaoch35

Vicel 发表于 2014-12-1 12:47
代码如下，楼主按需要再改进改进吧

拜托，请编写出可以设置单元格区域的（可以是一个区域也可以改成多个区域，区域用[a1:a5]这种方式表示），在指定单元格区域中每个单元格的最前面和最后面的空格符都删除掉，如果最前面的第一个符号是空格符就把它删除掉，如果最前面的第一二个符号是空格符就把两个都删除掉....,一直到最前面的第一个非空格符为止，最后面的和最前面的类似
我想先删除某些单元格的最前面和最后面的空格符，再用你上面给的代码进行比较
我在其它文件还要删除掉指定单元格的最前面和最后面的几个空格符

Vicel

gaoch35 发表于 2014-12-1 17:34
拜托，请编写出可以设置单元格区域的（可以是一个区域也可以改成多个区域，区域用[a1:a5]这种方式表示）， ...

楼主，你让人说你什么好呢？
本帖主题并没有说明删除空格符那些内容
删除空格符那些内容前面已经回过你帖了，你总不能什么都想着别人帮你做了
能帮你做的是提供些思路给你，你自己再去实践运用

gaoch35

Vicel 发表于 2014-12-1 18:38
楼主，你让人说你什么好呢？
本帖主题并没有说明删除空格符那些内容
删除空格符那些内容前面已经回过你 ...

精神可嘉，其实把某一列完全相同的单元格全部都删除掉第1个VBA代码是可以用的，就是某一列加上一个或多个空白列都行

Vicel

楼主最好是能模拟下过程和结果

gaoch35

Vicel 发表于 2014-12-1 22:00
楼主最好是能模拟下过程和结果

如果把完全相同的单元格只保留一个，那第一个代码怎么改

Vicel

gaoch35 发表于 2014-12-1 23:08
如果把完全相同的单元格只保留一个，那第一个代码怎么改

这个吗？

1. Sub SC2()     '删除两列所有重复单元格（可以是连续两列，也可以是不连续两列）
   
2.     Application.ScreenUpdating = False
   
3.     C1 = "A"
   
4.     C2 = "B"
   
5.     n1 = Cells(Rows.Count, C1).End(xlUp).Row
   
6.     n2 = Cells(Rows.Count, C2).End(xlUp).Row
   
7.     rng1 = C1 & "1:" & C1 & n1
   
8.     rng2 = C2 & "1:" & C2 & n2
   
9.     Union(Range(rng1), Range(rng2)).Select
   
10.     For Each cell In Selection
    
11.         s = 0
    
12.         T = cell.Value
    
13.         If T <> "" And Trim(T) <> "" Then
    
14.             s = Application.CountIf(Range(rng1), T) + Application.CountIf(Range(rng2), T)
    
15.         End If
    
16.         If s > 1 Then
    
17.             Selection.Find(What:=T, After:=ActiveCell, LookIn _
    
18.             :=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
    
19.             xlNext, MatchCase:=False, SearchFormat:=False).Activate
    
20.             Do
    
21.                 Selection.FindNext(After:=ActiveCell).Delete
    
22.                 s = s - 1
    
23.             Loop While s > 1
    
24.         End If
    
25.     Next
    
26.     Application.ScreenUpdating = True
    
27. End Sub
    

复制代码

gaoch35

Vicel 发表于 2014-12-2 09:56
这个吗？

就是这个，你改了吗？怎么改

Vicel

gaoch35 发表于 2014-12-2 10:07
就是这个，你改了吗？怎么改

第19行代码你没发现有什么不一样么

gaoch35

Vicel 发表于 2014-12-2 10:24
第19行代码你没发现有什么不一样么

如果我想指定两个或多个单元格区域，不是列，比如两个单元格区域为a3:b17和c5:e21,那代码怎么改

Vicel

gaoch35 发表于 2014-12-2 10:34
如果我想指定两个或多个单元格区域，不是列，比如两个单元格区域为a3:b17和c5:e21,那代码怎么改

楼主按需要改代码

1. Sub SC2()
   
2.     Application.ScreenUpdating = False
   
3.     rng1 = "A3: B17"
   
4.     rng2 = "C5: E21"
   
5.     rng3 = "A22:E28"
   
6.     Union(Range(rng1), Range(rng2), Range(rng3)).Select
   
7.     For Each cell In Selection
   
8.         s = 0
   
9.         T = cell.Value
   
10.         If T <> "" And Trim(T) <> "" Then
    
11.             s = Application.CountIf(Range(rng1), T) + Application.CountIf(Range(rng2), T) + Application.CountIf(Range(rng3), T)
    
12.         End If
    
13.         If s > 1 Then
    
14.             Selection.Find(What:=T, After:=ActiveCell, LookIn _
    
15.             :=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
    
16.             xlNext, MatchCase:=False, SearchFormat:=False).Activate
    
17.             Do
    
18.                 Selection.FindNext(After:=ActiveCell).Delete Shift:=xlUp
    
19.                 s = s - 1
    
20.             Loop While s > 1
    
21.         End If
    
22.     Next
    
23.     Application.ScreenUpdating = True
    
24. End Sub

复制代码