2016-10-25 6 views
0

何らかの理由で、列を選択して右クリックしてセルを数値にフォーマットしても、それでもセル内の緑色の隅に警告が表示されますそれはテキストとして保存された番号です。範囲を強調表示し、黄色の枠内の感嘆符をクリックして範囲を数値に変換します。マクロで9番目の列をすべてExcelの数値に変換する

問題は、数百の範囲でこれを行う必要があることです。

9番目の列ごとに範囲(例:XP2:XP2700)を強調表示し、範囲全体を数値に変換するにはどうすればよいですか?

+0

マクロを使用することにより(http://stackoverflow.com/questions/36157512/show-number-stored-as-text-error) – Comintern

+0

スタート[エラー「テキストとして保存された数」の表示]の可能性のある重複レコーダー。問題が発生した場合は、コードと問題の明確な説明を書き留めてください。 –

+0

テキスト・ツー・カラム(固定幅、終了)は、テキスト・ルック・イット・ア・ナンバーの全列を真の数値に変換する最も簡単な方法です。 – Jeeped

答えて

0

これはOPの前の質問のフォローアップです。これは私が答えたものです。

データを配列にロードして数値に型変換し、元の範囲に書き戻します。

Sub ConvertToNumber() 
    Dim x As Long, y As Long 
    Dim Data 

    With Worksheets("CPR Test 2013-2015") 
     For y = 1 To 1582 Step 9 
      Data = .Cells(2, y).Resize(2699, 1).Value 
      For x = 1 To UBound(Data, 1) 
       If IsNumeric(Data(x, 1)) And Not IsEmpty(Data(x, 1)) Then 
        Data(x, 1) = CDbl(Data(x, 1)) 
       End If 
      Next 
      .Cells(2, y).Resize(2699, 1).Value = Data 
     Next 
    End With 

End Sub 
関連する問題