八达网

标题: 万能8da excel公式求助 [打印本页]

作者: wuerzeng    时间: 2009-11-24 21:54
提示: 作者被禁止或删除 内容自动屏蔽
作者: 临空一刀    时间: 2009-11-24 21:54
111111111111

np=7.rar

65.02 KB, 下载次数: 30


作者: wuerzeng    时间: 2009-11-24 21:57
提示: 作者被禁止或删除 内容自动屏蔽
作者: _zz    时间: 2009-11-24 22:00
提示: 作者被禁止或删除 内容自动屏蔽
作者: wuerzeng    时间: 2009-11-24 22:01
提示: 作者被禁止或删除 内容自动屏蔽
作者: wuerzeng    时间: 2009-11-24 22:01
提示: 作者被禁止或删除 内容自动屏蔽
作者: _zz    时间: 2009-11-24 22:02
提示: 作者被禁止或删除 内容自动屏蔽
作者: overbite    时间: 2009-11-24 22:06
楼主有钱,出手就是2000
作者: wuerzeng    时间: 2009-11-24 22:06
提示: 作者被禁止或删除 内容自动屏蔽
作者: 临空一刀    时间: 2009-11-24 22:11
=IF(A1=C1,A1,"")
然后复制其他行
=IF(A1=C1,"",A1)
然后复制到其他行

不过这样中间会有空格
作者: wuerzeng    时间: 2009-11-24 22:16
提示: 作者被禁止或删除 内容自动屏蔽
作者: 临空一刀    时间: 2009-11-24 22:22
楼主给分吧
我刚才下载了你的附件

=IF(COUNTIF(C1:C11486,A1),A1,"")
=IF(COUNTIF(C1:C11486,A1),"",A1)

分别贴在两列的第一行
然后复制到A列有数的所有行

如果想直接看紧密排列的结果的话,可以用自动筛选

不明白我有附件
作者: wuerzeng    时间: 2009-11-24 22:23
提示: 作者被禁止或删除 内容自动屏蔽
作者: alexdd    时间: 2009-11-24 22:24
什么叫A列中间数值和C列重复的?
完全听不懂什么意思,只要有逻辑算法的东西不是跨列操作Excel都应该能作出来
作者: 临空一刀    时间: 2009-11-24 22:28
附件中,E列是C中有重复的,F列是没有重复的

点击第一行E列、F列的筛选下拉按钮,可以选择显示非空白,查看紧密排列的结果
作者: wuerzeng    时间: 2009-11-24 22:29
提示: 作者被禁止或删除 内容自动屏蔽
作者: wuerzeng    时间: 2009-11-24 22:30
提示: 作者被禁止或删除 内容自动屏蔽
作者: wuerzeng    时间: 2009-11-24 22:33
提示: 作者被禁止或删除 内容自动屏蔽
作者: wuerzeng    时间: 2009-11-24 22:33
提示: 作者被禁止或删除 内容自动屏蔽
作者: 临空一刀    时间: 2009-11-24 22:33
筛选的状态下,复制,取消筛选(选择全部),粘贴到另外一列
作者: 临空一刀    时间: 2009-11-24 22:34
我发了,谢谢,5年都没赚到这么多
作者: wuerzeng    时间: 2009-11-24 22:35
提示: 作者被禁止或删除 内容自动屏蔽
作者: 临空一刀    时间: 2009-11-24 22:39
自动筛选的功能
一般是在最上方插入一个空白行,选中这一行,点菜单上的“数据”-“筛选”-“自动筛选”
作者: wuerzeng    时间: 2009-11-24 22:40
提示: 作者被禁止或删除 内容自动屏蔽
作者: hkkhhk    时间: 2009-11-24 23:05
公式做不到这种的

VBA吧
Sub add_new()
    On Error Resume Next
    With Worksheets("Sheet1") '汇总报表
    k1 = 1
    k2 = 1
        For i = 1 To 203
            flag = 0
            For j = 1 To 11486
                If .Cells(i, 1) = .Cells(j, 3) Then
                    .Cells(k1, 4) = .Cells(i, 1)
                    k1 = k1 + 1
                    flag = 1
                End If
            Next j
            If flag = 0 Then
                .Cells(k2, 5) = .Cells(i, 1)
                k2 = k2 + 1
            End If
        Next i
    End With
End Sub

np=7.rar

71.69 KB, 下载次数: 30






欢迎光临 八达网 (https://www.8-da.com/) Powered by Discuz! X2.5