vba - 在一个单元格中添加多个值

Question

我有这段代码

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

使用此代码，我试图在同一个单元格中添加多个文本值。第一部分在我运行时没问题，它会添加一个文本值。问题是当我第二次运行它时它给了我一个错误

runtime err 1004 copy method class failed

所以我无法在已有的文本值旁边放置更多文本值。

这在VBA中可能吗？

Answer 1

取而代之的是 i(j, 1).Offset(0, 1).Copy Range("E2").Offset(1, 0) & "," & Range("E2").Value
试试这个i(j, 1).Offset(0, 1) = Range("E3") & "," & Range("E2")