lzth.net
当前位置:首页 >> EXCEL中,如何用VBA统计某一区域空白单元格的数量,并填充内容 >>

EXCEL中,如何用VBA统计某一区域空白单元格的数量,并填充内容

假设某一区域是A1:D10,填充的内容是"特定内容",如下图: 则VBA代码如下. Sub MyMacro() Dim Rng As Range, c As Range, n As Long Set Rng = Range("A1:D10") Set c = Rng.SpecialCells(xlCellTypeBlanks) n = c.Cells.Count c.Value = "特定内容" MsgBox "空白单元格的数量是" & n & "个"End Sub 如下图,运行后会弹出一个对话框说明空白单元格数据,并填充特定内容,结果如下图:

Sub test()Set sh = ActiveSheeti = 1Text = sh.Cells(i, 1)'从第2113二5261行4102开1653始内容For i = 2 To 30 If Trim(sh.Cells(i, 1)) = "" Then sh.Cells(i, 1) = Text Else Text = sh.Cells(i, 1) End IfNext iEnd Sub

统计区域某单元格数量,直接用COUNTIF,非要用VBA的话下边这个是个计数函数,用法就是在单元格内直接写=计数(区域)就好,巨具体你要什么代码,自己参照下吧.Function 计数(rng As Range) As String

公式在图中,附件可参考数组公式,按组合键Ctrl+Shift+Enter三键结束输入

col=range("C1").end(xltoright).column '找非空列 cells(3,col)即所想要单元格

亲,测试效果和代码如下: Sub tc()Dim rg As RangeFor Each rg In Range("A1:D5") If rg = "" Then rg.Interior.Color = RGB(0, 255, 255)NextEnd Sub

可以用辅助列来实现 假如A列右边插入一个新列B, B1=IF(A1="",B2,A1),鼠标放在B1右下角,变成十字后下拉,一直到A18.

excel中实现统计空白单元格个数需要五个步骤.具体操作步骤:1. 打开一个excel空白表格,如图.2. 在表格中输入一些内容.如图.3. 输入公式计算空白单元格的个数,如图.4. 点击【回车键】后得到结果,如图.5. 黄色标记处即为空白单元格,如图.

来个简单的,自定义函数.效果是统计第一参数区域内与第二参数单元格底色相同的单元格个数. 效果: 模块1里写代码: Function test(a As Range, b As Range)Dim cell As RangeFor Each cell In aIf cell.Interior.Color = b.Interior.Color Then i = i + 1Nexttest = iEnd Function

比如,在E1输入:=SUMPRODUCT(--ISBLANK(A1:D11))----这就是求A1:D11区域空白单元格的个数

网站首页 | 网站地图
All rights reserved Powered by www.lzth.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com