誰が自分のインスタグラムをフォローしていないか確かめる方法！エクセルマクロをつかったやり方を紹介

前までフォローし合ってたのに気づいたらフォロワー減ってた，，誰だろう？

流れとしては，chrome拡張機能を入れる→フォロワー，フォロー中の人のリストをエクセルで出力→エクセルを用いて誰がフォローしていないかあぶり出す．

1. フォローチェックできるアプリについて

Ig Followers Reports

• 涵 何
• Photo & Video
• Free
• 

apps.apple.com

世の中にはこういうアプリがあるが，私はおすすめしない．

このアプリをいれるとログインが要求されるが，もちろんパスワードも要求される．

このパスワードはこのアプリ制作者も見れる．

実際，ログイン後に不正アクセスが増えた．（インドからのログイン試みなど）

2. Chrome　拡張機能　をいれる

chromewebstore.google.com

今回用いたのはこちら．

まずはブラウザでインスタグラムにログイン．

拡張機能をダウンロードして，開いてください．

自分のユーザー名かURLを入れる

Start New Parsing を押し，右のProgressのFound profilesがTotal profilesに達したらSave to Excelを押す．

Followingでも繰り返す．

このように2つ保存できているはず．

3. Excel で VBAを組もう！

まずはエクセルを開き，このように表を作ろう

こんな感じ．

VBAはこんな感じです．

1. Option Explicit
2.  
3. Sub whoUnfollowedme()
4.  
5.     Dim i
6.     Dim count
7.     
8.     ' Delete content of column C except for row 1
9.     Range("C2:C" & Cells(Rows.count, 3).End(xlUp).Row).ClearContents
10.     
11.     ' Delete content of column D except for row 1
12.     Range("D2:D" & Cells(Rows.count, 4).End(xlUp).Row).ClearContents
13.     
14.     ' who does not follow me back
15.     count = 2
16.     For i = 2 To Cells(Rows.count, 1).End(xlUp).Row
17.         If WorksheetFunction.CountIf(Range("B:B"), Cells(i, 1).Value) = 0 Then
18.         Cells(count, 3) = Cells(i, 1).Value
19.         count = count + 1
20.         End If
21.     Next
22.     
23.     ' who I do not follow back
24.     count = 2
25.     For i = 2 To Cells(Rows.count, 2).End(xlUp).Row
26.         If WorksheetFunction.CountIf(Range("A:A"), Cells(i, 2).Value) = 0 Then
27.         Cells(count, 4) = Cells(i, 2).Value
28.         count = count + 1
29.         End If
30.     Next
31. End Sub
32.  

(ソースコードをいれる方法も勉強しなきゃ，，)

結果をCD列に出します．

流れとしては，セルのクリア(C, D)

A列の中からB列にないユーザー名をC列に，

B列の中からA列にないユーザー名をD列に出す．

これで相互フォローやフォローし忘れを安全に確認できますね！