VBAのループで立ち往生し、私は次のコードを書かれている

Question

次のコマンドに移りません：

Public Sub SortMyData() 

'approach: convert line to string and concatenate to that as it's a lot less picky than Excel's formats, then replace cell value with the new string. 
'   Excel will then define the string type as either Percentage or Scientific depending on the magnitude. 
Dim i As Integer 
Dim g As Integer 
Dim N_Values As Integer 
Dim IntermediateString As String 

N_Values = Cells(1048576, 2).End(xlUp).Row 'retrieves the final filled row in column 2 (B) 

For i = 6 To N_Values 'iteration loop from 6 (first row of value) to N_Values (last filled row) 

    If Cells(i, 2).NumberFormat <> "0.0%" Then 
     IntermediateString = Cells(i, 2).Value 
     Cells(i, 2).NumberFormat = "0.0%" 
     Cells(i, 2).Value = Cells(i, 2).Value/100 
    Else 
     MsgBox ("The Range of Cells Has Already Been Formated as Percentage") 
    End If 
Next i 

For g = 6 To N_Values 'iteration loop from 6 (first row of value) to N_Values (last filled row) 
    If Len(Cells(g, 3) > 3) Then 
     Cells(g, 3).Value = Cells(g, 3).Value/1000 
    Else 
     MsgBox ("Data is correct so no action will be taken") 
    End If 
Next g 
End Sub 

コードが細かい実行されますがステートメントは、それだけで実行し続けるならば、それはsecont上に移動しません。最初のものとMsgBoxを表示する（ "セルの範囲はすでにパーセンテージとして形成されています"）ので、私はどこでミスをしたのか分かりません。 私は新人ですので、私の上で簡単に行く！

Answer 1

あなたは文字列を宣言：

Dim IntermediateString As String 

次に、あなたがそれ（方法によって、.Valueのはオプションで、セル（x、y）と細胞（x、y）は.Valueのに価値に影響を与えています同じ）：

IntermediateString = Cells(i, 2).Value 

しかし、その後、あなたはこの文字列で何もしないので、私はそれはあなたがすることを意図したものではないのですかなり確信しているあなたは、これらの行の両方をコメントすることができ（、あなたのプログラムが実行されます同じ方法）。

また、プログラムがコード化されているのを見ると、B列の行数として「セルの範囲は既にパーセントで表されています」というメッセージが最大であるはずですが、 2番目のif文に達する。

実行ウィンドウ（Ctrl + G）を開いて、コード内の "MsgBox"をDebug.Printで置き換えることをお勧めします。実行ウィンドウにメッセージが表示されますが、プログラムの実行を一時停止しません（デバッグする方がはるかに良い方法）