使用vba如果c列>0，则d列输出为0，如果c列<0，则d列输出为1

您可以使用以下VBA代码实现您的需求：

Sub outputD()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "C").End(xlUp).Row '获取C列最后一行的行号
    
    For i = 1 To lastRow
        If Range("C" & i).Value > 0 Then
            Range("D" & i).Value = 0
        ElseIf Range("C" & i).Value < 0 Then
            Range("D" & i).Value = 1
        End If
    Next i
End Sub

这段代码会遍历C列的所有单元格，如果单元格的值大于0，则在对应的D列单元格输出0；如果单元格的值小于0，则在对应的D列单元格输出1。您只需要在VBA编辑器中打开您的工作簿，然后将这段代码复制粘贴到一个新的模块中，最后运行这个宏即可。