Question

我正在尝试复制其中具有GROUP的所有单元格并将其粘贴到另一张工作表中。到目前为止，这是我的代码。但是我一直收到438错误。我对vba来说还很陌生，因此我们将不胜感激。

<ul>

Answer 1

我不明白您如何将多个单元格复制并粘贴到新工作表中。您要保留源模式还是要将其保存为数据集格式？无论如何，我的解决方案是将源范围复制到新的工作表中，并清除不符合您的条件的单元格。我在我的电脑上进行了测试。

Sub Test()

Dim ws As Worksheet
Dim wsa As Worksheet
Dim cll As Range

ThisWorkbook.Sheets.Add

Set wsa = ActiveSheet

lr = 1

For Each ws In ThisWorkbook.Worksheets
    If wsa.CodeName <> ws.CodeName Then
        ws.UsedRange.Copy wsa.Range("A" & lr)
        For Each cll In wsa.UsedRange.Cells
            If InStr(1, cll.Value, "Your Criteria String") = 0 Then
                cll.Value = ""
            End If
        Next cll
        lr = lr + ws.UsedRange.Rows.Count
    End If
Next ws

End Sub

有没有办法将变量复制到另一个工作表中？

1 个答案: