一个Excel VBA代码，可以提取某一列中每个单元格的所有数字，并将其输出到右侧一列的单元格

Sub ExtractNumbersToRightColumn()  
  
    Dim rng As Range  
    Dim cell As Range  
    Dim str As String  
    Dim i As Integer  
    Dim result As String  
      
    Set rng = Range("A1:A10") '设置要提取数字的列范围，这里假设为A1到A10  
      
    For Each cell In rng.Cells  
        str = cell.Value  
        result = ""  
          
        For i = 1 To Len(str)  
            If IsNumeric(Mid(str, i, 1)) Then  
                result = result & Mid(str, i, 1)  
            End If  
        Next i  
          
        cell.Offset(0, 1).Value = result '将结果输出到右侧一列的单元格  
    Next cell  
  
End Sub

你可以将 Range("A1:A10") 替换为你想要提取数字的列范围。