制作编程网课对比表的步骤如下：
确定表格结构
明确需要对比的信息，例如课程名称、课程时间、课程内容、授课方式、费用等。
确定表格的列标题，确保每一列都清晰地反映了需要对比的信息。
收集数据
从各个在线编程课程平台或资源中收集相关数据。
将数据整理成表格形式，确保数据格式一致，便于后续对比。
选择合适的工具
可以使用Excel、Google Sheets等电子表格软件来制作对比表。
如果需要自动化处理数据，可以使用VBA宏来辅助完成。
制作对比表
在电子表格中创建一个新的工作表，用于存放对比结果。
将收集到的数据导入到新的工作表中。
使用公式和函数（如SUM、AVERAGE、COUNT等）来计算和对比数据。
可以使用条件格式化来突出显示对比结果，例如使用不同颜色或字体大小来表示数据的变化。
审核和修改
仔细检查对比表中的数据，确保准确无误。
根据需要调整表格的格式和布局，使其更加易读和美观。
分享和讨论
将对比表分享给相关人员，如同学、老师或学习小组的成员。
收集反馈，根据需要进行修改和完善。
```vba
Sub 生成对比表（）
Dim ws1 As Worksheet, ws2 As Worksheet, wsResult As Worksheet
Dim dict As Object
Dim lastRow1 As Long, lastRow2 As Long, i As Long
Dim productName As String
Dim sales1 As Double, sales2 As Double
' 设置工作表
Set ws1 = ThisWorkbook.Sheets（"去年数据"）
Set ws2 = ThisWorkbook.Sheets（"今年数据"）
Set wsResult = ThisWorkbook.Sheets.Add
wsResult.Name = "对比结果"
' 初始化字典
Set dict = CreateObject（"Scripting.Dictionary"）
' 获取去年和今年数据的最后一行
lastRow1 = ws1.Cells（ws1.Rows.Count, "A"）.End（xlUp）.Row
lastRow2 = ws2.Cells（ws2.Rows.Count, "A"）.End（xlUp）.Row
' 遍历数据并对比
For i = 1 To lastRow1
productName = ws1.Cells（i, 1）.Value
sales1 = ws1.Cells（i, 2）.Value
If Not dict.Exists（productName） Then
dict.Add productName, Array（sales1）
Else
dict（productName）（0） = dict（productName）（0） + sales1
End If
Next i
For i = 1 To lastRow2
productName = ws2.Cells（i, 1）.Value
sales2 = ws2.Cells（i, 2）.Value
If Not dict.Exists（productName） Then
dict.Add productName, Array（sales2）
Else
dict（productName）（1） = dict（productName）（1） + sales2
End If
Next i
' 输出对比结果
Dim key As Variant
Dim resultRow As Long
resultRow = 2
For Each key In dict.Keys
wsResult.Cells（resultRow, 1）.Value = key
wsResult.Cells（resultRow, 2）.Value = dict（key）（0） - dict（key）（1）
resultRow = resultRow + 1
Next key
End Sub
```
这个宏会比较两个工作表中的数据，并生成一个新的工作表，显示每个课程的销量变化情况。你可以根据实际需求修改和扩展这个宏，以适应不同的对比需求。