如何取某列的相同数据只显示一次？

环境所迫

附件里有说明。

dssrmyh

等老师们现身解决，俺也有相似的需求

liulang0808

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = True
    Set d = CreateObject("scripting.dictionary")
    If Target.Column = 7 And Target.Row > 7 And Target.Row < 17 Then
        'If Sheet1.ProtectContents Then Sheet1.Unprotect Password:="1111"
        If Range("G8") <> "" Then a = Sheet1.Range("D8"): d(a) = ""
        For i = 8 To 16
            If Sheet1.Cells(i, "G") = "" Then a = a & "→" & Sheet1.Cells(i - 1, "G"): Exit For
            If Not d.exists(Sheet1.Cells(i, "G").Value) Then
                d(Sheet1.Cells(i, "G").Value) = ""
                a = a & "→" & Sheet1.Cells(i, "G")
            End If
        Next
        Range("G32") = a
        'Sheet1.Protect Password:="1111", DrawingObjects:=1, Contents:=1, Scenarios:=1
        Application.ScreenUpdating = True
    End If
End Sub
上面的代码是根据最后一个城市跟第一个城市一致来处理的

环境所迫

liulang0808 发表于 2019-10-15 20:54
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = True
    Set  ...

老师你好，谢谢，但现是有点问题，就是都是空白的话，显示的是“→终点”，G列如果有内容的话，最后一个是重复显示的

liulang0808

If Sheet1.Cells(i, "G") = "" Then a = a & "→" & Sheet1.Cells(i - 1, "G"): Exit For
修改如下看看
If Sheet1.Cells(i, "G") = "" Then
if len(a)>0 then a = a & "→" & Sheet1.Cells(i - 1, "G"):
Exit For
endif

环境所迫

liulang0808 发表于 2019-10-15 21:11
If Sheet1.Cells(i, "G") = "" Then a = a & "→" & Sheet1.Cells(i - 1, "G"): Exit For
修改如下看看
I ...

都没有内容的问题解决了，可G列有内容的话，最后一个还是重复显示的

liulang0808

If Sheet1.Cells(i, "G") = "" Then a = a & "→" & Sheet1.Cells(i - 1, "G"): Exit For
修改如下看看
If Sheet1.Cells(i, "G") = "" Then
if len(a)>0 then a = a & "→" & Sheet1.Cells(i - 1, "G")'这段是增加最后一个重复项，如果不需要，就取消吧
Exit For
endif

环境所迫

liulang0808 发表于 2019-10-15 21:42
If Sheet1.Cells(i, "G") = "" Then a = a & "→" & Sheet1.Cells(i - 1, "G"): Exit For
修改如下看看
...

您好，现在基本上可以了，就是如果在G列中间有和起点一样地名的话，没有取出显示

liulang0808

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.ScreenUpdating = True
   
3. 
   
4.     If Target.Column = 7 And Target.Row > 7 And Target.Row < 17 Then
   
5.         'If Sheet1.ProtectContents Then Sheet1.Unprotect Password:="1111"
   
6.         If Range("G8") <> "" Then a = Sheet1.Range("D8"): str1 = a
   
7.         For i = 8 To 16
   
8.             If Sheet1.Cells(i, "G") = "" Then
   
9.                  Exit For
   
10.             End If
    
11.             If str1 <> Sheet1.Cells(i, "G").Value Then
    
12.                 str1 = Sheet1.Cells(i, "G").Value
    
13.                 a = a & "→" & Sheet1.Cells(i, "G")
    
14.             End If
    
15.         Next
    
16.         Range("G32") = a
    
17.         'Sheet1.Protect Password:="1111", DrawingObjects:=1, Contents:=1, Scenarios:=1
    
18.         Application.ScreenUpdating = True
    
19.     End If
    
20. End Sub

复制代码

之前理解有出入，这次看看吧