excel - Removing repeated array items - VBA -


I have a question in Excel VBA:

Let's say I have an array: {A, b, c, d, a, a, b, e, f, d, c, e, g, f, e}, where some elements are repeated.

I would like to get a list of all the elements without repetition: i.e. {a, b, c, d, e, f, g}

I have received a code that duplicates Removes elements (), but then I get {g} because it is not just repetitive.

I appreciate any suggestion or help!

Thanks a lot!

I have already seen it for you. In the first example, the collection will contain only unique items. You can loop on the collection to gain access to them. In the second example I use a dictionary - and you can get unique items a little more easily.

Here you are: 

  sub arr_parse_test () New RAVA = Array ("a" as integer dim dick in the form of varialt DIM as Dim RRA , "B", "B", "D", "G", "A", "B", "Z"), start the error again. I = 0 for the UNDound (RRA). Ral (I) CSRR (RRI (i)) If (Err.Number & lt; & gt; 0) then Err.Clear Next I End sub

here for completion scripting.dictionary is an example. . It is often preferred over the VBA archive. As a bonus, it is easy to recover unique items. Your unique item is pressed into version / array rra2 . See it 

  sub arr_parse_test2 () Egg Array, RRI 2 as variable dim as integer DICT Object set dict = object set ("scripting dark") RRR = array ("A", "B", "C", "D", "G", "A", "B", "Z") If i = 0 for Ubound (RRA) for (if not decat. Axisists (CSRR (ar) (i)) then dac Add CSRR (RRI (I)), RRA (i) The next IRR2 = decat.it sub

This works because this VBA archive and MS (Scripting) Dictionary only Accept items with the unique key will forget the error while trying to add an item with the already existing key in the archive collection. Therefore, start the next statement on the error

with a dictionary, you can test that a key already exists (in dictionary Dict.Exists ), before adding. You can learn more about compilations and dictionaries.


Comments

Post a Comment

Popular posts from this blog

python - Overriding the save method in Django ModelForm -

I'm having trouble overriding a ModelForm save method. I get this error I'm: Exception type: TypeErier Exception Value: Save () found an unexpected keyword argument 'committed' My intentions include a form 3 fields Submit several values ​​for, then create an object for each combination of those areas, and to save each object file models.py class collarsult type (models.Model): id = model. AutoField (db_column = 'icontact_result_code_type_id', primary_key = true) callResult = models.ForeignKey ( 'CallResult', db_column = 'icontact_result_code_id') campaign = models.ForeignKey ( 'campaign', db_column = 'icampaign_id') CALLTYPE = models.ForeignKey ( 'CALLTYPE', db_column = 'icall_type_id') agent = models.BooleanField (db_column = 'bagent', default = true) teamLeader = models.BooleanField (db_column = 'bTeamLeader', default = true) active = models.BooleanField (db_column = Django.form...
Read more

html - CSS autoheight, but fit content to height of div -

I have a div in which there are three children- div in the left and middle div: float: left while true: float: true because it is my layout Actually will spoil, I've used ClearFix Hack: .cf {zoom: 1; }. Cf: First,. Cf: {content: ""; Display: Table; }. Cf: After {clear: both; } It still works, but I want to be the right div an indicator. So it should fill 100% of the parent unit of height. How can I complete this? PS is the full code: & Lt; / Div & gt; & Lt; Div class = "mobile_content" & gt; & Lt; H5 & gt; {{Data.titel}} & lt; / H5> & Lt; Table & gt; & Lt; TR & gt; & Lt; Th & gt; Komponist: & lt; / Th & gt; & Lt; TD & gt; {{Data.komponist}} & lt; / TD & gt; & Lt; / TR & gt; & Lt; TR & gt; & Lt; Th & gt; Instrument: & lt; / Th & gt; & Lt; TD & gt; {{Data.instrumente}} & lt; / TD & gt; & Lt; / TR & gt;...
Read more

qt - How to prevent QAudioInput from automatically boosting the master volume to 100%? -

I have been trying to use Qt5 multimedia to record audio with QAudioInput, however, when I see If QAudioInput is started, it increases the master volume of my sound device to 100%. How can I prevent QAudioInput from changing the master volume? My current development platform is Linux with PalsAdio (with flat audio disabled). How can I use QAudioInput : QAudioDeviceInfo device_info = QAudioDeviceInfo :: defaultInputDevice (); QAudio format format; Format.setSampleRate (44100); Format.setChannelCount (1); Format.setSampleSize (16); Format.setCodec ("Audio / PCM"); Format.setSampleType (QAudioFormat :: SignedInt); Format.setByteOrder (QAudioFormat :: LittleEndian); Std :: cout & lt; & Lt; Device_info.deviceName (). ToUtf8 (). ConstData () & lt; & Lt; Std :: endl; QAudioInput * default_device = new QAudioInput (device_info, format); QIODevice * default_io_device = default_device-> Start (); a QAudioInput.setVolume () method is not you I ...
Read more