在工作表标签上击右键,查看代码,在代码窗口粘贴以下代码,即可
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 2 Then
Dim a As String
a = ""
For i = 1 To [b65536].End(3).Row
If Cells(i, 2) <> 0 Then
a = a + CStr(Cells(i, 1)) & "、"
End If
Next
Range("C1") = a
End If
Application.EnableEvents = True
End Sub
你的意思是不是想说明是B列的单元格的数据大于0就是A 列中的相应数据的啊?c1=IF(B1>0,A1,B1),你的意思是不是这个的啊?