摘要：Option Explicit Dim w As Integer Dim h As Integer Dim a As Integer Dim i As Integer Dim c As Integer Private Sub Form_Click() ScaleMode = 3 w = 600 '宽 阅读全文

摘要：Private Sub CommandButton1_Click() With Sheet1 r = 2 '数据从第2行开始 t = .Cells(r, 15).Value '获取第r行第15列的值即第一个学校名称 Do Until t = "" '循环直到获得的单元格内容为空 'MsgBox (t 阅读全文