2016-06-14 50 views
0

我不知道如何使用Varibale(例如X)。如何使用FormulaR1C1上的變量

有了這個代碼即時尋找PS16111其是PO號,創建一個新的列,然後每一行具有相同的值將是#N/A,然後在該代碼我會的端部刪除那些#N/A這意味着所有的線PS16111將被刪除。這是我想要做的,但有不同的輸入。

我試過不同的方式使用變量而不是PS16111但我找不到任何方法。

謝謝。

列(3).EntireColumn.Insert

隨着範圍( 「C:C」 & ActiveSheet.UsedRange.Rows.Count)

 .FormulaR1C1 = =IF(RC[1]="""","""",IF(RC[1]=""PS16111"",NA()))" 

     .Value = .Value 

     On Error Resume Next 

     .SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete 

End With 

On Error GoTo 0 

Columns(3).EntireColumn.Delete 
+1

我不明白你想要做什麼,但要在FormulaR1C1中使用一個變量,你可以將它連接在字符串上:''IF(RC [1] =「&X&」,NA())「 ' – mathiasfk

+0

我想將PS16111與變量X重新分區,但我不知道如何 –

回答

0

首先你要把公式中缺少一個領導"

然後回答你的問題,使用

x = "PS16111" 
rng.FormulaR1C1 = "=IF(RC[1]="""","""",IF(RC[1]=""" & x & """,NA()))" 

將導致公式

=IF(B1="","",IF(B1="PS16111",NA())) 
+0

謝謝,Exactly我需要的 –

0

「一切都得益於前克里斯·尼爾森在完成拼圖。 我把所有的代碼放在一起,在這種情況下你想在你的項目中使用它。

使用此代碼,您將能夠在Sheet2中找到位於C2中的字符串。

然後回到工作表Sheet1並創建一個新的空列C

然後指望有多少行是在工作表Sheet1

然後尋找變量X,如果它發現它會#N/A,如果不是錯誤

所有行包含#N/A值將被刪除。

最後C列將被刪除。

'--------------------------------------------- -------------------------------

昏暗X作爲字符串

X =工作表( 「Sheet2的」 ).Range( 「C2」)。值

工作表( 「工作表Sheet」)選擇

列(3).EntireColumn.Insert

隨着範圍。( 「C2:C」 & ActiveSheet.UsedRange.Rows.Count)

  .FormulaR1C1 = "=IF(RC[1]="""","""",IF(RC[1]=""" & X & """,NA()))" 

     .Value = .Value 

     On Error Resume Next 

     .SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete 

End With 

On Error GoTo 0 

Columns(3).EntireColumn.Delete