排课卡片制作

jx928867128 · 发表于 2024-3-11 20:51

工作簿1.zip (9.31 KB, 下载次数: 5)

liulang0808 · 发表于 2024-3-11 21:00

Sub 按钮1_Click()
arr = Sheets("教师任课表").UsedRange
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For j = 2 To UBound(arr)
      brr(j - 1, 1) = arr(j, 1)
      c = 2
      For i = 2 To UBound(arr, 2)
         If Len(arr(j, i)) > 0 Then
            brr(j - 1, c) = arr(1, i) & Chr(10) & arr(j, i)
            c = c + 1
         End If
      Next i
Next j
Sheets("结果").[a1].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

liulang0808 · 发表于 2024-3-11 21:00

工作簿1111111.zip (17.47 KB, 下载次数: 18)

咔咔乱坠 · 发表于 2024-3-11 23:06

365函数，参与一下

=IFNA(DROP(REDUCE(0,A3:A7,LAMBDA(x,y,VSTACK(x,HSTACK(y,FILTER(BYCOL(VSTACK(B2:CV2,OFFSET(y,,1,,99)),LAMBDA(x,TEXTJOIN(CHAR(10),,x))),OFFSET(y,,1,,99)>0))))),1),"")

复制代码

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

[求助] 排课卡片制作

评分

评分