Vba 将新字符串附加到Excel中的单元格

我正在尝试这个，但它不起作用：

Sub macro1()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim LR As Long
With ActiveSheet
    LR = .Cells(.Rows.Count, "C").End(xlUp).Row
End With

For r = 2 To LR

p = Application.Match(Cells(r, 3), Sheets("Input").Range("C:C"), 0)

If IsError(p) Then GoTo nextr:

Cells(r, 4).Value = .Value & ",newsletter" '***here***


nextr:
Next r

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

如果我在此处标记为的行上使用以下内容：

Cells(r,4) = "Y"

---

它是有效的，所以我想我的附加操作是错误的？

只是为了清楚地说明答案并将其格式化：

Option Explicit

Sub macro1()
Dim p As Double
Dim LR As Long
Dim r As Long

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

LR = ActiveSheet.Cells(ActiveSheet.Rows.Count, "C").End(xlUp).Row

For r = 2 To LR
    p = Application.Match(Cells(r, 3), Sheets("Input").Range("C:C"), 0)
    If Not IsError(p) Then
        ActiveSheet.Cells(r, 4).Value = ActiveSheet.Cells(r, 4).Value & ",newsletter" '***here***
    End If
Next r

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

---

在第

行的单元格（r，4）中，Value=.Value&“，时事通讯”

，“.Value”代表什么？我是说什么的价值，我是个白痴！它的工作原理是：单元格（r，4）。Value=单元格（r，4）。Value&“，时事通讯”