主页 / computer / 问题 / 1540316
Accepted
baskar
Asked: 2020-04-10 04:06:36 +0800 CST

如何复制过滤数据范围并将其粘贴到 Excel VBA 中的新工作表（不使用剪贴板）

  • 772

我想将 ColumnA 和 B 复制到新工作表范围 A 和 B（在 ColumnH 中应用源工作表过滤器）

这段代码是记录的，当我使用这个随机错误时。因为我有 5 个子宏，当我调用这些子宏时，它不能正确运行。但个别宏运行完美。

所以我需要像这种方法一样在不使用剪贴板的情况下进行复制。过滤器应用条件时不使用

Sheets("GROUP1").Range("A:B").Value = Sheets("Sheet3").Range("A:B").Value

录制的宏

Sub Copypaste()
'Application.ScreenUpdating = False

    Sheets("GROUP1").Select

    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("A1:H1").Select
    Range("H1").Activate
    Application.CutCopyMode = False
    Selection.AutoFilter
    ActiveSheet.Range("$A:$H").AutoFilter Field:=8, Criteria1:="K-True", Operator:=xlFilterValues
    Columns("A:B").Select
    Application.CutCopyMode = False
    Selection.Copy

       DoEvents
    Sheets("Sheet3").Select
    Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub
microsoft-excel worksheet-function

1 个回答

  1. Best Answer

    你可以做的是循环通过源表检查Cell.RowHeight > 0然后设置DestinationCell.Value = SourceCell.Value. 前任。：

    Sub Copypaste()
    Dim lRow As Long, lLastRow As Long, LRowCount As Long

    Sheets("GROUP1").Select

    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("A1:H1").Select
    Range("H1").Activate
    Application.CutCopyMode = False
    Selection.AutoFilter
    ActiveSheet.Range("$A:$H").AutoFilter Field:=8, Criteria1:="K-True", Operator:=xlFilterValues        
    lRowCount = 1
    lLastRow = ActiveSheet.Cells.SpeciallCells(xlCellTypeLastCell).Row

    For lRow = 1 to lLastRow

        If ActiveSheet.Range(lRow).RowHeight > 0 Then
            Sheets("Sheet3").Range("A" & lRowCount & ":B" & lRowCount).Value = ActiveSheet.Range("A" & lRowCount & ":B" & lRowCount).Value
            lRowCount = lRowCount + 1
        End If

    Next

End Sub

    PS：如果您有任何问题，请告诉我。

    • 1

相关问题