VBA - IF funkcijas izmantošana 2 šūnām

Izdevums

Es esmu neveiksmīgi aplūkojis visur, lai atbildētu uz to, kā izveidot IF ciklu šādai situācijai:

  • Man ir Excel lapa ar dažādiem vārdiem, piem. vārdi, kas iet pa visu A sleju.
  • Es vēlos izveidot cilpu, kurā, ja divām šūnām ir dažādi nosaukumi, tad starp tām tiek ievietotas 2 tukšas rindas.

piem.

Šūna A1: Anne

Šūna A2: Anne

Šūna A3: Bob

Šūna A4: Čārlijs

Tātad starp A1 un A2 tiks ievietotas divas sagataves. Starp Bobu un Čārliju tiek ievietotas vēl divas tukšas rindas.

Risinājums

Izmēģiniet šo makro

kad jūs atsaucaties uz makro ...

Ievadīs ievades lodziņu. aizpildiet sākotnējo šūnu adresi, piemēram, A10.

 Aptaujas () kolonnas ("A: A"). Kārtot atslēgu1: = diapazons ("A1"), secība1: = xlAscending, galvene: = xlGuess Dim j kā vienots, k kā integrits, m kā pilnīgs, r kā virkne r = InputBox ("ierakstiet pirmo šūnu ar atsauci, piem., A10") m = diapazons (r) .Rinds j = diapazons ("A10"). Beigas (xlDown) .Rea 'j ir pēdējā rinda k = j uz m + 1 solis -1 Ja šūnas (k, 1) šūnas (k - 1, 1) tad diapazons (šūnas (k, 1), šūnas (k + 1, 1)) EntireRow.Insert End Ja nākamais k Beigas apakšs 

Piezīme

Pateicoties venkat1926 par šo padomu forumā.

Iepriekšējais Raksts Nākamais Raksts

Top Padomi