求EXCEL高手帮忙。

Question

如上图，如果B列中，某一行的数值为0那么将对应的A列的数字显示在C1中，要求显示在C1中后用一个空格隔开。比如B2=0，那么就将A2写入C1中。将所有B列中为0的数字都显示在C1中。

Answer 1

个人偏向于编程实现。

ALT+F11——F7粘贴如下代码，注意换行。——F5运行。

Sub mysub()

Dim i As Integer

Dim str As String

str = ""

For i = 1 To Range("B65536").End(xlUp).Row

    If Range("B" & i).Value = 0 Then

       str = str & " " & Range("A" & i).Value

    End If

Next i

Range("C1") = str

End Sub

 

写公式好象也可以不过要辅助列。

给你一个例子

追问

只要数字有变化我就想立马更新数据，这个能实现不。能不能保存到C1里啊。怎么关了宏后什么都没了啊

追答

代码更改如下。
数据更改只针对B列。如果不是B列。则不自动更新。
Sub worksheet_change(ByVal target As Range)
If target.Column = 2 Then
Dim i As Integer
Dim str As String
str = ""
For i = 1 To Range("B65536").End(xlUp).Row
If Range("B" & i).Value = 0 Then
str = str & " " & Range("A" & i).Value
End If
Next i
Range("C1") = str
End If
End Sub

追问

不用宏能不能实现啊。用宏有点弄不明白啊

追答

看其他人的答案。。。。不用宏。我用公式写不出来
明明写好的代码。不会用。。。
直接粘贴进去。自动生效。只要你更改B列数据。则会在C1列显示你要的结果。
你自己不会用。可惜了。

追问

你教教我宏怎么实现呗。谢谢了亲。

追答

详细用法给你说了。要求是OFFICE软件，——ALT+F11——F7。粘贴代码。调整格式（换行）
即可

Answer 2

这个比较难做到，能不能你自己稍微操作一下
在C1填入
=INDEX(A:A,SMALL(IF($B$1:$B$100=0,ROW($B$1:$B$100),4^8),ROW(A1)))
然后不要回车按CTRL+SHIFT+ENTER
然后下拉填充C列，可以得到相应的A列数据
虽然没有用空格格开，但是你直接把这列的数据转置一下，由列变行，然后复制黏贴到记事本里
在复制黏贴回来就是你所要的了

Answer 3

c列中所有的单元格都写如下公式：
C1中：if（B2=0，C1=A2，“ ”）
以下以此类推。
将所有B列中为0的数字都显示在C1中。 这句话不知道怎么理解，如果B列中有0的数据，C1中已经显示B列中下一行的数据，怎么还能显示0？自相矛盾了。

Answer 4

在c1中输入公式=if（b1=0，a1，＂＂）