セルから文字列を削除して、そのセルに番号を残してください

Question

私は数字からユニットを保持する単語からインポートされたレポートを持っています。私はfind/replaceを使うことができましたが、同様のレポートを頻繁にインポートする必要があり、セル内の数値を保持しながらユニットのすべてのインスタンスを削除したいと考えています。輸入される単位は200平方フィートです。毎回番号が変わりますが、ユニット間のスペースを含むユニットは同じです。

Sub DeleteChar() 
Dim lastrow as integer 
Dim myCell as Range 
lastrow = Cells(Rows.Count, 2).End(xlUp).Row  
    For y= 3 to 10 
     For x = lastrow to 2 step -10 
      If Right(Len(myCell.Value),7) = " sq.ft." then 
      myCell.Value = Left(myCell.Value, len(myCell.Value-7)) 
      end if 
     Next x 
    Next y 
End Sub 

が必要です。 "sq.ft."にするために、最初の7文字のインスタンスを見つけるように設定しようとしました。次に、そのセルを同じ値（最後の7文字）に置き換えます。

Answer 1

あなた番号は常にヴァルを使用し、テキストの左側いる場合：

だからではなく、あなたの場合で：

 If Right(Len(myCell.Value),7) = " sq.ft." then 
     myCell.Value = Left(myCell.Value, len(myCell.Value-7)) 
     end if 

使用

ActiveSheet.Cells(x,y).value = Val(ActiveSheet.Cells(x,y).value) 

Answer 2

Sub DeleteChar() 
Dim i, lastrow As Integer 
Dim myCell As Range 
Dim arr() As String 
lastrow = Cells(Rows.Count, 2).End(xlUp).Row 

For i = 1 To lastrow 
    arr = Split(Cells(i, 2).Value, " ") 
    Cells(i, 2).Value = cDbl(arr()) 
Next i 
End Sub 

あなたなら、私を知ってみましょうデータの入力がデリミタと矛盾する場合、このコードは空白文字を探しますので、レコード区切り文字は含まれません。