エクセルのVBAで教えたください。セルの文字数が特定の文字数の時のみ下２桁を書き出す方法。

こんにちは。 たぶん、何かの製作の途中だと思います。ですが、VBAで厳密には、「数値の文字数」はないのですが、VB系は、そこらへんが、あいまいなんですね。 曖昧なままで作ると、このようになります。 (小数点を含んだものは排除されます） Sub Test1() 　　Dim c As Variant 　　For Each c In　Range("A1", Range("A65536").End(xlUp)) 　　　　If IsNumeric(c.Value) Then 　　　　　　If Abs(c.Value) Like "####" Then 　　　　　　　　c.Offset(, 1).Value = Right(c.Value, 2) 　　　　　　End If 　　　　End If 　　Next End Sub もし、プログラムらしい書き方を望むようでしたら、以下のようにしたらよいと思います。 1,2 とも、負の符号が必要な場合は、Sgn 関数でとってください。こちらは、小数点以下を取り去った数値の下2桁を出します。 Sub Test2() 　　Dim c As Variant 　　For Each c In Range("A1", Range("A65536").End(xlUp)) 　　　　If VarType(c) = vbDouble Then 　　　　　　If Int(Log(Abs(c.Value)) / Log(10#)) = 3 Then 　　　　　　　　c.Offset(, 1).Value = Fix(Abs(c.Value)) - Int(Abs(c.Value) / 100) * 100 　　　　　　End If 　　　　End If 　　Next End Sub