Private Sub UserForm_Initialize()
Rows("9:28").EntireRow.Hidden = False
Dim Maxrow As Integer
Maxrow = Sheet1.Range("A65536").End(xlUp).Row '从下到上找到最后的非空单元格行号'
ComboBox1.RowSource = Sheet1.Range("A7:A" & Maxrow).Address(External:=True)
Rows("9:28").EntireRow.Hidden = True
End Sub