set ws=activeworksheet if worksheetfunction.counta(ws.range("h:i")) = 0 then ws.delete end if...
1 新建一个vba模块 2 输入以下函数Function getEmptyRow(sheetName As String, col As Long) As Long Dim rng As Range Set rng = ThisWorkbook.Sheets(sheetName).Cells(65536, col).End(xlUp) getEmptyRow = rng.Row + 1 Set rng = NothingEnd Function 3 调用此函数使用方法getEmptyRow("表名"...
copy cells(Cells(Rows.Count, 1).End(xlUp).row,3) sheet2.制定位置
next if n=30 then msgbox ("空了")end sub
在工作表名称上点右键,选查看代码,粘贴下面的代码 Sub 检查空单元格()Dim rng As Range, arr()For Each rng In Range("A1:A30")If rng = "" Then N = N + 1 ReDim Preserve arr(1 To N)arr(N) = rng.Address(0, 0)End If Next MsgBox "A1:A30有" & N & "个空单元格," ...
你没写清楚是要查空单元格啊还是 查单元格内容有空格.汗一个先.两段代码都贴给你吧 在工作表名称上点右键,选查看代码,粘贴下面的代码 Sub 检查空单元格()Dim rng As Range, arr()For Each rng In Range("A1:A30")If rng = "" Then N = N + 1 ReDim Preserve arr(1 To N)arr(N)...
假设你指定的列是B列：Sub 删除() Range("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.DeleteEnd Sub
其实不用使用VBA，按如下操作即可：选定A列，F5-定位条件-空值-确定 输入ABC 按Ctrl+Enter
for i = 1 to range("A65536").end(xlup).row()\x0d\x0a定义这样一个变量i\x0d\x0a对i进行循环就行了。\x0d\x0a这是2003的代码，2007及以上的，把65536修改为\x0d\x0a1048576
Excel中用VBA实现删除空行和空列 在exce中删除空行和空列的方法有很多,相对而言删除空行较为简单,只需进行筛选,将空白行筛选出来,删除即可,但要删除空列比较困难。因为你不能按列进行筛选删除。Excel中没有这 个功能。当然你可以用另外一种方法,就是按列进行排序将空白列排序在一起,然后删除,但这种方法面临着列...