只複製和粘貼Excel中的非n＃a個單元格vba

如何將列數據A複製並粘貼到不含＃N/A數據的B列。只複製和粘貼Excel中的非n＃a個單元格vba

我有數據在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

來源

2016-11-10 sam

創建一個循環來檢查單元格的內容並把它們搬過來，如果他們不＃N/A。 –

或過濾列A以排除'＃N/A'，然後執行復制。 – YowE3K

或複製整個批次，然後從複製特殊單元格公式錯誤中刪除（假設您沒有其他錯誤要保留）。 – SJR

給這一去，顯然需要放在一個子（）

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

來源

2016-11-10 15:49:04

昏暗的RNG作爲範圍昏暗CRANGE作爲範圍昏暗LASTROW爲雙

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")

來源

2016-11-14 13:11:57

儘管此代碼片段可能會解決此問題，但[包括解釋]（http://meta.stackexchange.com/questions/114762/explaining-entirely-code-based-answers）確實有助於提高帖子的質量。請記住，您將來會爲讀者回答問題，而這些人可能不知道您的代碼建議的原因。 – secelite

只複製和粘貼Excel中的非n＃a個單元格vba

回答

相關問題