各位大佬，请教一个楼号、层号、户号自动填充的问题

黄旭彬

这种问题用VBA处理方便多了。创建一个命令按键。
Private Sub CommandButton1_Click()
Dim ar, br(1 To 60000, 1 To 1), n, i, ii, iii
ar = Range([a2], [c65536].End(3))
For i = 1 To UBound(ar)
  For ii = 1 To Val(ar(i, 2))
  For iii = 1 To Val(ar(i, 3))
    n = n + 1
    br(n, 1) = ar(i, 1) & "座-" & ii & Format(iii, "00")
  Next
  Next
Next
[g2:g10000] = ""
[g2].Resize(n, 1) = br
End Sub

制造可乐

帖子的审核时间太久了。

法眼浅见

PQ解法（EXCEL2016及以上自带），结果在H列
生成住户的房号.zip (14.51 KB, 下载次数: 11)

2021-9-29 16:34 上传

点击文件名下载附件
生成住户的房号.zip

木子定月生

刷新好久，感觉好难，求大神；不知道有没有使用365的新函数，如lambda的递归以及其他数组函数；

秋天落叶

抛砖引玉一下。。。
=IFERROR(LOOKUP(ROW(A1)-1,INT(MMULT(N(ROW($1:$6)>COLUMN(A:E)),EXP(MMULT(LN(B$2:C$6),{1;1})))),A$2:A$6&"座-"&INT((ROW(A1)-1-INT(MMULT(N(ROW($1:$6)>COLUMN(A:E)),EXP(MMULT(LN(B$2:C$6),{1;1})))))/C$2:C$6)+1&TEXT(MOD(ROW(A1)-1-INT(MMULT(N(ROW($1:$6)>COLUMN(A:E)),EXP(MMULT(LN(B$2:C$6),{1;1})))),C$2:C$6)+1,"00")),"")

王二斤

俺跟你思路完全一毛一样的哈哈，合不到一块，期待其他大佬给出更好的答案。
=LOOKUP(ROW(),MMULT(N(ROW($2:2)>COLUMN(A:F)),N(+B$1:B$6)*N(+C$1:C$6))+2,A$2:A$6&A$1&"-"&INT((ROW()-2-MMULT(N(ROW($2:2)>COLUMN(A:F)),N(+B$1:B$6)*N(+C$1:C$6)))/C$2:C$6)+1&RIGHT(0&MOD(ROW()-2-MMULT(N(ROW($2:2)>COLUMN(A:F)),N(+B$1:B$6)*N(+C$1:C$6)),C$2:C$6)+1,2))

官先生

我感觉用函数的确不好弄，需要静待高手出现。要是发在VBA区，可能很快有解决方案。

海上钢琴猫

这种问题用VBA处理方便多了。创建一个命令按键。
Private Sub CommandButton1_Click()
Dim ar, br(1 To 60000, 1 To 1), n, i, ii, iii
ar = Range([a2], [c65536].End(3))
For i = 1 To UBound(ar)
  For ii = 1 To Val(ar(i, 2))
  For iii = 1 To Val(ar(i, 3))
    n = n + 1
    br(n, 1) = ar(i, 1) & "座-" & ii & Format(iii, "00")
  Next
  Next
Next
[g2:g10000] = ""
[g2].Resize(n, 1) = br
End Sub

曹小琴

帖子的审核时间太久了。

沙漠热风

PQ解法（EXCEL2016及以上自带），结果在H列
生成住户的房号.zip (14.51 KB, 下载次数: 75)

2021-9-29 16:34 上传

点击文件名下载附件
生成住户的房号.zip