在Excel VBA中仅复制和粘贴非n＃a个单元格

Question

我如何将列数据A复制并粘贴到没有＃N / A数据的列B中。

我在A列中有数据

A          B

8a61     8a61
#N/A      fs
fs       fttt
fttt     dsff
#N/A
dsff

复制粘贴我使用的非空白单元格

  Set wb = ActiveWorkbook
  Set ws1 = wb.Sheets("Sheet7")
  ws1.Range("A1:A1000").SpecialCells(xlCellTypeConstants).Copy  ws1.Range("B1")

如何在没有＃N / A的情况下复制粘贴列数据

Answer 1

放手一搏，显然需要放入sub（）

Dim i As Integer, j As Integer
j = 1
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Not IsError(Cells(i, 1).Value) Then
    Cells(j, 4) = Cells(i, 1)
    j = j + 1
End If
Next i

Answer 2

视范围视范围视范围视范围倍数两倍

Sheets("Sheet1").AutoFilterMode = False

Set rng = Range("A1", Range("A2").End(xlDown))
lastrow = Range("A" & Rows.Count).End(xlUp).Row
Set crange = Range("A2:A" & lastrow)
rng.AutoFilter field:=1, Criteria1:="<>#N/A"

crange.SpecialCells(xlCellTypeVisible).Copy Range("b2")