如何使用VBA将逻辑公式自动填充到某个单元格？

使用VBA（Visual Basic for Applications）可以将逻辑公式自动填充到某个单元格。下面是一个示例代码：

Sub FillFormula()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 在指定单元格中填充逻辑公式
    ws.Range("B2:B" & lastRow).Formula = "=IF(A2>0, ""Positive"", ""Negative"")"
End Sub

上述代码中，我们假设要在"Sheet1"工作表的B列中填充逻辑公式。首先，我们通过Set语句将工作表对象赋值给变量ws。然后，使用Cells和End方法获取最后一行的行号，并将其存储在变量lastRow中。最后，通过Range属性和Formula属性将逻辑公式赋值给指定的单元格范围。

这个示例中的逻辑公式是一个简单的IF函数，根据A列的值判断是"Positive"还是"Negative"。你可以根据实际需求修改逻辑公式。

推荐的腾讯云相关产品是腾讯云云服务器（CVM），它提供了弹性计算能力，适用于各种场景和工作负载。你可以在腾讯云官网的CVM产品介绍页面了解更多信息。