セルの値が#NVが別のセル

Question

を取得している場合、私は私の問題に

今

Set sourcerange = Sheets("Sheet1").Range("AW2:AW" & lastRow) 
    Set resultrange = Sheets("Sheet2").Range("A2:H" & lastRow) 

    i = 1 


    For Each cell In sourcerange 
     If cell.Value = 1 Then 
      resultrange.Rows.Cells(i, 1).Value = Sheets("Sheet1").Range("O" & cell.row).Value 
      resultrange.Rows.Cells(i, 2).Value = Sheets("Sheet1").Range("X" & cell.row).Value 
      resultrange.Rows.Cells(i, 3).Value = Sheets("Sheet1").Range("P" & cell.row).Value 
      resultrange.Rows.Cells(i, 4).Value = Sheets("Sheet1").Range("J" & cell.row).Value 
      resultrange.Rows.Cells(i, 5).Value = Sheets("Sheet1").Range("K" & cell.row).Value 
      resultrange.Rows.Cells(i, 6).Value = Sheets("Sheet1").Range("G" & cell.row).Value 
      resultrange.Rows.Cells(i, 7).Value = Sheets("Sheet1").Range("H" & cell.row).Value 
      resultrange.Rows.Cells(i, 8).Value = Sheets("Sheet1").Range("I" & cell.row).Value 
      i = i + 1 
     End If 
Next cell 

で動作するように次のコードを持っている： は、時にはそれがこのコードから値という、起こります

resultrange.Rows.Cells(i, 2).Value = Sheets("Sheet1").Range("X" & cell.row).Value 

は#NVです。この場合、列 "AA"から値をコピーしたいと思います。しかし、私はこれをどのように達成するのか分かりません。それを動作させるためにコードに何かを追加する方法はありますか？それとも、すべてを書き直さなければならないのですか？

Answer 1

あなたはこれを試してみたいことがあります。

Dim cell As Range 

Set SourceRange = Sheets("Sheet1").Range("AW2:AW" & lastRow) 
Set ResultRange = Sheets("Sheet2").Range("A2:H" & lastRow) 

i = 1 

strng = "O X P J K G H I" '<-- list the columns index you want to grab data from, in order 
With ResultRange 
    For Each cell In SourceRange 
     If cell.Value = 1 Then 
      .Cells(i, 1).Resize(, 8).FormulaR1C1 = Split("=Sheet1!" & Replace(strng, " ", cell.Row & " =Sheet1!") & cell.Row) 
      .Cells(i, 1).Resize(, 8).Value = .Cells(i, 1).Resize(, 8).Value 
      If .Cells(i, 2) = "#NV" Then .Cells(i, 2).Value = Sheets("Sheet1").Range("AA" & cell.Row).Value 
      i = i + 1 
     End If 
    Next cell 
    .Value = .Value 
End With