找回密码
 立即注册
搜索
楼主: 一望吴垠

求助 公式

27
回复
1326
查看
[复制链接]

0

主题

5

帖子

-1

幻币

初入江湖

Rank: 1

积分
3
2022-1-26 23:28:29 显示全部楼层
F3设常规格式:=LOOKUP(ROW(A1)-1,MMULT((ROW($1:$4)>COLUMN($A:$D))*1,C$3:C$6*D$3:D$6),B$3:B$6)&"-"&INT(COUNTIF(F$2:F2,LOOKUP(ROW(A1)-1,MMULT((ROW($1:$4)>COLUMN($A:$D))*1,C$3:C$6*D$3:D$6),B$3:B$6)&"-*")/LOOKUP(ROW(A1)-1,MMULT((ROW($1:$4)>COLUMN($A:$D))*1,C$3:C$6*D$3:D$6),D$3:D$6))+1&TEXT(MOD(COUNTIF(F$2:F2,LOOKUP(ROW(A1)-1,MMULT((ROW($1:$4)>COLUMN($A:$D))*1,C$3:C$6*D$3:D$6),B$3:B$6)&"-*"),LOOKUP(ROW(A1)-1,MMULT((ROW($1:$4)>COLUMN($A:$D))*1,C$3:C$6*D$3:D$6),D$3:D$6))+1,"-00")

下拉。
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

7

帖子

-1

幻币

初入江湖

Rank: 1

积分
5
2022-1-27 20:24:16 显示全部楼层
如果VBA处理的话会简单多了。
PPT学习论坛
回复 支持 反对

使用道具 举报

1

主题

7

帖子

2

幻币

初入江湖

Rank: 1

积分
9
2022-1-30 21:19:20 显示全部楼层
这个题目上个月就有人问了,用函数写局限性实在是太大了,公式写出来只能适用目前的数据而且繁琐复杂。
代码是非常简洁的,而且好理解。可以叫勇哥给你写个通用的代码
PPT学习论坛
回复 支持 反对

使用道具 举报

1

主题

8

帖子

2

幻币

初入江湖

Rank: 1

积分
6
2022-2-1 17:56:54 显示全部楼层
勇哥,能否给我 代码
PPT学习论坛
回复 支持 反对

使用道具 举报

1

主题

7

帖子

-2

幻币

初入江湖

Rank: 1

积分
3
2022-2-9 04:54:47 显示全部楼层
来个 V BA
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

6

帖子

0

幻币

初入江湖

Rank: 1

积分
0
2022-2-15 15:00:00 显示全部楼层
幢号  总楼层  单层套数         
  1  2  4      1-1-01      
  2  5  2      1-1-02      
  3  3  3      1-1-03      Private Sub CommandButton1_Click()
              1-1-04      n = 3
              1-2-01      Range("f3:f65536").ClearContents
              1-2-02      For x = 3 To Range("b65536").End(xlUp).Row
              1-2-03      For y = 1 To Cells(x, "c")
              1-2-04        For z = 1 To Cells(x, "d")
              2-1-01          Cells(n, "f") = Cells(x, "b") & "-" & y & "-" & Format(z, "00")
              2-1-02          n = n + 1
              2-2-01        Next
              2-2-02       Next
              2-3-01      Next
              2-3-02      End Sub
              2-4-01      
              2-4-02      
              2-5-01      
              2-5-02      
              3-1-01      
              3-1-02      
              3-1-03      
              3-2-01      
              3-2-02      
              3-2-03      
              3-3-01      
              3-3-02      
              3-3-03
PPT学习论坛
回复 支持 反对

使用道具 举报

1

主题

13

帖子

2

幻币

初入江湖

Rank: 1

积分
14
2022-2-16 02:50:49 显示全部楼层
e67dc14890410535c44f7f61251aeb7e.png
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

4

帖子

-2

幻币

东方不败

积分
-3
2022-2-17 21:52:08 显示全部楼层
感谢各位  已解决
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

6

帖子

-1

幻币

初入江湖

Rank: 1

积分
4
2022-2-18 11:11:00 显示全部楼层
<blockquote>

Sub tex()
  Dim i, j, k: n = 3
  arr = Range("b2").CurrentRegion
  For i = 2 To UBound(arr)
  For j = 1 To arr(i, 2)
    For k = 1 To arr(i, 3)
      Range("f" & n) = arr(i, 1) & "—" & j & "—0" & k
      n = n + 1
    Next
  Next
  Next
End Sub
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

4

帖子

0

幻币

初入江湖

Rank: 1

积分
0
2022-2-22 12:13:29 显示全部楼层
F3设常规格式:=LOOKUP(ROW(A1)-1,MMULT((ROW($1:$4)>COLUMN($A:$D))*1,C$3:C$6*D$3:D$6),B$3:B$6)&"-"&INT(COUNTIF(F$2:F2,LOOKUP(ROW(A1)-1,MMULT((ROW($1:$4)>COLUMN($A:$D))*1,C$3:C$6*D$3:D$6),B$3:B$6)&"-*")/LOOKUP(ROW(A1)-1,MMULT((ROW($1:$4)>COLUMN($A:$D))*1,C$3:C$6*D$3:D$6),D$3:D$6))+1&TEXT(MOD(COUNTIF(F$2:F2,LOOKUP(ROW(A1)-1,MMULT((ROW($1:$4)>COLUMN($A:$D))*1,C$3:C$6*D$3:D$6),B$3:B$6)&"-*"),LOOKUP(ROW(A1)-1,MMULT((ROW($1:$4)>COLUMN($A:$D))*1,C$3:C$6*D$3:D$6),D$3:D$6))+1,"-00")

下拉。
PPT学习论坛
回复 支持 反对

使用道具 举报

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