如何使用 Excel 宏将部分字符串从特定单元格复制到另一个单元格？

Question

How do I copy part of a string in a cell to another cell?

For example: In cell A1 it says Force: 2035N . I want to copy only the 2035N part from it from A1 to B1. How do I do that?

I started looking a MID substring. So something like:

a=Mid(ActiveSheet.Range(“A1”), 1 5)). 

But I'm completely new to VBA so I don't really know how to make it work.

Edit: More info.

What I want to copy

End result

I have a CSV file with lots of data in different rows. I want to use a macro so I can sort all this data in a desired order and transpose it so I can just copy it to another excel file.

The characters from the whole string I want to copy from the original cell (let's say they are in cell A1-A7) are in bold (in the picture). And this csv file is always in the same order and the characters are in the same place.

I want to copy the bold part of the cell from A1-A7 to for example B1-H1.

Answer 1

Try below sub.

Sub SplitString()
    Dim str
    
    str = Split(Range("A1"), " ")
    
    Range("B1") = str(UBound(str))
    
End Sub

If you want to use formula only then try-

=TRIM(MID(A1,SEARCH(" ",A1)+1,LEN(A1)))