VBA excel Replace

Question

こんにちは、私はVBAの初心者です。 私はいくつかのことをする必要がありますが、どうやってそれを行うのか分かりません。

1）まず、私が（ドットにカンマ（、）を変換する必要があります。）

2）列に2 Iたく数ドット

3前）のセルに文字Iのwannaである場合例えばファイルと私のコードを（アップロード例えば細胞（I、13）0.b1 I以下= 0 + 1 = 1又は3.C = 3 + 1 = 4

の番号+1

に変更動作しません）
エラー：StatementがTypeブロック外で無効です。

http://www.wyslij-plik.pl/pokaz/906005---kgkx.html

Sub change() 

Dim i As Integer 
Dim dot As String 


i = 2 
While Cells(i, 1) <> "" 

dot = Cells(i, 1) 
dot = Replace(dot, ",", ".") 

If InStr(Cells(i, 1), ".") Then 
Cells(i, 2) = Left(Cells(i, 1), 2) ' i wanna only the number before the dot 

End If 

If IsNumeric(Cells(i, 1)) = False Then 
Cells(i, 2) = Cells(i, 1) + 1 

End If 
    'If in the cells is a letter i wanna change it to number +1 
for example cells (i,13) 0.b1= 0 + 1 = 1 or 3.c = 3+ 1 = 4 

i = i + 1 
Wend 
End Sub 

Answer 1

あなたは、列BにA列をコピーしているVBAなしで列に[データ]> [テキストを解決することができ、この

Sub change()  
    Dim i As Integer, s As String, a() As String, cell As Range 

    Set cell = [A2] 
    While cell > "" 
     s = Replace(cell, ",", ".") 
     a = Split(s, ".") 
     i = a(0) 
     If UBound(a) > 0 Then 
      If a(1) Like "[a-zA-Z]*" Then i = i + 1 
     End If 
     cell(, 2) = i  ' the cell on its right 
     Set cell = cell(2) ' the cell below it 
    Wend  
End Sub 

のようなもの>カンマをチェックおよびその他：.を入力した後、D2でこの式を使用できます。

= B2 + Not(IsNumber(C2))