다음과 같은 VBA 코드를 생각해볼 수 있겠습니다.

1. 엑셀 창에서 작업할 문서를 띄워둔 채 Alt+F11을 눌러 VBA 창을 엽니다.
2. VBA 창의 [Sheet1](작업해야 할 내용이 담긴 시트)를 더블클릭해서 열고, 다음 VBA 코드를 복사하여 그대로 붙여넣습니다.
――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――
Sub extraction()
Dim allCells As Range: Set allCells = Range("A1:Z999")
Dim writePos As Range: Set writePos = Range("AA1")
Dim pattern As String: pattern = "[A]########"
Dim myCol As New Collection
Dim item As Variant

For Each item In allCells
If IsEmpty(item) = False And item.Value Like pattern Then
myCol.Add (item.Value)
End If
Next

writePos.Select

For Each item In myCol
ActiveCell.Value = item
ActiveCell.Offset(1, 0).Select
Next
End Sub
――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――
3. F5 키를 눌러 VBA 코드를 실행시킵니다. 만일 [매크로]라는 창이 뜨면, 옆에 있는 [실행] 버튼을 눌러줍니다.
4. 실행된 결과물을 확인합니다.

참고로 이 VBA 코드는 여러 번 실행할 경우, 이전 실행시에 기록했던 AA1 셀부터의 결과값을 처음부터 덮어씁니다. 그리고 VBA 매크로가 있는 엑셀 파일은 저장할 때 .xlsx 확장자가 아니라 .xlsm이라는 확장자로 저장해야만 합니다.