Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1658|回复: 3

[已解决]将b1:i8范围内数值不重复的提取到L8,M8^……

[复制链接]
发表于 2017-2-3 20:31 | 显示全部楼层 |阅读模式
将b1:i8范围内数值不重复的提取到L8,M8^……,谢谢!
最佳答案
2017-2-4 10:21
  1. =INDIRECT(TEXT(SMALL(IF(COUNTIF($B$1:$I$8,$B$1:$I$8)=1,ROW(1:8)/1%+COLUMN($B:$I)),COLUMN(A1)),"r0c00"),)
复制代码
数组公式右拉

用公式将指定范围内数值不重复的提取到L8.rar

1.85 KB, 下载次数: 14

发表于 2017-2-3 23:14 | 显示全部楼层
  1. Sub aa()
  2.     Dim arr(1 To 100), n%, rg As Range
  3.     For Each rg In Range("b1:i8")
  4.         If Application.CountIf(Range("b1:i8"), rg) = 1 Then
  5.             n = n + 1
  6.             arr(n) = rg.Value
  7.         End If
  8.     Next
  9.     Range("l8").Resize(, UBound(arr)) = Application.Transpose(Application.Transpose(arr))
  10. End Sub
复制代码

公式不会,练习一下代码
回复

使用道具 举报

发表于 2017-2-4 10:21 | 显示全部楼层    本楼为最佳答案   
  1. =INDIRECT(TEXT(SMALL(IF(COUNTIF($B$1:$I$8,$B$1:$I$8)=1,ROW(1:8)/1%+COLUMN($B:$I)),COLUMN(A1)),"r0c00"),)
复制代码
数组公式右拉
回复

使用道具 举报

 楼主| 发表于 2017-2-6 20:52 | 显示全部楼层
谢谢各位
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 22:03 , Processed in 0.449415 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表