здрасте :blink: !!
есть xxx.xls в нем 2 листа. На первом("ВСЕ") инфа о всех предприятиях города. на втором("КУРИМ") те с которыми курим. НУЖНО перебрать все записи так что бы во ВСЕ напротив предприятия которое присутсвует в КУРИМ ставился "+" (в идеале индекс строки из курим).
написал примерно такое
Dim i, y As Integer
Dim s As String
For i = 2 To 350 '3105'
s = Worksheets("КУРИМ").Cells(i, 3)
For y = 2 To 787
If s = Worksheets("ВСЕ").Cells(y, 1) Then
Worksheets("ВСЕ").Cells(y, 15) = i
End If
Next y
Next i
работает!!! но это класический случай 8)
ПРОБЛЕМА: "специалисты" отдела забили на все заголовки, и в поле "название" вместе с названием вбивали всякую пОебе...нь. т.е вo ВСЕ в столбик с названиями писали чисто название, а в КУРИМ название + кавычки+ООО, ОАО.... + гендиректоров.... и мне нужно проверять вхождение название(ВСЕ) в название(КУРИМ)...
блин вроде ясно написал...
помогите !!! это же супеер легко !!!!
есть xxx.xls в нем 2 листа. На первом("ВСЕ") инфа о всех предприятиях города. на втором("КУРИМ") те с которыми курим. НУЖНО перебрать все записи так что бы во ВСЕ напротив предприятия которое присутсвует в КУРИМ ставился "+" (в идеале индекс строки из курим).
написал примерно такое
Dim i, y As Integer
Dim s As String
For i = 2 To 350 '3105'
s = Worksheets("КУРИМ").Cells(i, 3)
For y = 2 To 787
If s = Worksheets("ВСЕ").Cells(y, 1) Then
Worksheets("ВСЕ").Cells(y, 15) = i
End If
Next y
Next i
работает!!! но это класический случай 8)
ПРОБЛЕМА: "специалисты" отдела забили на все заголовки, и в поле "название" вместе с названием вбивали всякую пОебе...нь. т.е вo ВСЕ в столбик с названиями писали чисто название, а в КУРИМ название + кавычки+ООО, ОАО.... + гендиректоров.... и мне нужно проверять вхождение название(ВСЕ) в название(КУРИМ)...
блин вроде ясно написал...
помогите !!! это же супеер легко !!!!