粘貼「N/A」

Question

所以我需要的是一個腳本，將做到以下幾點：

• 如果單元格B2 =鴨，再貼上「N/A 「在細胞C2，D2，E2
• 如果電池B2 =熊，然後粘貼 」N/A「，在小區C2，D2
• 如果電池B2 =狗，然後粘貼 」N/A「，在小區C2

此外，我需要這個規則進行相應的行下降到500（如果單元格B3 =鴨，然後C3，D3和E3是影響TED）。

感謝您的幫助！我沒有太多的經驗，所以任何幫助將不勝感激。

Answer 1

If Range("B2") = "Duck" Then Range("C2,D2,E2")="n/a" 

Answer 2

將這個在C2和複製過來，下來列表：

=IF(MATCH($B2,{"Dog","Bear","Duck"},0)>=COLUMN(A:A),NA(),"") 

如果你希望字符串n/a然後把"n/a"到位NA()公式

在

---

A vba解決方案：

Sub fillNA() 

Dim lookupArr(1 To 3, 1 To 2) As Variant 
Dim i&, j& 
lookupArr(1, 1) = "Duck" 
lookupArr(1, 2) = 3 
lookupArr(2, 1) = "Bear" 
lookupArr(2, 2) = 2 
lookupArr(3, 1) = "Dog" 
lookupArr(3, 2) = 1 

With ActiveSheet 

    For i = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row 
     For j = LBound(lookupArr, 1) To UBound(lookupArr, 1) 
      If .Cells(i, 2) = lookupArr(j, 1) Then 
       .Cells(i, 3).Resize(, lookupArr(j, 2)).Value = "N/A" 
       Exit For 
      End If 
     Next j 
    Next i 
End With 
End Sub