I
Size: a a a
I
ᅠ
VD
Д
Д
KS
ДЦ
ДЖ
Sub macro()
Dim values As String
values = "B"
Dim countries As String
countries = "C"
Dim max As Integer
max = Worksheets(1).Range(values & 1).Value
Dim iter As Integer
Dim i As Integer
For i = 1 To 10
If max < Worksheets(1).Range(values & i).Value Then
max = Worksheets(1).Range(values & i).Value
iter = i
End If
Next i
Worksheets(1).Range("G1").Value = Worksheets(1).Range(countries & iter).Value
Worksheets(1).Range("H1").Value = max
End Sub
ДЖ
RN
RN
VD
VD
VD
П
VD
VD
П
П