Merhaba arkadaşlar sizinde benim gibi İnstaFly'a parasınız yoksa, hesabının çalınmasından korkuyorsanız bu yöntemle sizi takip etmeyenleri görebilir ve çıkarabilirsiniz. Çok uzatmadan direk konuya giriyorum.

1- İnstagram mobilden sırasıyla: İnstagram profilinize gidin - Sağ üst alanda yer alan hamburger menüye, ardından hareketlerin seçeneğine tıklayın. En alt alanda yer alan download your information(bilgilerinizi indirin) seçeneğini girin. - E-posta adresinizi girin ve indirme talep et seçeneğine tıklayın.


2- Mailinize gelen dosyalardan "followers_and_following" klasöründen takip ettikleriniz ve sizi takip edenleri görebileceğiniz dosyaları bulup açıyorsunuz. (followers.html , following.html)
3- Exceli açıyoruz ve A sütununa Takipçiler, B sütununa Takip edilenler, D sütununu Sonuç yazıyoruz.
4- followers.html dosyasını açıp en üstten en alta kadar kopyalayıp A-2'ye yapıştırıyoruz. Aynı şekilde following.html dosyasını açıp en üstten en alta kadar kopyalayıp B-2'ye yapıştırıyoruz. Bu şekilde bir görüntü oluyor.
5- Asıl olay şimdi başlıyor. Sayfa1'in üzerine sağ tıklayıp Kodu Görüntüle diyoruz.
6- Sağ tıklayıp sırayla: İnsert -Modele diyoruz.

7- Size verdiğim kodu bu kısma yazıyoruz.

Sub takipciAnaliz()

Sayfa1.Range("D2:D1000000").ClearContents

Dim kontrol As Range
Dim sonsat, sonsat2, sonsat3, i As Integer
Dim arananKullanici As String

sonsat = Sayfa1.Range("A1000000").End(xlUp).Row
sonsat2 = Sayfa1.Range("B1000000").End(xlUp).Row

For i = 2 To sonsat2 Step 2

arananKullanici = Sayfa1.Range("B" & i)

Set kontrol = Sayfa1.Range("A1:A" & sonsat).Find(arananKullanici)
  
  If kontrol Is Nothing Then
  
  sonsat3 = Sayfa1.Range("D1000000").End(xlUp).Row + 1
  
  Sayfa1.Range("D" & sonsat3) = arananKullanici
  
  End If

Next
End Sub

8- Excell'de ekleden bir şekil ekleyip bu şekle makro ata diyoruz ve yazmış olduğumuz kodu seçip Tamam diyoruz.

9- Hayırlı olsun butona bastığımız anda sonuçlar yazılıyor. Artık tek tek çıkabilirsiniz.