填充每個細胞與式

Question

我試圖寫一個宏，將
1）存儲在一個代碼可變searchstring
件A列中的每個小區的值，該值我想這是否是

lr = Cells(Rows.Count, 2).End(xlUp).Row 
    For i = 2 To lr 
     searchstring = ws.Cells(i, 1).Value 

2）取變量searchstring並確定它是否存在於名爲rsca的工作表的A列中。
4）如果它以是
5）更新N列。如果它不與任何

更新N列這是我的完整的語法，但每次我通過我的代碼步驟它擊中了對於線立即跳轉到End Function我的工作表中有數據，列A大約有40行要精確（但是這可能會波動上下，所以我不想硬編碼一個結束單元格）

該句法應如何更改它會在上面達到我想要的結果？

Public Function CheckIfCurrent() 
    Dim ws As Worksheet, searchstring As String, i As Long 
    Set ws = Sheets("ers") 

    lr = Cells(Rows.Count, 2).End(xlUp).Row 
    For i = 2 To lr 
     searchstring = ws.Cells(i, 1).Value 
     With .Range("N2:N" & .Cells(.Rows.Count, "A").End(xlUp).Row) 
     .Formula = IIf(IsError(Application.Match(searchstring, Sheets("rsca").Columns(1), 0)), "No", "Yes") 
     .Value = .Value 
     End With 
    Next i   
End Function 

Answer 1

這個怎麼樣？

Public Sub CheckIfCurrent() 
    Dim searchstring As String 
    Dim i As Long 

    With ThisWorkbook.Worksheets("ers") 
     lr = .Cells(.Rows.Count, 1).End(xlUp).Row 
     For i = 2 To lr 
      searchstring = .Cells(i, 1).Value 
      With .Range("N2:N" & lr) 
       .Formula = IIf(IsError(Application.Match(searchstring, Sheets("rsca").Columns(1), 0)), "No", "Yes") 
       .Value = .Value 
      End With 
     Next i 
    End With 
End Sub 

Answer 2

這是我的要求的理解：

套用公式，以表ers的N列中，驗證如果同一行A列中的值出現在工作表rsca的A列。 如果找到該值，則公式將返回Yes，否則返回No。

由於目標是使用Excel公式返回期望的結果，因此不需要循環任何涉及的範圍。

此解決方案適用於Target Range以下公式：

=IF(ISERROR(MATCH(RC1, #rSrc, 0)), ""No"", ""Yes"")

其中：

的Target Range位於片ers在N2:Nr（r在最後一行與A列數據）

#rSrc表示位於片rsca在A2:Ar的Source Range的地址（r在最後一行與A列數據）

以下代碼：

• 採用恆定保持Excel公式。
• 獲取每個工作表中數據的最後一行。
• 構建目標和源範圍。
• 用source range address更新excel公式。
• 並將excel公式應用於目標範圍，並留下結果值。

試試這個代碼：

Public Sub CheckIfCurrent_Published() 
Const kFml As String = "=IF(ISERROR(MATCH(RC1, #rSrc, 0)), ""No"", ""Yes"")" 
Dim rTrg As Range, rSrc As Range 
Dim sFml As String 

    Rem Set Target Range (Sheet `ers`) 
    With ThisWorkbook.Worksheets("ers") 
     Set rTrg = .Range("N2:N" & .Cells(.Rows.Count, 1).End(xlUp).Row) 
    End With 

    Rem Set Target Range (Sheet `rsca`) 
    With ThisWorkbook.Worksheets("rsca") 
     Set rSrc = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row) 
    End With 

    Rem Reset Formula 
    sFml = kFml 
    sFml = Replace(sFml, "#rSrc", rSrc.Address(ReferenceStyle:=xlR1C1, External:=1)) 

    Rem Apply Formula 
    With rTrg 
     .FormulaR1C1 = sFml 
     .Value = .Value2 
    End With 

    End Sub