excel A B C 三列，C列如果等于0，则返回A列值，不等于0，则忽略不显示 求高手解答，谢谢！！！
例：ABC我时0122AA时0我时1我时4QW时0求解：C列如果等于0，则返回A列的值，最后显示结果为：D我AAQW注意：C列不等于0时，不显示出来！求高手解答，谢谢！！...
例：
A B C
我 时 0
1 2 2
AA 时 0
我 时 1
我 时 4
QW 时 0
求解：C列如果等于0，则返回A列的值，最后显示结果为：
D
我
AA
QW
注意：C列不等于0时，不显示出来！
求高手解答，谢谢！！！
最后显示结果为：
D
我
AA
QW
注意：每行之间没有空的！
也就是说：再sheet1中如下显示
A B C
我 时 0
1 2 2
AA 时 0
我 时 1
我 时 4
QW 时 0
在sheet2中如下显示：
A
1 我
2 AA
3 QW 展开
A B C
我 时 0
1 2 2
AA 时 0
我 时 1
我 时 4
QW 时 0
求解：C列如果等于0，则返回A列的值，最后显示结果为：
D
我
AA
QW
注意：C列不等于0时，不显示出来！
求高手解答，谢谢！！！
最后显示结果为：
D
我
AA
QW
注意：每行之间没有空的！
也就是说：再sheet1中如下显示
A B C
我 时 0
1 2 2
AA 时 0
我 时 1
我 时 4
QW 时 0
在sheet2中如下显示：
A
1 我
2 AA
3 QW 展开
4个回答
展开全部
自动宏的代码我写好了，请放在工作表的代码区里。虽然有点长，但分了三个过程，相对简单易懂。
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Long, iClo As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ActiveSheet.DisplayPageBreaks = False
iRow = Target.Row()
iClo = Target.Column()
On Error GoTo ErrorHandler
Application.EnableEvents = False
If iClo = 1 Or iClo = 3 Then
Call NeedDeal
End If
Target.Select
ErrorHandler:
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Private Sub NeedDeal()
Dim i As Long, targetCellRow As Long
Columns("D:D").ClearContents
targetCellRow = 1
For i = 1 To LocalTheLastLine()
If Cells(i, 3).Value = "0" Then
Cells(targetCellRow, 4).Value = Cells(i, 1).Value
targetCellRow = targetCellRow + 1
End If
Next i
End Sub
Private Function LocalTheLastLine() As Long
Dim i As Long
i = Cells.SpecialCells(xlLastCell).Row()
While WorksheetFunction.CountA(Rows(i)) = 0 And i > 1
i = i - 1
Wend
LocalTheLastLine = i
End Function
有疑问，请Hi我或给我发百度消息
GoodLuck!
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Long, iClo As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ActiveSheet.DisplayPageBreaks = False
iRow = Target.Row()
iClo = Target.Column()
On Error GoTo ErrorHandler
Application.EnableEvents = False
If iClo = 1 Or iClo = 3 Then
Call NeedDeal
End If
Target.Select
ErrorHandler:
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Private Sub NeedDeal()
Dim i As Long, targetCellRow As Long
Columns("D:D").ClearContents
targetCellRow = 1
For i = 1 To LocalTheLastLine()
If Cells(i, 3).Value = "0" Then
Cells(targetCellRow, 4).Value = Cells(i, 1).Value
targetCellRow = targetCellRow + 1
End If
Next i
End Sub
Private Function LocalTheLastLine() As Long
Dim i As Long
i = Cells.SpecialCells(xlLastCell).Row()
While WorksheetFunction.CountA(Rows(i)) = 0 And i > 1
i = i - 1
Wend
LocalTheLastLine = i
End Function
有疑问，请Hi我或给我发百度消息
GoodLuck!
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
在D1输入：
=IF(C1=0,A1,"")
向下填充即可。
=IF(C1=0,A1,"")
向下填充即可。
更多追问追答
追问
关键问题是：下拉公式后，无法并列显示。中间有很多空行！
请问如何并列显示？
追答
公式改为：
=INDEX(Sheet1!A:A,SMALL(IF(Sheet1!C$1:C$100=0,ROW(C$1:C$100),4^8),ROW(A1)))&""
数组公式，按Ctrl+Shift+Enter结束公式输入。
向下填充。
（公式中数据区域根据实际修改）
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
D1=if(C1,”“,A1)
下拉。
下拉。
更多追问追答
追问
关键问题是：下拉公式后，无法并列显示。中间有很多空行！
请问如何并列显示？
追答
你的意思是去除空行紧密排列，那公式会长些了。我来编。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
=if(c2=0,a2,"")
往下拉公式即可
往下拉公式即可
更多追问追答
追问
关键问题是：下拉公式后，无法并列显示。中间有很多空行！
请问如何并列显示？
追答
选中所有数据，菜单栏——数据——筛选——自动筛选
下拉菜单——空白，删除空白列；或者选非空白然后复制粘贴
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
