Important Note– Delete multiple columns using a sequence from the last column to the first column. If you want to delete columns C, E, and H, delete the H column first, then the E, and then the C. Because when you delete a column, the column ahead takes its place. If you delete ...
first = Selection.Column last = Selection.Columns(Selection.Columns.Count).Column For i = last To first Step -1 If WorksheetFunction.CountBlank(ActiveSheet.Columns(i)) = 1048576 Then '低版本为65536 Columns(i).Delete End If Next i End Sub 本节内容参考程序文件：Chapter04-2.xlsm 我20多年的V...
last = Selection.Columns(Selection.Columns.Count).Column For i = last To first Step -1 If WorksheetFunction.CountBlank(ActiveSheet.Columns(i)) = 1048576 Then '低版本为65536 Columns(i).Delete End If Next i End Sub 本节内容参考程序文件:Chapter04-2.xlsm 我20多年的VBA实践经验,全部浓缩在下面的...
Sub test()Dim i As Integer, MyRange As RangeSet MyRange = Columns(2)For i = 2 To 22 Step 5 '最后一列暂时定为第22列，你可以自己调整Set MyRange = Union(MyRange, Columns(i))Next iMyRange.SelectMyRange.DeleteEnd Sub应从右向左删，因为列数是个动态值，第二列永远都会在...
ListColumns("Child #").DataBodyRange LastRow = ChildNumColumn.Rows.Count For i = LastRow To 1 Step -1 If Len(ChildNumColumn.Cells(i).Value) = 0 Then tblTest.ListRows(i).Delete End If Next i End Sub Marked as Solution View Full Discussion (8 Replies)Show Parent Re...
ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column ' 从最后一列开始向前遍历,以避免因删除列而改变列号 For i = lastColumn To 1 Step -1 ' 如果列中所有单元格都为空,则删除该列 If Application.WorksheetFunction.CountA(ws.Columns(i)) = 0 Then ws.Columns(i).Delete End If Next i End Sub...
行的删除可以啦,但列的删除出问题了columns(“26:40”).deleteShift:=xlUp ---【学习】--- 通过百度查找问题:学习知识: Part 1:多行删除 <1>通过Rows和Range两种方法都可以 <2>多行使用行号数字来表示,注意需将行号放入双引号中"" Sub 多行删除()...
Public Sub DeleteDupRows() Dim plLine As Integer: plLine = 2 'sheet have header Dim plColumn As Integer: plColumn = 1 Dim rowReferece As Integer: rowReferece = 2 'rows and columns used to search Dim columnReference As Integer: columnReference = 1 Dim duplicated As Integer: duplicated...
可能不包含第一行,如无使用。'lastColumn = rng.Columns.Count' 逆向遍历以避免删除行后影响循环索引Fori=lastRow1To1Step-1' lastRow、lastRow1、lastRow2、lastRow3皆相同效果。IfApplication.WorksheetFunction.CountA(Cells.rows(i))=0ThenCells.rows(i).DeleteEndIfNextiApplication.ScreenUpdating=TrueEndSub...
Sheet1.Range(“A1:D10”).Delete Shift:=xlShiftToLeft ‘删除指定行 Range(“1:1”).Delete ‘删除指定列 Columns(5).Delete ‘删除当前行 ActiveCell.EntireRow.Delete ‘删除工作表中的重复行 Sub DeleteDupes(strSheetName as String,strColLetter as string) ...