VBA - 2 işlev için IF işlevini kullanma

Konu

Aşağıdaki durum için nasıl bir IF döngüsü yaratılacağına dair bir cevap için her yerde usulsüzce bakıyorum:

Örneğin farklı kelimelerle bir Excel sayfası var. adlar, A sütununun sonuna kadar gidiyor.
İki hücrenin farklı isimlere sahip olması durumunda aralarına 2 boş satır yerleştirildiği bir döngü oluşturmak istiyorum.

Örneğin.

Hücre A1: Anne

Hücre A2: Anne

Hücre A3: Bob

Hücre A4: Charlie

Böylece A1 ve A2 arasında iki boşluk satırı eklenecektir. Bob ve Charlie arasında 2 boş satır daha eklenir.

Çözüm

Bu makroyu dene

makroyu çağırdığınızda ...

Bir giriş kutusu gelecek. ilk hücre adresini girin, örneğin A10.

 Alt test () Sütunlar ("A: A") Sırala Anahtar1: = Aralık ("A1"), Order1: = xlAcending, Üstbilgi: = xlGuess Dim j Tam sayı, k Tam sayı, m Tam sayı, r = InputBox ("örneğin A10" referansı altındaki ilk hücreyi yazın) m = Range (r) .Row j = Range ("A10"). End (xlDown) .Row 'j son satırdır k = j To m + 1 Adım -1 Eğer Hücreler (k, 1) Hücreler (k - 1, 1) Sonra Menzil (Hücreler (k, 1), Hücreler (k + 1, 1)).