问如何从相关表中提取应用条件的值？

EN

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