[未归类] 求助，Excel 函数 [复制链接]

Rank: 11

声望: 26
寄托币: 3788
注册时间: 2001-8-29
精华: 12
帖子: 54

电梯直达

楼主

发表于 2007-2-8 03:59:53 |只看该作者 |倒序浏览

什么函数可以在一列中排7个1，接着7个2，然后7个3，一直到最后7个52
烦请高手帮忙，谢谢

0 0

foolboy007
UID: 28322

Rank: 11

声望: 46
寄托币: 37961
注册时间: 2002-6-23
精华: 11
帖子: 78

沙发

发表于 2007-2-8 04:04:46 |只看该作者

在matlab中生成
然后粘贴回去

烟花巷陌，依约丹青屏障。幸有意中人，堪寻访。且恁偎红翠，风流事、平生畅。青春都一饷。忍把浮名，换了浅斟低唱。

双非DIY美硕申请总结

jollygt
UID: 44070

Rank: 11

声望: 26
寄托币: 3788
注册时间: 2001-8-29
精华: 12
帖子: 54

板凳

发表于 2007-2-8 04:31:12 |只看该作者

那么高深
我没matlab啊

foolboy007
UID: 28322

Rank: 11

声望: 46
寄托币: 37961
注册时间: 2002-6-23
精华: 11
帖子: 78

地板

发表于 2007-2-8 04:43:03 |只看该作者

我不会写vbscript
除了matlab 我不知道怎么弄了

烟花巷陌，依约丹青屏障。幸有意中人，堪寻访。且恁偎红翠，风流事、平生畅。青春都一饷。忍把浮名，换了浅斟低唱。

digitcla
UID: 150299

Rank: 9 Rank: 9 Rank: 9

声望: 286
寄托币: 9821
注册时间: 2003-11-24
精华: 13
帖子: 383

5楼

发表于 2007-2-8 04:52:21 |只看该作者

建立这样个macro然后运行

Sub Macro1()
i = 1
For Counter = 1 To 52
  For Counter2 = 1 To 7
      Set curCell = Worksheets("Sheet1").Cells((Counter - 1) * 7 + Counter2, 1)
      curCell.Value = i
Next Counter2
i = i + 1
Next Counter
End Sub

[ 本帖最后由 Rittub 于 2007-2-8 04:53 编辑 ]

jollygt
UID: 44070

Rank: 11

声望: 26
寄托币: 3788
注册时间: 2001-8-29
精华: 12
帖子: 54

6楼

发表于 2007-2-8 04:56:26 |只看该作者

多谢楼上

digitcla
UID: 150299

Rank: 9 Rank: 9 Rank: 9

声望: 286
寄托币: 9821
注册时间: 2003-11-24
精华: 13
帖子: 383

7楼

发表于 2007-2-8 05:24:29 |只看该作者

原帖由 foolboy007 于 2007-2-8 04:43 发表
我不会写vbscript
除了matlab 我不知道怎么弄了

俺恶习难改,最喜欢的语言还是basic, 最喜欢的语句还是goto;d:

ceboy
UID: 2119727

Rank: 9 Rank: 9 Rank: 9

声望: 26
寄托币: 26210
注册时间: 2005-7-22
精华: 10
帖子: 163

8楼

发表于 2007-2-8 09:03:03 |只看该作者

原帖由 Rittub 于 2007-2-8 05:24 发表

俺恶习难改,最喜欢的语言还是basic, 最喜欢的语句还是goto;d:

:funk: :funk: :funk:

人生有幾多個十年?!

gdhdanny
UID: 125843

Rank: 11

声望: 5
寄托币: 42091
注册时间: 2003-2-17
精华: 11
帖子: 71

9楼

发表于 2007-2-8 09:16:30 |只看该作者

赞小麦，这语言功底

There is nothing lost

That may be found

If sought

cecumt
UID: 2159874

Rank: 9 Rank: 9 Rank: 9

声望: 95
寄托币: 25318
注册时间: 2005-11-19
精华: 17
帖子: 757

10楼

发表于 2007-2-8 09:41:54 |只看该作者

一个字，崇拜ing!:eek:

Say we'll never end
こうやって、ずっと君と一緒歩いていたい~

wefree
UID: 162249

Rank: 11

声望: 205
寄托币: 8613
注册时间: 2004-4-20
精华: 14
帖子: 156

11楼

发表于 2007-2-8 09:45:47 |只看该作者

goto.

胸有惊雷而面如平湖

foolboy007
UID: 28322

Rank: 11

声望: 46
寄托币: 37961
注册时间: 2002-6-23
精华: 11
帖子: 78

12楼

发表于 2007-2-8 10:12:17 |只看该作者

原帖由 Rittub 于 2007-2-8 05:24 发表

俺恶习难改,最喜欢的语言还是basic, 最喜欢的语句还是goto;d:

最恶心的就是goto了
goto 来goto 去把自己都转晕了:mad

还是fortran简洁明了
Tubor C 严谨

这一段时间用数学软件用的都懒得自己写程序了

烟花巷陌，依约丹青屏障。幸有意中人，堪寻访。且恁偎红翠，风流事、平生畅。青春都一饷。忍把浮名，换了浅斟低唱。

sharkangle
UID: 2180822

Rank: 9 Rank: 9 Rank: 9

声望: 1006
寄托币: 4722
注册时间: 2006-1-29
精华: 13
帖子: 1270

13楼

发表于 2007-2-8 10:43:20 |只看该作者

牛的

faceup
UID: 25835

Rank: 11

声望: 26
寄托币: 15863
注册时间: 1970-1-1
精华: 43
帖子: 55

14楼

发表于 2007-2-8 14:13:08 |只看该作者

嘿嘿，虫子现在在哪AUSTIN吗？

You wake up at Seatac, SFO, LAX. You wake up at O'Hare, DFW, BWI. Pacific, Mountain, Central. Lose an hour, gain an hour. This is your life, and it's ending one minute at a time. You wake up at International Airport Houston. If you wake up at a different time, in a different place, could you wake up as a different person?