因子分析用ツール（私的メモ）

因子分析をして各項目がどの因子に一番高い負荷量があるか確認するときに使う。

よくある「Excelに張り付けた因子分析結果を見て、一番因子負荷量が高いところのセルに色つけましょう」という手作業を何十回も繰り返すのがしんどいのでマクロ作った。

因子負荷量の表を選択して実行

Sub max_loadings()

X_st = Selection(1).Column
X_Ed = Selection(Selection.Count).Column

Y_st = Selection(1).Row
Y_ed = Selection(Selection.Count).Row

For y = Y_st To Y_ed

For x = X_st To X_Ed

If x = X_st Then

hikaku = Abs(Cells(y, x).Value)
Set Address = Cells(y, x)

Else
If hikaku < Abs(Cells(y, x).Value) Then
hikaku = Abs(Cells(y, x).Value)
Set Address = Cells(y, x)
End If

End If

Next x

MsgBox hikaku
Address.Interior.Color = 255

Next y

End Sub