Самый легкий в мире вопрос...

  • Автор темы Tequilla
  • Дата начала
T

Tequilla

#1
здрасте :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 ВСЕ в столбик с названиями писали чисто название, а в КУРИМ название + кавычки+ООО, ОАО.... + гендиректоров.... и мне нужно проверять вхождение название(ВСЕ) в название(КУРИМ)...
блин вроде ясно написал...
помогите !!! это же супеер легко !!!!
 

Over

Well-known member
04.07.2007
116
0
#2
Используй функцию InStr. Хелп найдёшь в редакторе VBA.