Stupido
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sub Macro1()
'
' Macro1 Macro
'
A = Range("b2:j25")
B = Range("b2:j25")
Workbooks.Open ("E:\!RABOTA\Excel\data.xls")
Ñ = Range("a2:k6")
For r = 1 To UBound(A, 1)
ind = False
For i = 1 To UBound(C, 1)
For j = 1 To UBound(C, 2) - 1
If A(r, 1) = C(i, j) Then
B(r, 1) = C(i, UBound(C, 2))
ind = True
Exit For
End If
Next j
If ind = True Then Exit For
Next i
Next r
Workbooks("E:\!RABOTA\Excel\data.xls").Close SaveChanges:=False
Range(Cells(b2), Cells(j25)) = B
Erase A, B, C
End Sub
|
Всего записей: 937 | Зарегистр. 05-08-2008 | Отправлено: 16:19 26-09-2008 | Исправлено: Stupido, 16:28 26-09-2008 |
|
