Vba提取excel的F列中数字到S列，F列数据为"new po#"+数字的内容

你可以使用VBA的字符串处理函数和循环结构来实现这个需求。以下是一个示例代码，你可以根据自己的需求进行修改。

Sub ExtractNumbers()
    Dim lastRow As Long
    Dim i As Long
    Dim poNumber As String
    Dim numberOnly As String
    
    lastRow = Cells(Rows.Count, "F").End(xlUp).Row '获取数据最后一行的行号
    
    For i = 1 To lastRow
        poNumber = Cells(i, "F").Value '获取F列的值
        If Left(poNumber, 7) = "new po#" Then '判断是否为"new po#"开头的字符串
            numberOnly = Mid(poNumber, 8) '提取数字部分
            Cells(i, "S").Value = numberOnly '将数字部分写入S列
        End If
    Next i
End Sub

这个代码会遍历F列中的每一行数据，判断是否为"new po#"开头的字符串，如果是，则提取数字部分并写入S列。你只需要将这段代码复制到Excel的VBA编辑器中（按Alt+F11打开），然后在需要执行的时候按F5运行即可。