您想要的可以使用折线图来实现。不需要 VBA。
这是一个基本示例。
免责声明：这是一个非常基本的示例。您必须修改它以满足您的需要。
假设您的工作表中有如下所示的日期。
按着这些次序
1.输入1单元格G2:L2
2.选择单元格G2:L2。单击Insert选项卡并插入折线图
3.通过选择删除图表的网格线、图表标题和轴。
4.设置填充为No Fill和边框为No Line
5.选择线条并设置标记属性，如下所示
6.右键单击图表，然后单击Select Data
7.单击Hidden and Empty cells
8.选择如下对话框中所示的选项。点击OK。再次单击OK关闭第二个对话框
9.=IFERROR(MATCH(G1,$B$2,0),NA())在单元格中输入公式G2
10.=IFERROR(MATCH(H1,$B$3,0),NA())在单元格中输入公式H2并将其复制到最后一个单元格。在我们的例子中是这样的L2。您的工作表将如下所示
11.将单元格的字体颜色更改G2:L2为白色
12.接下来输入开始日期和结束日期。你会注意到这条线
13.进行基本格式设置并调整图表，使标记位于单元格的中心。
你就完成了。
行动中
