excel 将筛选数据从一个工作表复制到另一个工作表

jdg4fx2g 于 2023-06-30 发布在其他

关注(0)|答案(1)|浏览(524)

我正在尝试将筛选后的数据从sht1上的表复制到sht2（它没有表）。使用下面的代码可以很好地实现这一点。我遇到的问题是，它总是将表中的所有数据从sht1复制到sht2。我正在寻找的是一种只将过滤后的数据复制到sht2的方法。我查找了几个类似的问题，但是（由于我的知识非常有限）我无法在代码中实现它们。任何帮助都是非常感谢的。

Private Sub CommandButton1_Click()
   Range("A2:P100").ClearContents
   Set sht1 = ThisWorkbook.Sheets("DRIVE input form")
   Set sht2 = ThisWorkbook.Sheets("Dowlex 2023")
   If sht2.Range("C1").Value = "" Then Exit Sub
   Dim lastRow As Long
   sht1.Range("F2:F100").Value = sht2.Range("C2:C100").Value
   sht1.Range("G2:G100").Value = sht2.Range("E2:E100").Value
   sht1.Range("K2:K100").Value = sht2.Range("F2:F100").Value
   sht1.Range("M2:M100").Value = sht2.Range("G2:G100").Value
   sht1.Range("J2:J100").Value = sht2.Range("A2:A100").Value
   sht1.Range("P2:P100").Value = sht2.Range("H2:H100").Value
   sht1.Range("N2:N100").Value = sht2.Range("I2:I100").Value
End Sub

excel

来源：https://stackoverflow.com/questions/76583064/copy-filtered-data-from-one-sheet-to-another

1条答案

按热度按时间

7fyelxc51#

您可以使用SpecialCells仅获取可见行：

Sub Tester()
    Dim wsSrc As Worksheet, wsDest As Worksheet
    
    Set wsSrc = ThisWorkbook.Worksheets("data")
    Set wsDest = ThisWorkbook.Worksheets("filtered")
    
    CopyVisibleValues wsSrc.Range("A2:A200"), wsDest.Range("B2")
    CopyVisibleValues wsSrc.Range("B2:B200"), wsDest.Range("A2")
    
    Application.CutCopyMode = False
End Sub
Sub CopyVisibleValues(rngSrc As Range, rngDest As Range)
    Dim rngVis As Range
    On Error Resume Next 'ignore error if no visible rows
    Set rngVis = rngSrc.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0      'stop ignoring errors
    
    If Not rngVis Is Nothing Then
        rngVis.Copy
        rngDest.PasteSpecial xlPasteValues
    Else
        Debug.Print "No visible cells in " & rngSrc.Address(False, False)
    End If
End Sub

展开查看全部

赞(0）回复(0）举报 2023-06-30

我来回答

excel 将筛选数据从一个工作表复制到另一个工作表

1条答案

相关问题

热门标签

最新问答