Excel精英培训网

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

[已解决]如何将一批数据分段存储在多个单元格中

[复制链接]
发表于 2016-3-8 09:22 | 显示全部楼层 |阅读模式
本帖最后由 橘子红 于 2016-3-14 10:03 编辑

请教高手,如题,有多行数值每行10个数据,以其中一行为例59,57,81,87,89,91,72,76,94,65,如何将他们分段存储在一行的多个单元格中呀?即60以下存在一个单元格,60-69存一个单元格,70-79存一个单元格  80-89存一个单元格  90以上存一个单元格。最好用excel 函数实现。
fd.JPG

最佳答案
2016-3-10 21:47
bdggch 发表于 2016-3-10 17:49
谢谢大神们的回复,就是公式那个有些复杂,看不大懂。程序也不太会弄。看来需要加深学习学习。请大神推荐推 ...

如果问题解决了,请给选一个最佳答案。

分段存储.zip

1.51 KB, 下载次数: 2

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2016-3-8 09:28 | 显示全部楼层
上傳附件.模擬結果.說明一下怎麼來的...
回复

使用道具 举报

发表于 2016-3-8 11:59 | 显示全部楼层
附件(07版)

Book1.zip

6.28 KB, 下载次数: 7

回复

使用道具 举报

发表于 2016-3-8 13:23 | 显示全部楼层
本帖最后由 sry660 于 2016-3-8 13:46 编辑
  1. Sub 数据整理()
  2.     Dim arr, i&, j&, d, x, k%
  3.     Set d = CreateObject("scripting.dictionary")
  4.     arr = [a1].CurrentRegion
  5.     For i = 1 To UBound(arr)
  6.         For k = 1 To 5
  7.             d(k) = ""
  8.         Next
  9.         For j = 1 To 10
  10.             x = arr(i, j)
  11.             If x < 60 Then
  12.                 d(1) = d(1) & arr(i, j) & ","
  13.             ElseIf x < 70 Then
  14.                 d(2) = d(2) & arr(i, j) & ","
  15.             ElseIf x < 80 Then
  16.                 d(3) = d(3) & arr(i, j) & ","
  17.             ElseIf x < 90 Then
  18.                 d(4) = d(4) & arr(i, j) & ","
  19.             ElseIf x <= 100 Then
  20.                 d(5) = d(5) & arr(i, j) & ","
  21.             End If
  22.         Next
  23.         Cells(i, 12).Resize(1, 5) = Application.Transpose(Application.Transpose(d.items))
  24.         d.RemoveAll
  25.     Next
  26.     [l:p].EntireColumn.AutoFit
  27. End Sub
复制代码

数据 - 副本.rar

16.54 KB, 下载次数: 9

回复

使用道具 举报

 楼主| 发表于 2016-3-10 17:49 | 显示全部楼层
谢谢大神们的回复,就是公式那个有些复杂,看不大懂。程序也不太会弄。看来需要加深学习学习。请大神推荐推荐书和教程吧。
回复

使用道具 举报

发表于 2016-3-10 21:47 | 显示全部楼层    本楼为最佳答案   
bdggch 发表于 2016-3-10 17:49
谢谢大神们的回复,就是公式那个有些复杂,看不大懂。程序也不太会弄。看来需要加深学习学习。请大神推荐推 ...

如果问题解决了,请给选一个最佳答案。
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 20:24 , Processed in 2.001017 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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