Как найти, содержит ли ячейка определенные символы в определенных позициях?

Question

Я пытаюсь создать макрос, который будет искать определенную ячейку для определенной комбинации символов в определенном порядке, а затем вставить ее на другую страницу. Мне это нужно искать ячейку, содержащую 9 сочетание букв а/номер для «9P», но только если это третье и четвертый номер/письмо в

Так что если дан этот список записей:.

NA9PK99LJ 
NA9PK99LK 
XX9P109LH 
XX9P109XF 
XX849P01D 
NA8419PZ3 
XX9P109VK 

Я бы хотел, чтобы он копировал первые четыре и последние записи, а затем прошёл их вертикально, начиная с A2 на другой странице.

Я как бы новичок, чтобы превзойти vba, но мне сказали, что это должно быть выполнимо.

Любая помощь была бы высоко оценена!

Благодаря

Крис

Answer 1

Самый простой способ я знаю, это использовать Find() с групповыми символами. Что вы можете сделать, это использовать записи макросов, делая следующее:

• Начало записи макросов
• Выберите диапазон для поиска
• Do Ctrl + F и введите ??9P????? в условие поиска
• Выбрать все результаты в окне
• Закройте окно, скопируйте ячейки и вставить их туда, где вы хотите
• Остановить записи макросов

Это даст вам основную базу вашего кода, которую вы сможете точно настроить так, чтобы она делала то, что вам нужно. Это также хорошая работа для вас, чтобы узнать, как работает VBA.

Answer 2

Надеется, что это помогает, возможно, пошли за бортом

Sub Solution() 

Dim search As String, start As Integer, lastaddress As String, toworksheet As String 

lastaddress = "A2" 'cell location on the result sheet 
search = InputBox("Enter Search Critera") 'enter search critera 
start = InputBox("Start from") 'integer of where to search in the string, not zero index 
toworksheet = InputBox("Put results into which spreadsheet") 'worksheet name to put results 

'select the cell you want to start your search from and it will continue till it reaches a blank cell 
Do While ActiveCell.Text <> "" 

'Performs the test 
If Mid(ActiveCell.Text, start, Len(search)) = search Then 

'adds the entry to the results sheet 
Worksheets(toworksheet).Cells.Range(lastaddress).Value = ActiveCell.Text 
'updates the address to the next line in your results sheet 
lastaddress = Worksheets(toworksheet).Cells.Range(lastaddress).Offset(1, 0).Address 
End If 

'goes to next item in list 
ActiveCell.Offset(1, 0).Select 
Loop 

End Sub