VBAで文字列を自動整形することからExcelを維持します

Question

別のシートから値を抽出するこのコードがあります。 これらの値はTEXTですが、Excelを抽出した後に関係なく、でもテキストとしてフォーマットするために設定された列で、でも

Format(value , "#") 

を使用すると、問題は、彼らが大きな数字であり、それがいずれかを変更していることは何か、数に変換しません15桁以上の数字は0に、私は数字が必要です。

彼らは、それがプロセスに変更されるように

Dim i, col1, col2 As Integer 
i = 2 
col1 = 4 
col2 = 5 
    For j = 2 To 2205 
     If Cells(j, 3).Value <> "" Then 
      If Len(Cells(j, 3)) = 20 Then 
        Cells(i, col1).Value = Format(Cells(j, 3).Value, "#") 
        Cells(i, col2).Value = Cells(j, 3).Row 
        Cells(j, 3).Value = "" 
        i = i + 1 
      End If 
     End If 
    Next j 
    i = 2 
    col1 = col1 + 2 
    col2 = col2 + 2 

Answer 1

エクセルは小数点のいずれかの側に15桁を超える数字ので、15 digits of precisionの制限を有し、基準列（J、3）に切断されていません所望の精度で記憶されない。値を挿入する前にセルフォーマットを設定しようとしましたか？値を設定する前に、Cells(i, col1).NumberFormat = "@"行を使用してください。

Dim i, col1, col2 As Integer 
    i = 2 
    col1 = 4 
    col2 = 5 
     For j = 2 To 2205 
      If Cells(j, 3).Value <> "" Then 
       If Len(Cells(j, 3)) = 20 Then 
         Cells(i, col1).NumberFormat = "@" 
         Cells(i, col1).Value = Format(Cells(j, 3).Value, "#") 
         Cells(i, col2).Value = Cells(j, 3).Row 
         Cells(j, 3).Value = "" 
         i = i + 1 
       End If 
      End If 
     Next j 
     i = 2 
     col1 = col1 + 2 
     col2 = col2 + 2