非空单元格作为combobox值

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

©著作权归作者所有,转载或内容合作请联系作者
【社区内容提示】社区部分内容疑似由AI辅助生成，浏览时请结合常识与多方信息审慎甄别。
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

相关阅读更多精彩内容

  • VBA
    VBA订制工具栏 http://club.excelhome.net/thread-1047254-1-1.htm...
    大海一滴写字的地方阅读 6,763评论 0赞 0
  • 十六讲 单元格的查找
    入库单的输入，查找，删除与修改 一 查找功能 在VBA中查找主要有三种方法，第一是使用循环查找（在单元格中查找效率...
    肉丸子豆阅读 4,136评论 2赞 3
  • VBA入门教程
    1.1 VBA是什么 直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得...
    浮浮尘尘阅读 22,067评论 6赞 49
  • 使用VBA编写排序代码（Sort方法）
    看看下面的Excel界面截图，“排序”和“筛选”往往在一起，这大概是很多数据需要先排序后筛选吧！ 在Excel 2...
    完美Excel阅读 29,280评论 1赞 5
  • OkHttp的使用
    网络请求框架我一直都使用httpclient，后来改成了xutils，但是去年开始自从Android6.0去掉了h...
    浅笑夏沫阅读 4,410评论 0赞 0

友情链接更多精彩内容