从时间表中提取数据

Question

我有一个时间表，其中包含我可以在什么日期，时间和学年上的课。 下面的例子：

我想做的是提取数据：学年，学期，班级ID，班级名称，老师，教室，还包括日期和时间段。 然后使用提取的数据创建一个新表。 下面的例子：

我想问一下是否有使用公式或VBA进行此操作的更快，更轻松的方法。 现在，我正在做的只是复制和粘贴，但是数据太多了。 （周一至周五和第一期至第六期）

Answer 1

是的，可以通过VBA进行操作，但是您的工作表结构在该屏幕截图中并不完全可见：它不显示“第一期”将结束而“第二期”将开始。

对于除Time之外的其余数据，以下函数将执行您想要的操作。 它将数据从名为Sheet1的工作表提取到名为Sheet2的工作表。

Sub extractData()

    ' Keep track of day name
    DayName = ""

    ' Loop variable
    Dim i As Integer
    i = 0

    loopVar = True

    While (loopVar)

        ' Get the Class ID
        ClassID = Sheets("Sheet1").Range("D" & i).Value

        ' Check if this is an empty row
        If (ClassID <> "") Then

            ' Get the semester name
            Sem = Sheets("Sheet1").Range("C" & i).Value

            ' Get the Class Name
            ClassName = Sheets("Sheet1").Range("E" & i).Value

            ' Get the Teacher Name
            TeacherName = Sheets("Sheet1").Range("F" & i).Value

            ' Get the Class Room
            ClassRoom = Sheets("Sheet1").Range("G" & i).Value

            ' Get the day name
            Temp = Sheets("Sheet1").Range("A" & i).Value
            If Temp <> "" Then DayName = Temp

            j = i - 2

            ' Set the Class ID
            Sheets("Sheet2").Range("A" & j).Value = ClassID

            ' Set the Class Name
            Sheets("Sheet2").Range("B" & j).Value = ClassName

            ' Set the Teacher
            Sheets("Sheet2").Range("C" & j).Value = TeacherName

            ' Set the Class Room
            Sheets("Sheet2").Range("D" & j).Value = ClassRoom

            ' Set the semester
            Sheets("Sheet2").Range("E" & j).Value = Sem

            ' Set the Day Name
            Sheets("Sheet2").Range("F" & j).Value = DayName

            ' Incrementl the loop variable
            i = i + 1

        Else

            ' End the loop
            loopVar = False

        End If

    Wend

End Sub