Excel vba 如何查找某一列中间的空单元格

致命之猛兽

想做这样一个功能：建立一个用户控件，可以输入数据，如文本框combobox1，接收产品序号
然后判断 某一列（比如A1列）有无输入的数据，如果有这个产品，那么就在这个产品后面的一栏修改数据，
如果没有这个产品，那么就在这一列A2 到 A11中已有的值的下一行添加这个产品的编号

但是不能用
RowNum = Worksheets("Sheet1").UsedRange.Rows.Count 这个，因为 A11下面还有别的数据，但是和这个不是同一类型的数据了


比如
A2到A11一开始是空着的，每输入一个产品，就填一个值
比如一开始 输入 产品 0001
就在 A2 里输入 产品0001
然后又接受到 产品0002
那就在A3 输入0002

如果下一个combobox1接受到产品0002，那就还是定位到0002
直到下一个产品的出现，比如产品0003，就在A4里输入0003
以此类推

求高手帮助！

leo2011

range("单元格").select。可以用查找

致命之猛兽

貌似会了，用range（a1:a11）.find("").row就可以了吧
高手还有别的更加简单的办法吗？

6688

致命之猛兽 发表于 2012-7-20 15:33
貌似会了，用range（a1:a11）.find("").row就可以了吧
高手还有别的更加简单的办法吗？

Sub kk()
    t = ActiveCell.Range(Selection.Address).Count
    b = WorksheetFunction.CountA(Range(Selection.Address))
    If t > b Then
       MsgBox "have blanks cells"
    End If
      
End Sub

佛山小老鼠

数据量大，find速度快许多，打个比方，1万个单元格找5个空单元格，find只要循环6次，而其它的循环语句要循环1万次

1. Sub find查找空单元格()
   
2.     Dim Rg As Range, St$, SumRg As Range
   
3.     Set Rg = Range("A1:A70").Find("", , , xlWhole)
   
4.     If Rg Is Nothing Then Exit Sub
   
5.     St = Rg.Address
   
6.     Set SumRg = Rg
   
7.      Do
   
8.     Set Rg = Range("A1:A70").Find("", Rg, , xlWhole)
   
9.     Set SumRg = Union(SumRg, Rg)
   
10.       Loop While Rg.Address <> St
    
11.       SumRg.Select
    
12. End Sub

复制代码