EXCEL vba -从单元格中提取数字并粘贴到两个不同的列中？

Sub ExtractNumbers()
    Dim cell As Range
    Dim value As String
    Dim number As String
    Dim i As Integer
    
    i = 1
    
    For Each cell In Range("A1:A10") '假设要提取的单元格范围是A1:A10
        value = cell.Value
        number = ""
        
        For i = 1 To Len(value)
            If IsNumeric(Mid(value, i, 1)) Then
                number = number & Mid(value, i, 1)
            End If
        Next i
        
        '将提取到的数字分别粘贴到B列和C列
        cell.Offset(0, 1).Value = number 'B列
        cell.Offset(0, 2).Value = number 'C列
    Next cell
End Sub