Question

我有两张工作表。

工作表2：

Column C 
A
A
B
B
C
D
E
E
F
G

工作表1：

Column G
A
B
C
D
E
F
G

根据以上所述，我正在尝试在工作表1列G上创建一个唯一值列表，而不是表2中的C列。

到目前为止，这是我的代码：

Sub LIST()
   Dim Col As New Collection
    Dim itm
    Dim i As Long
    Dim CellVal As Variant
    Dim LastRow As Long

    '~~> Lets say looping through Row 1 to 22 For
    '~~> Range("A1:A22") as mentioned in your recent comment

    LastRow = ThisWorkbook.Worksheets("Data").Range("C" & Rows.Count).End(xlUp).Row  'Finds the last used row

    For i = 1 To LastRow
        CellVal = Sheets("Data").Range("C" & i).value
        On Error Resume Next
    Next i

    For Each itm In Columns(7)
    itm
    Next
    End Sub

我是vba的新手，请somsone告诉我如何让它正常工作？

P.S。我需要这个来列出第16行以后第1页中G列的值。

Answer 1

根据达伦的评论：

Sub LIST()
    Dim r1 As Range, r2 As Range

    Set r1 = Sheets("Sheet1").Range("C:C")
    Set r2 = Sheets("Sheet2").Range("G1")

    r1.Copy r2

    r2.RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

如果您希望从第一行下方开始，请将"C:C"替换为"C7:C" & Rows.Count

Answer 2

使用Dictionary

的另一种方式

Sub LIST()
    Dim dict As Dictionary
    Dim cell As Range

    Set dict = New Dictionary 
    With Worksheets("Data")
        For Each cell In .Range("C1", .Cells(.Rows.Count, 1).End(xlUp)
            dict.Item(cell.Value) = 1
        Next
    End With 
    Worksheets("Sheet1").Range("G16").Value = Application,Transpose(dict.Keys)
End Sub

Vba列出从第x行开始的列中的唯一值？

2 个答案: