Excel: 전체 시트의 모든 셀 값을 새 시트에 복사하고, 고유 값의 단일 목록으로 정렬 및 중복 제거

Question

내가 가지고 있는 데이터(모든 텍스트 값)는 시트(사이에 간격이 있는 여러 행과 열)에 분산되어 있으며 모두 수식을 사용하여 계산됩니다.

이제 고유한 계산 값의 정확한 목록이 무엇인지 확인하고 싶습니다.

그래서 내가 해야 할 일은 이렇다

• 복사가치만새 시트로
• 단일 목록(열)으로 구성
• 정렬 및 중복 제거

Answer 1

다음과 같이 시도해 보십시오.

Sub Garlic()
   Dim cl As Collection, sh1 As Worksheet, sh2 As Worksheet
   Dim r As Range, K As Long, v As Variant, i As Long
   Set cl = New Collection
   Set sh1 = Sheets("Sheet1")
   Set sh2 = Sheets("Sheet2")
   K = 1

   On Error Resume Next
      For Each r In sh1.UsedRange
         v = r.Value
         If v <> "" Then
            cl.Add v, CStr(v)
         End If
      Next r
   On Error GoTo 0

   For i = 1 To cl.Count
      sh2.Cells(K, 1).Value = cl.Item(i)
      K = K + 1
   Next i

   sh2.Range("A1").CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

End Sub