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

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

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

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

这可以在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")

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

1 个答案: