元の値の前に "文字列"を含めるようにセルの値を変更する

Question

私が作業しているvbaスクリプトがあります（数百行）。コードの1つのセクションは、セルの行をループし、残りのデータに先行する「文字列」を追加することになっています。なぜこれが動作していないのかわかりませんが、元の値で何とかデータを上書きしていると思われます。ヘルプは非常に高く評価されます。ありがとうございました。

lastRow = Cells(Rows.Count, "A").End(xlUp).Row 
For y = 1 To 26 
If UCase(Cells(1, y).Value) Like "*MISC COMMENTS*" Then 
    Cells(1, y).Value = "Comments" 
    For Q = 2 To lastRow 
    If Cells(Q, y).Value <> "" Then 
    Cells(Q, y).Value = "Misc Comment - " & Cells(Q, y).Value 
    End If 
    Next Q 
End If 
Next y 

データは、私は私のスクリプトがエラーなしで

Comments       '<-- Header' 

Misc Comment - This is a simple '<-- Data' 
Misc Comment - Problem but I  '<-- Data' 
Misc Comment - cannot figure  '<-- Data' 
Misc Comment - it out.    '<-- Data' 

実際の結果（データは変更されません）

Misc Comments etc. '<-- Header' 

This is a simple '<-- Data' 
Problem but I  '<-- Data' 
cannot figure  '<-- Data' 
it out.    '<-- Data' 

にデータを向けるべきだと考え

Misc Comments etc. '<-- Header' 

This is a simple '<-- Data' 
Problem but I  '<-- Data' 
cannot figure  '<-- Data' 
it out.    '<-- Data' 

のように見えます私のエラーは私だと思うn次のチャンク

If Cells(Q, y).Value <> "" Then 
    Cells(Q, y).Value = "Misc Comment - " & Cells(Q, y).Value 
End If 

私はそれを間違って呼び出す方法はわかりませんが、

Answer 1

Misc Comments etc.は、MISC COMMENTSと同じではありません。比較文字列をワイルドカードする必要があります。

If UCase(Cells(1, y).Value) Like "*MISC COMMENTS*" 

ここでは、いくつかの変更を加えて書き直しています。 の 'activesheet codeの最後の行'を含むvarで何をしたいのかは不明です。

Dim y As Long, q As Long, lastRow As Long, lastRowString As String 
lastRowString = "last row of activesheet code" 

With Worksheets("sheet2") 
    For y = 1 To 26 
     If UCase(.Cells(1, y).Value) Like "*MISC COMMENTS*" Then 
      .Cells(1, y).Value = "Comments" 
      lastRow = .Cells(Rows.Count, y).End(xlUp).Row 
      For q = 2 To lastRow 
       If .Cells(q, y).Value <> "" Then 
        .Cells(q, y) = "Misc Comment - " & .Cells(q, y).Value 
       End If 
      Next q 
      Exit For '<~~ really want to exit the loop? 
     End If 
    Next y 
End With