एक्सेल: एक संपूर्ण शीट से सभी सेल वैल्यू को एक नई शीट में कॉपी करें, यूनिक वैल्यू की एक सूची में सॉर्ट और डुप्लीकेट करें


0

मेरे पास जो डेटा (सभी पाठ मूल्य) हैं वह शीट के पार बिखरे हुए हैं (कई पंक्तियों और स्तंभों के साथ अंतराल में) और यह सभी सूत्रों का उपयोग करके गणना की गई है

अब मैं यह सुनिश्चित करना चाहूंगा कि मुझे पता है कि अलग-अलग गणना मूल्यों की सटीक सूची क्या है

तो यहाँ मुझे क्या करना है

  • मूल्यों को केवल एक नई शीट पर कॉपी करें
  • एकल सूची (कॉलम) में व्यवस्थित करें
  • क्रमबद्ध और डी-डुप्लिकेट

सुपरयुजर में आपका स्वागत है। कृपया साझा करें कि आपने अब तक क्या प्रयास किया है और यह काम क्यों नहीं करता है।
मते जुहेसज़

जवाबों:


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
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.