相関テーブルから基準を適用して値を引き出す方法はありますか？

Question

現在、特定のプロファイルに適合する相関テーブルからセル値を抽出する必要があります。 "< 0.6"これは、相関係数が4,000を超える項目について実行していない場合には、手作業が簡単になる可能性があります。出力の考え方は、関連する項目を示す連結列と、それらの項目の相関の値を含む別の列を持つ別の表を作成することです。

私はVBAが行く方法だろうと思っていたかもしれませんが、多分私は見落とすことができる他のより速く簡単な方法があります。

ご協力いただければ幸いです。事前に

感謝:)

Answer 1

Sub extract() 

Worksheets("Matrix").Select 
Range("A1").Select 

Dim Row As Long 

Dim Col As Long 


x = 1 

y = 1 

i = 0 

Worksheets("Paste").Cells.ClearContents 
Worksheets("Paste").Range("A1") = "X" 
Worksheets("Paste").Range("B1") = "Y" 
Worksheets("Paste").Range("C1") = "Value" 

Worksheets("Matrix").Activate 
Row = Worksheets("Matrix").Range("A1",  Worksheets("Matrix").Range("A1").End(xlDown)).Rows.Count 
Col = Worksheets("Matrix").Range("A1",  Worksheets("Matrix").Range("A1").End(xlToRight)).Columns.Count 


If Row <> Col Then 
MsgBox "ERROR: Matrix is not symmetrical, can't be a correlation matrix" 

Exit Sub 

End If 

For x = 1 To Row 

    For y = 1 To Col 

     If Cells(y, x) > 1 Then 
     Cells(y, x).Copy 
     Worksheets("pegar").Range("C2").Offset(RowOffset:=i).PasteSpecial xlPasteValues 
     Worksheets("paste").Range("B2").Offset(RowOffset:=i).Value = y 
     Worksheets("paste").Range("A2").Offset(RowOffset:=i).Value = x 
     i = i + 1 

    End If 

Next y 


Next x 

Worksheets("paste").Select 
MsgBox "values extracted" 

End Sub