セルの値に何が追加されているかを確認する方法はありますか？

Question

だから私は複数のマクロの入力値は、ブック内のセルにあります。これは私がとのトラブルを抱えている関連する部分である：

If wsCsh.Cells(cshrow, cshcol) = "" Then 
     Cells(cshrow, cshcol - 1).FormulaR1C1 = "='WREG'!R" + CStr(wregrow) + "C" + CStr(wregcol) 
Else 
     Cells(cshrow, cshcol - 1).FormulaR1C1 = Cells(cshrow, cshcol).FormulaR1C1 + "+'WREG'!R" + CStr(wregrow) + "C" + CStr(wregcol) 
End If 

セル（cshrow、cshcol）が空の場合、それがあれば、セル（wregrow、wregcol）にリンクするR1C1式に入り、それはセル内にあるものにcell（wregrow、wregcol）を追加しません。しかし、私はこのマクロを2度続けて実行すると言う。それから、基本的にcell（wregrow、wregcol）をcellに2回追加し、cell（cshrow、cshcol）は "cell（wregrow、wregcol）+ cell（wregrow、wregcol）"のようになります。 R1C1の式でセルがすでに参照されているかどうかを確認するには、2回目の値の追加を避けることができますか？

Answer 1

Dim extraBit As String 

With wsCsh 
    extraBit = "+'WREG'!R" & wregrow & "C" & wregcol 
    If .Cells(cshrow, cshcol).Value = "" Then 
     'Set the formula to the "extra bit" 
     .Cells(cshrow, cshcol - 1).FormulaR1C1 = "=" & extraBit 
    ElseIf Right(Cells(cshrow, cshcol - 1).FormulaR1C1, Len(extraBit)) <> extraBit Then 
     'Add the "extra bit" if the current formula doesn't already end with it 
     .Cells(cshrow, cshcol - 1).FormulaR1C1 = .Cells(cshrow, cshcol).FormulaR1C1 & extraBit 
    End If 
End With