ActiveCell.Select For i = 1 To Counter If ActiveCell = "" Then Selection.EntireRow.Delete Counter = Counter - 1 Else ActiveCell.Offset(1, 0).Select End If Next i End Sub 本节内容参考程序文件:Chapter04-2.xlsm 我20多年的VBA实践经验,全部浓缩在下面的各个教程中:发布...
maxnum2 = maxnum2 - 1 rndrow2 = 生成随机整数(minnum2, maxnum2) End If End With 'ThisWorkbook.Worksheets("提取结果").Activate 'ThisWorkbook.Worksheets("提取结果").Cells(addrow, 1).Select End Sub
#002 Range("A1:B2,D1:F3").Select '不连续区域选择 #003 Range(Cells(1, 1), Cells(9, 4)).Select '选择A1:D9区域 #004 Range("A1:D9").Select '选择A1:D9区域 #005 Range("A1").CurrentRegion.Select 'CurrentRegion属性选择 #006 ActiveSheet.UsedRange.Se...
DimlLastRowAsLong'Last row DimrngAsrange DimrngDeleteAsrange 'Freeze screen Application.ScreenUpdating=False 'Insert dummy row for dummy field name Rows(1).Insert 'Insert dummy field name range("C1").value="Temp" WithActiveSheet .UsedRange lLastRow=.cells.SpecialCells(xlCellTypeLastCell).row Setr...
And wsSheet.Range("AE"&i).Text="#N/A"And wsSheet.Range("P"&i).Value="14"Then NextBlankRow=Worksheets("Self Service").UsedRange.Rows.Count+1wsSheet.Rows(i).Copy Destination:=Worksheets("Self Service").Range("A"&NextBlankRow)wsSheet.Rows(i).Delete ...
2) = 0 And Len(Cells(x, 2)) = 0 ThenCells(x, 2).EntireRow.DeleteEnd IfNext xEnd Sub加一个and判断下小改一下呵呵 删除的时候用到寻坏比较好~~你测试了看看Sub fsadfs()Dim RR%, rRange("A1").CurrentRegion.SelectRR = Selection.Rows.CountRange("B2").SelectFor r = 1 To...
While we're here talking about deleting every 2nd row, it makes good sense to brush over on deleting every Nth row and it makes even better sense to get down to work. Let's dive in! Table of Contents Method #1 – Using Formula Based Filters Method #1 – Using VBA How to Delete ...
Range("B65536").End(xlUp).Row 表示获取B列数据区域最后一行的行号,用于复制所有的数据区域, Range("B1").Select Application.ScreenUpdating = True MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示" ...
select條件陳述 5739 播放 草头十二年 小白学习进阶 下载