教师课表怎么变成原始数据

choanna

  各位大佬，看怎么把一个课表，变成原始数据条呢，这种课表完全无法处理数据~~

cyh3230

可以用 PQ 去拆, 应该算是比较方便的方法

choanna

cyh3230 发表于 2023-12-27 10:34
可以用 PQ 去拆, 应该算是比较方便的方法

这个有点复杂，请问用pq怎么拆啊

choanna

cyh3230 发表于 2023-12-27 10:34
可以用 PQ 去拆, 应该算是比较方便的方法

我能转换，就是1个表格里面有很多信息，拆分的时候不太会弄，有什么办法不？

沈默00

可以做的，可能麻烦点。
把附件发全了，现在的表格；想要的结果模拟一下。

cyh3230

转换完成如图
基本没有写什么函数
主要也都是点点工具栏
所以过程有点乱

PZB0000

给你一个稍微简单，但是比较麻烦的方法
1.目前你给到的数据还是比较规整的，宽度分隔符都比较统一
2.先复制出来一列，然后采用分列的方法（固定宽度），设置好分列字段
3.做一个简单的数据引用，直接把分列好的数据引用到设置好的单元格里面，然后复制出来保存好
4.如果你的排班表是按照一周做的话，你需要做5次拆分就可以了
这个方法比较简单，但是费时间。仅作参考

3190496160

Sub 转换()
Dim ar As Variant
Dim br()
With Sheets("sheet1")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    y = .Cells(1, Columns.Count).End(xlToLeft).Column
    If r < 2 Then MsgBox "数据源为空！": End
    ar = .Range(.Cells(1, 1), .Cells(r, y))
End With
ReDim br(1 To 10000, 1 To 5)
For j = 2 To UBound(ar, 2)
    If ar(1, j) <> "" Then
        For i = 2 To UBound(ar)
            If ar(i, j) <> "" Then
                rr = Split(ar(i, j), Chr(10))
                For s = 0 To UBound(rr) - 2 Step 4
                    If Trim(rr(s)) <> "" Then
                        n = n + 1
                        br(n, 1) = ar(1, j)
                        br(n, 2) = rr(s)
                        br(n, 3) = ar(i, 1)
                        br(n, 4) = rr(s + 2)
                        br(n, 5) = rr(s + 1)
                    End If
                Next s
            End If
        Next i
    End If
Next j
With Sheets("结果表")
    .[a1].CurrentRegion.Offset(1) = Empty
    .[a2].Resize(n, UBound(br, 2)) = br
End With
MsgBox "ok!"
End Sub

3190496160

教师课表.rar (19.27 KB, 下载次数: 24)

2023-12-27 11:19 上传

点击文件名下载附件

choanna

感谢各位大佬的建议，已经解决啦，谢谢