VBA見出しにバグを修正するExcel

Question

私の見出しのセクションにバグがあり、完全に解決できません。私は現在、Excelファイル用のマクロを書いています。 Jamaと呼ばれるツールからアイテム（見出し、ID、名前、説明など）をインポートします。

以前は、見出しが2.13で、2,13を生成していたようなExcelがバグを生成していました。私たちは.NumberFormat="@"を使って解決しましたが、それはすでにExcelファイル内にある項目でのみ機能します。

たとえば、Jamaからもう一度更新するためにボタンを押すよりも、いくつかの項目を削除しようとすると何も起こりません。私の上司は、If条件は必要ないと言っていました。私はあなたの助けが非常に必要なのでVBAで新しいです。コメントに書かれたよう

' convert to text format 
    If rCell.Offset(0, cHeading - 1).NumberFormat = "@" Then 
     rCell.Offset(0, cHeading - 1) = oResponseDataLocation("sequence") 
    End If 

    'Coloring 
    If rCell.Offset(0, cHeading - 1) <> sPastCellContant Then 
     rCell.Offset(0, cHeading - 1).Interior.ColorIndex = ChangedColour 
    End If 

Answer 1

は、このブロックは、テキスト形式に変換されない：

は、私はこれらのコード行を持っています。セルの書式が既にテキストとして書式設定されている場合は、インデントされた行のみが実行されます。

' convert to text format 
rCell.Offset(0, cHeading - 1).NumberFormat = "@" 
rCell.Offset(0, cHeading - 1) = oResponseDataLocation("sequence")