VBA - Menggunakan fungsi IF untuk 2 sel

Isu

Saya telah mencari tanpa kejayaan di mana-mana untuk jawapan bagaimana untuk membuat JIKA JIKA untuk situasi berikut:

  • Saya mempunyai lembaran Excel dengan kata-kata yang berbeza misalnya. nama, pergi sepanjang jalan ke lajur A.
  • Saya ingin membuat gelung di mana jika dua sel mempunyai nama yang berbeza, maka 2 baris kosong dimasukkan di antara mereka.

contohnya.

Sel A1: Anne

Sel A2: Anne

Sel A3: Bob

Cell A4: Charlie

Jadi antara dua baris kosong A1 & A2 akan dimasukkan. Antara Bob & Charlie lagi 2 baris kosong dimasukkan.

Penyelesaian

Cuba makro ini

apabila anda memohon makro ...

Kotak input akan muncul. Isikan alamat sel awal untuk contoh A10.

 Sortir Key1: = Range ("A1"), Order1: = xlAscending, Header: = xlGuess Dim j As Integer, k As Integer, m As Integer, r As String r = InputBox ("taip sel pertama di bawah rujukan contohnya A10") m = Julat (r) .Row j = Julat ("A10") Akhir (xlDown) 1 Langkah -1 Jika Sel (k, 1) Sel (k - 1, 1) Kemudian Julat (Sel (k, 1), Sel (k + 1, 1)). EntireRow.Insert End If Next 

Catatan

Terima kasih kepada venkat1926 untuk tip ini di forum.

Artikel Sebelumnya Artikel Seterusnya

Tip-Tip Utama