Excel 在不同的图纸中复制粘贴过滤后的偏移值

粘贴值在范围（“H1”）中显示为“TRUE”。你能帮我修一下吗

Sub SelectFirstFilteredRow()

Dim ws As Worksheet, MyRange As Range

Set wsD = Sheets("OB")

Set sh2 = Worksheets("LPN")

wsD.Select

wsD.Cells(1, 3).Select

ActiveCell.AutoFilter field:=1, Criteria1:="ASINS IN INBOUND", Operator:=xlFilterValues

ActiveCell.AutoFilter field:=2, Criteria1:="AU", Operator:=xlFilterValues

wsD.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Cells(1, 3).Select

Cells(1, 3).Offset(1).Resize(6).Copy

sh2.Range("H2") = ActiveCell.Cells(1, 3).Offset(1).PasteSpecial

End Sub

---

sh2.Range（“H2”）.PasteSpecial xlPasteAll

，或仅

单元格（1,3）.偏移量（1）.调整大小（6）.复制sh2.Range（“H2”）

，并去掉最后一行。感谢您的快速响应