VBA 스크립트 2탄

Sub Distance()

Dim i As Integer

Dim j As Integer

Dim k As Integer

Dim l As Integer

Dim n As Integer

l = 2

j = 2

For i = 1 To 7

n = 3

For k = 1 To 7

If 1# > (Worksheets(“Sheet1”).Cells(i, j).Value) * (Worksheets(“Sheet1”).Cells(i, j).Value) – (Worksheets(“Sheet2”).Cells(k, l).Value) * (Worksheets(“Sheet2”).Cells(k, l).Value) Then

Worksheets(“Sheet1”).Cells(i, j + n).Value = Worksheets(“Sheet2”).Cells(k, 1).Value

n = n + 1

End If

Next

Next

End Sub

이놈은 대체 뭐하는 놈일까요? -_-;