Question

我需要编写一个简单的宏，如果它们不为空，则会在单元格中的文本之前添加一个“”“。即：

此：
C栏 ASDF
FDSA

FASADA

应改为：
C栏 “ASDF
'FDSA

'FASADA

我的代码看起来像这样:(但倒数第二行有一个错误（如果一个人不计算“End Sub”行，则非常小）

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

在非空单元格中的文本之前添加撇号

1 个答案: