Copy Heading number in condition

[kamkwok6]

I have two functions want to be achieved

Question 1

I know it is a solution to copy the heading number inside the bracket. as below
=VALUE(MID(A1,FIND(“(“,A1)+1,FIND(“)”,A1)-FIND(“(“,A1)-1))

However , I am looking for a VBA solution to copy heading number to other cell no matter it is contained by a bracket or not.

see attached"Question.xlsx". Thanks a lot

Q1 Result:
Result.jpg

Question 2
I have another excel showing which manually inputted the reference section number from Question 1,
I would like to ask if it is possible to convert it to its corresponding ID.
It may look like a lookup function, but multiple section reference may be included in one single cell.

see attached "Question2.xlsx". Thanks a lot
Q2 Result:

Result2.jpg