excel画铁路线

使用excel的行、列参数，画铁路线段Sub 铁路线() Worksheets("图示").Select Dim inta As Integer Dim inti As Integer '设置起始行 Dim intj As Integer '设置起始列 Dim intd As Integer inti = 30 '设置行号 intd = 5 'InputBox("请输入图示起始单元格列号", "", "") Do While intd < 4305 For in