VBA - Menggunakan fungsi IF untuk 2 sel

Isu

Saya telah mencari dengan tidak berhasil di mana-mana jawaban untuk cara membuat loop IF untuk situasi berikut:

Saya memiliki lembar Excel dengan kata-kata yang berbeda misalnya. nama, masuk ke kolom A.
Saya ingin membuat satu lingkaran di mana jika dua sel memiliki nama yang berbeda, maka 2 baris kosong akan disisipkan di antara mereka.

misalnya.

Sel A1: Anne

Sel A2: Anne

Sel A3: Bob

Sel A4: Charlie

Jadi antara A1 & A2 dua baris kosong akan dimasukkan. Antara Bob & Charlie, 2 baris kosong lainnya disisipkan.

Larutan

Coba makro ini

ketika Anda menjalankan makro ...

Kotak input akan muncul. isi alamat sel awal untuk misalnya A10.

 Sub test () Kolom ("A: A"). Sortir Key1: = Range ("A1"), Order1: = xlAscending, Header: = xlGuess Dim j Sebagai Integer, k As Integer, m As Integer, m As Integer, r As String r = InputBox ("ketik sel pertama di bawah referensi misalnya A10") m = Rentang (r). Baris j = Rentang ("A10"). Akhir (xlDown) .Row 'j adalah baris terakhir Untuk k = j Ke m + 1 Langkah -1 Jika Sel (k, 1) Sel (k - 1, 1) Kemudian Rentang (Sel (k, 1), Sel (k + 1, 1)). SeluruhRow.Insert End Jika Next k End Sub