在非空單元格中的文本之前添加撇號

Question

我需要編寫一個簡單的宏，如果它們不爲空，它將在單元格中的文本之前添加一個postrophe「'」。即：

此：
列C
ASDF
FDSA

FASADA

應該變成這樣：
列C 'ASDF
' FDSA

「FASADA

我的代碼看起來像這樣：（但在倒數第二行的錯誤（非常免得一個如果不計「結束子」行）

Sub Inserting_apostrophe() 
startrow = 1 
endrow = 1800 

For x = startrow To endrow 
    If Cells(x, "C").Value <> "" Then 
    Range("C" & x).Value = "'" & "Cells(x, "C").Value" 'This line is unfortunately wrong, could you mend it? 

End Sub 

謝謝大家提前，
問候，
Artur Rutkowski

Answer 1

"Cells(x, "C").Value"是問題所在。它不應該在引號中。
您也沒有完成您的If聲明或For聲明。使用End If和Next結束您的If聲明並告訴For何時循環。

Sub Inserting_apostrophe() 
    Dim startrow as Integer 
    Dim endrow as Integer 
    Dim x as Integer 

    startrow = 1 
    endrow = 1800 

    For x = startrow To endrow 
     If Cells(x, 3).Value <> "" Then 
      Range("C" & x).Value = "'" & Cells(x, 3).Value 
     End If 
    Next 
End Sub