使用Excel中的宏将数据从数据列表传输到另一个工作表

Question

我当然希望我能正确解释这一点...我有一个数据列表。数据包括日期，时间和学校名称。我需要当前从工作表中获取的数据，这些工作表是我目前从excel中的“从Web获取”功能获取的。这是根据这些电子表格上的数据尝试完成的示例：

8月17日，星期五

男孩足球

弗农山的安提阿，下午4:30

沃伦的史蒂文森，下午5点。

女子网球

沃伦的弗农·希尔斯（Vernon Hills），下午6点。

沃康达的圆湖，下午6点。

8月18日，星期六

男孩高尔夫

安提阿的战争，上午8:30

该列表会在每周的每一天使用不同的时间表和球队名称以及比赛时间。

基本上，此数据存在于我当前保存的电子表格中，只是数据本身在各处都是这样。在时间之前在电子表格和“ p.m.”上没有逗号和“上午”它们之间没有句号。因此，将它们添加到代码中将很有帮助。我将分享我的数据的屏幕快照，以供参考。

现在，我已经设法构建了一个宏，该宏可以执行我在技术上想要做的事情，但是我还无法弄清楚表示移至数据范围下一行的代码。另外，我还有其他4个标签（又称工作表），它们的格式仅适用于另一所学校。如果按上述示例中所述的方式一次按下按钮来组织来自所有电子表格的数据，那将是理想的。但是，我很高兴现在只为一所学校使用一个按钮，然后获取该代码并将其更改为可在另一所学校使用。

因此，众所周知，我在这里总体上要完成的工作是按日期和运动类型分类的高中运动比赛时间表。

这是我当前正在使用的代码：

Private Sub CommandButton1_Click()
Dim Eventname As String, Time As String, Opponent As String, Location As String, dateday As String
Worksheets("Vernon Hills").Select
Eventname = Range("A3")
Time = Range("B3")
Opponent = Range("C3")
Location = Range("D3")
dateday = Range("B2")
Worksheets("Main").Select
Worksheets("Main").Range("A1").Select
If Worksheets("Main").Range("A1").Offset(1, 0) <> "" Then
Worksheets("Main").Range("A1").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = dateday
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Opponent
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Time
Worksheets("Vernon Hills").Select


End Sub

最后。...这是我要从中抓取数据的数据的屏幕截图。

您会注意到，单元格A3在该特定单元格中带有单词“ Golf：Girls”。另请注意，日期在A2中，对手的名字在C3中。 “位置”列只是我参考“主队”与“客队”的一种方式。

谢谢任何能帮助我的人。如果需要，我会很乐意提供更多信息。