Vba 在一个单元格中添加多个值

我有这段代码

Sub neviem()

Dim ws As Worksheet
Dim i As Range
Dim j As Long

Set i = Range("GKC")

For j = i.Rows.Count To 1 Step -1

    If IsEmpty(Range("E3").Value) Then
        If i(j, 1) Like Range("E2") Then
           i(j, 1).Offset(0, 1).Copy Range("E2").Offset(1, 0)
        End If

    ElseIf i(j, 1) Like Range("E2") Then
        i(j, 1).Offset(0, 1).Copy Range("E2").Offset(1, 0) & "," & Range("E2").Value
    End If

Next

End Sub

通过这段代码，我试图在同一个单元格中添加多个文本值。当我运行它时，第一部分是确定的，它将添加一个文本值。问题是当我再次运行它时，它会给我一个错误

运行时错误1004复制方法类失败

因此，我无法在已有的文本值旁边添加更多文本值

这在VBA中是可能的吗？

而不是这个

i（j，1）。偏移量（0，1）。复制范围（“E2”）。偏移量（1，0）和“，”和范围（“E2”）。值

---

试试这个

i（j，1）。偏移量（0，1）=范围（“E3”）和“，”和范围（“E2”）

你有副本的部分。。。。。"," . 这将给出一个错误。这是无法将值复制到的有效范围。请不要使用

.copy

并直接设置单元格的

.value

i（j，1）.Offset（0，1）.Value=Range（“E2”）.Offset（1，0）.Value&“，”Range（“E2”）.Value

@JvdV，但在第一个if语句中它正在工作，在第二个if语句中它不工作statement@TooMachoBA因为在第一种情况下，您将一个范围复制到另一个范围，当在第二个单元格中尝试将字符串复制到某个区域时，不能使用copy命令将多个单元格的内容复制到单个单元格中。按照@Vincent的建议，将VBA中单元格的内容连接起来，并将其直接写入单元格-无需复制/粘贴