Question

我不能粘贴除了列＃34; A＆＃34;我已经尝试更改列字母，但是我收到一个错误代码，说＆＃34;复制/粘贴单元的大小不一样＆＃34;。

Sub HEA_Filter_Names()

Dim strArray As Variant
Dim wsSource As Worksheet
Dim wsDest As Worksheet
Dim NoRows As Long
Dim DestNoRows As Long
Dim I As Long
Dim J As Integer
Dim rngCells As Range
Dim rngFind As Range
Dim Found As Boolean

strArray = Array("ack-")

Set wsSource = ActiveSheet

NoRows = wsSource.Range("A65536").End(xlUp).Row
DestNoRows = 1
Set wsDest = Sheets("Real Alarms")

For I = 1 To NoRows

    Set rngCells = wsSource.Range("B" & I)
    Found = False

    For J = 0 To UBound(strArray)
        Found = Found Or Not (rngCells.Find(strArray(J)) Is Nothing)
    Next J

    If Found Then
        rngCells.EntireRow.Copy wsDest.Range("A" & DestNoRows)
        DestNoRows = DestNoRows + 1
    End If

Next I

End Sub

Answer 1

您无法从列EntireRow以外的任何位置粘贴A。

你可以试试这个：

Intersect(rngCells.EntireRow, rngCells.Parent.UsedRange).Copy wsDest.Range("F" & DestNoRows)

复制/粘贴不是entre行的数据

1 个答案: