已知年级和班级数量，自动生成班级号

golilen · 发表于 2019-4-19 14:00

本帖最后由 golilen 于 2019-4-19 14:04 编辑

学习.rar (6.89 KB, 下载次数: 27)

我走我流 · 发表于 2019-4-19 14:04

前几天有个类似的贴子，，

南极烤熊 · 发表于 2019-4-19 14:18

觉得得用VB整吧，公式好像得整个老复杂的了

cxm950917 · 发表于 2019-4-19 15:40

建议用VBA

jivy1212 · 发表于 2019-4-19 15:44

=INDEX($A$2:$A$7,ROUNDUP(ROW(A1)/4,))&MOD(ROW(A1)-1,4)+1 下拉，假设这样规则的话

astupig · 发表于 2019-4-19 15:58

Sub GenerateNum()

Dim i, j

For i = 2 To 7

      For j = 1 To Cells(i, 2)
         Cells(1000, 4).End(xlUp).Offset(1, 0) = Cells(i, 1) & j
      Next
Next

End Sub

ghzx9388 · 发表于 2019-4-19 16:00

开个火车
=INDEX(A:A,SMALL(IF(B$2:B$8>=COLUMN($1:$1),ROW($2:$8)),ROW(A1)))&MOD(ROW(A1)-1,INDEX(B:B,SMALL(IF(B$2:B$8>=COLUMN($1:$1),ROW($2:$8)),ROW(A1))))+1 数组公式

cxm950917 · 发表于 2019-4-19 16:03

jivy1212 发表于 2019-4-19 15:44
=INDEX($A$2:$A$7,ROUNDUP(ROW(A1)/4,))&MOD(ROW(A1)-1,4)+1 下拉，假设这样规则的话

看你们一天了是真的牛批收徒弟吗不漏油的那种

我走我流 · 发表于 2019-4-19 16:09

用PQ做了个，当数据更新后，点下刷新，结果也自动更新

丢丢表格 · 发表于 2019-4-19 16:31

我走我流发表于 2019-4-19 16:09
用PQ做了个，当数据更新后，点下刷新，结果也自动更新

PQ 跟透视表是相似的。

我还是来个公式吧
=SMALL(IF(COLUMN(A:Z)<=B$2:B$7,ROW($1:$6)*100+COLUMN(A:Z)),ROW(A1))

		自动登录	找回密码
密码			免费注册

[已解决] 已知年级和班级数量，自动生成班级号

评分

评分

评分

评分

最新热点 /1