编写使用Countif和Xlookup公式的VBA宏可以通过以下代码示例来实现：

Sub CountifAndXlookupMacro()
    Dim countifResult As Long
    Dim xlookupResult As Variant
    
    ' 设置工作表和范围
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Dim range1 As Range
    Set range1 = ws.Range("A1:A10")
    
    ' 使用Countif函数进行计数
    countifResult = Application.WorksheetFunction.CountIf(range1, "apple")
    MsgBox "Countif Result: " & countifResult
    
    ' 使用Xlookup函数进行查找
    xlookupResult = Application.XLookup("apple", range1, ws.Range("B1:B10"))
    MsgBox "Xlookup Result: " & xlookupResult
    
End Sub

这个宏使用了Countif函数和Xlookup函数来进行计数和查找。首先，我们设置了工作表和范围，然后使用Countif函数计算符合条件的单元格数量，并将结果存储在countifResult变量中。接下来，使用Xlookup函数在范围中查找指定的值，并将结果存储在xlookupResult变量中。最后，使用MsgBox函数将计数和查找的结果显示在消息框中。

请注意，这个示例中的工作表名称为"Sheet1"，范围为"A1:A10"和"B1:B10"。根据实际情况，您需要根据您的工作表和范围进行相应的更改。