vba 筛选的状态下如果局部复制粘贴

把区域写到数组里，再提取出你想要的，直接在输出位置 = 就行

Sub dad试试()
Dim i, j, k, l, m, n
Dim xh1, xh2, xh3, xh4, xh5, xh6, xh7, xh8, xh9
Dim xha, xhb, xhc, xhd, xhe
Set p1 = ThisWorkbook.Sheets(1)
Set p2 = ThisWorkbook.Sheets(2)
arr = p1.UsedRange
k = 2
For xha = 2 To 4057
If arr(xha, 5) = "中山东凤营业部" Then
arr = arr(xha)
p2.Range(Cells(k, 1), Cells(k, 60)) = arr
k = k + 1
End If
Next
End Sub

你在满足条件的情况下，再套一个循环，
for j = 1 to 60
cells(k,j)=arr(k,j)

手机打的错了arr(xha,j)

你这个arr=arr(xha)算是重新定义数组？，还是把arr(xha)赋值给arr这个符号，而且你后面还用一个区域去装arr这一个符号里面的值

而且，就算你提出来的是数组，也应该转值吧

Function IsInArray(valToBeFound As Variant, arr As Variant) As Boolean
Dim element As Variant
On Error GoTo IsInArrayError: 'array is empty
For Each element In arr
If element = valToBeFound Then
IsInArray = True
Exit Function
End If
Next element
Exit Function
IsInArrayError:
On Error GoTo 0
IsInArray = False
End Function

这段核心代码，一个大神给的，你拿去套你自己的代码