Excel精英培训网

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

[已解决]把三段数字分成 上 中 下

[复制链接]
发表于 2016-4-22 15:15 | 显示全部楼层 |阅读模式
本帖最后由 hanjia 于 2016-4-22 20:19 编辑

付件的B列是模拟出来的

第一行  1,2,7,8,12,13,18,19,23,24,29,30,34,35,40,45,46      判断出第一行任何一个数字显示     上
第二行  3,4,9,10,11,14,15,20,25,26,31,36,37,41,42,47,48    判断出第二行任何一个数字显示     中
第三行  5,6,11,16,17,21,22,27,28,32,33,38,39,43,44,49       判断出第三行任何一个数字显示     下
比如A1判断出1就显示  上   (1是在第一行的数字当中)

工作表_.zip (6.91 KB, 下载次数: 3)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2016-4-22 15:46 | 显示全部楼层    本楼为最佳答案   
附件

工作表 .zip

8.41 KB, 下载次数: 12

回复

使用道具 举报

发表于 2016-4-22 16:44 | 显示全部楼层
  1. Sub tt()
  2.     Set d = CreateObject("scripting.dictionary")
  3.     arr = [d1].CurrentRegion
  4.     For i = 1 To 3
  5.         k = IIf(i = 1, "上", IIf(i = 2, "中", "下"))
  6.         For j = 1 To UBound(arr, 2)
  7.             d(arr(i, j)) = k
  8.         Next
  9.     Next
  10.     arr = Range("a1:b" & [a65536].End(3).Row)
  11.     For i = 1 To UBound(arr)
  12.         arr(i, 2) = d(arr(i, 1))
  13.     Next
  14.     [b1].Resize(i - 1, 1) = Application.Index(arr, , 2)
  15. End Sub
复制代码

工作表 .rar

12.12 KB, 下载次数: 1

回复

使用道具 举报

发表于 2016-4-22 16:45 | 显示全部楼层
11又在第2行,又在第3行,怎么算?
回复

使用道具 举报

发表于 2016-4-22 16:50 | 显示全部楼层
有钱途,估计你又在玩彩票
回复

使用道具 举报

 楼主| 发表于 2016-4-22 20:13 | 显示全部楼层
本帖最后由 hanjia 于 2016-4-22 20:16 编辑
grf1973 发表于 2016-4-22 16:45
11又在第2行,又在第3行,怎么算?

11是第三行的     
不好意思   
应该如下图才对
1
2
7
8
12
13
18
19
23
24
29
30
34
35
40
45
46
3
4
9
10
14
15
20
25
26
31
36
37
41
42
47
48
5
6
11
16
17
21
22
27
28
32
33
38
39
43
44
49

回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-28 17:46 , Processed in 1.150872 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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