非空單元格作為combobox值

Private Sub UserForm_Initialize()

Rows("9:28").EntireRow.Hidden = False

Dim Maxrow As Integer

? ? Maxrow = Sheet1.Range("A65536").End(xlUp).Row '從下到上找到最后的非空單元格行號(hào)'

? ? ComboBox1.RowSource = Sheet1.Range("A7:A" & Maxrow).Address(External:=True)

Rows("9:28").EntireRow.Hidden = True

End Sub

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成，瀏覽時(shí)請(qǐng)結(jié)合常識(shí)與多方信息審慎甄別。
平臺(tái)聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點(diǎn)，簡(jiǎn)書系信息發(fā)布平臺(tái)，僅提供信息存儲(chǔ)服務(wù)。

相關(guān)閱讀更多精彩內(nèi)容

  • VBA訂制工具欄 http://club.excelhome.net/thread-1047254-1-1.htm...
    大海一滴寫字的地方閱讀 2,356評(píng)論 0贊 0
  • 入庫單的輸入，查找，刪除與修改 一 查找功能 在VBA中查找主要有三種方法，第一是使用循環(huán)查找（在單元格中查找效率...
    肉丸子豆閱讀 850評(píng)論 2贊 3
  • 1.1 VBA是什么 直到90年代早期,使應(yīng)用程序自動(dòng)化還是充滿挑戰(zhàn)性的領(lǐng)域.對(duì)每個(gè)需要自動(dòng)化的應(yīng)用程序,人們不得...
    浮浮塵塵閱讀 22,141評(píng)論 6贊 49
  • 看看下面的Excel界面截圖，“排序”和“篩選”往往在一起，這大概是很多數(shù)據(jù)需要先排序后篩選吧！ 在Excel 2...
    完美Excel閱讀 29,481評(píng)論 1贊 5
  • 網(wǎng)絡(luò)請(qǐng)求框架我一直都使用httpclient，后來改成了xutils，但是去年開始自從Android6.0去掉了h...
    淺笑夏沫閱讀 970評(píng)論 0贊 0

友情鏈接更多精彩內(nèi)容