计数如果VB函数不处理所有types的数据

在Excel VB代码下面，检查相似的主题行，并在第一列中创build空的范围。 一旦macros被触发，input框要求我select具有相似主题行的范围，然后input框要求我给出最小范围数目，然后将第一列中的范围命名为空范围1,2等等。 基本上有效地使用这个函数计数如果VB代码中的函数应该处理所有types的数据，例如数字或文本。 我观察到，如果计数如果函数给出了错误值，如#Value, #N/a or "0" Value #Value, #N/a or "0"那么范围不能正确创build。 请如果你能build议改善，那么这将是非常好的。 我有两张“Raw_Data”和“Ghost”，后来我打算在隐藏模式下使用Ghost表格。

 `Sub Assignments() Dim Vall As String Dim Colns As Range Dim Numb As Variant Dim Cnt As Variant Sheets("Raw_Data").Activate On Error Resume Next Set Colns = Application.InputBox("Select a column which has similar subjects.", "Range Selection", Type:=8) If Not Colns Is Nothing Then Colnss = Colns.Column On Error Resume Next Numb = Application.InputBox("Enter the number of documents to be assigned.", "Range Selection", Type:=1) Columns(1).Insert Shift:=xlToRight Cells(1, 1).Value = "Ranges" Colmns = Colnss + 1 Thrd = Sheets("Raw_Data").Cells(2, Colmns).End(xlDown).Row If Numb <> False Then Range(Sheets("Ghost").Cells(2, 1), Sheets("Ghost").Cells(Thrd, 1)).Value = _ Range(Sheets("Raw_Data").Cells(2, Colmns), Sheets("Raw_Data").Cells(Thrd, Colmns)).Value Range(Sheets("Ghost").Cells(2, 1), Sheets("Ghost").Cells(Thrd, 1)).RemoveDuplicates Columns:=1, Header:=xlNo Cntif = 2 ABC = 1 Rais = 0 Do While Sheets("Ghost").Cells(Cntif, 1).Value <> "" Vall = Sheets("Ghost").Cells(Cntif, 1).Value 'this should not return 0 or Error values Cnt = Application.WorksheetFunction.CountIf(Sheets("Raw_Data").Columns(Colmns), Vall) Rais = Rais + Cnt If Rais > Numb Or Rais = Numb Then UsrNme = Sheets("Raw_Data").Range("A1048576").End(xlUp).Row + 1 Range(Sheets("Raw_Data").Cells(UsrNme, 1), Sheets("Raw_Data").Cells(UsrNme + (Rais - 1), 1)).Value = "Empty Range " & ABC Rais = 0 ABC = ABC + 1 End If Set Cnt = Nothing Cntif = Cntif + 1 Loop Frst = Sheets("Raw_Data").Cells(2, 1).End(xlDown).Row + 1 Range(Cells(Frst, 1), Cells(Thrd, 1)).Value = "Last Range" Columns(1).AutoFit End If End If End Sub` 

计数如果不考虑的主体的示例，请粘贴在单元格B1，B2的下面，然后尝试：

• Checked为FYE感谢页面撰写内容 – 两个实例:::::::::::: 1）当某人提交信息并被放置在一所学校时。 2）如果有人没有任何学校。 你可以在这里修改你的search，那种事情。 在FYE – 改进和testing一切为新＆项目
• 你需要帮助吗？ 〜创意圈〜截止到2015年9月25日的人才更新