1、首先需要建立一张表格，并设置建立一个按钮控件，以便可以使用编写代码实现旱字的显示，如下图所示：
2、点击按钮右键，找到指定宏，如下图所示：
3、进入到vba的project项目模式下，可以编写代码，如下图所示：
1、接写来就是编写代码，实现汉字旱的显示，代码截图如下图所示：
2、代码：
Sheet1.Range("C3:D4").Borders(xlEdgeBottom).Weight = xlThick
Sheet1.Range("C3:D3").Borders(xlEdgeBottom).Weight = xlThick
Sheet1.Range("C3:D4").Borders(xlEdgeTop).Weight = xlThick
Sheet1.Range("C3:D4").Borders(xlEdgeLeft).Weight = xlThick
Sheet1.Range("C3:D4").Borders(xlEdgeRight).Weight = xlThick
Sheet1.Range("C6:D6").Borders(xlEdgeTop).Weight = xlThick
Sheet1.Range("B7:E7").Borders(xlEdgeTop).Weight = xlThick
Sheet1.Range("C6:C9").Borders(xlEdgeRight).Weight = xlThick
代码显示汉字旱。
1、最后就是点击按钮，执行代码，运行结果，显示旱，如下图所示：
2、可以使用表格的线条实现汉字旱的显示，结果如下图所示：
