如何编辑删除列宏命令

⑴ excel宏 批量删除列

Sub abc()
Dim s
Dim y(20) As Integer '如果删除的列数多余20列，怎在次修改列数

Dim i, j, k As Integer

s = Array(5, 6, 10, 11) '需要删除的列

k = 0
For Each i In s '倒置，从右侧开始删除，避免左侧的列号改变
y(k) = i
k = k + 1
Next

For j = k - 1 To 0 Step -1 '删除操作
Debug.Print y(j)
Cells(, y(j)).Select
Selection.Delete Shift:=xlToLeft

Next

End Sub

⑵ 如何删除EXCEL中的宏

如果使用的是精简版的office，可能是精简的人往office里面藏了病毒。如果只是单个文件是这样，那就试试“工具”-〉“宏"-〉“visual basic 编辑器”，在那个新窗口里面看“工程资源管理器”，每个表格和工作簿都双击看看有没有代码。如果加了Private 的代码，宏里面是看不见的。另存一份，然后把不清楚的代码删光，保存重新打开，看看正常不，功能有否缺失

⑶ Excel 怎么用宏删除指定列的数据

比如删除A列 >10的数据
Sub 删除()
Dim I%
For I = 1 To Range("A65536").End(xlUp).Row
If Cells(I, "a") > 10 Then
Cells(I, "a") = ""
End If
Next
End Sub

⑷ EXCEL中如何去除一整列的宏

删除行列的代码如下

第三列删除用 Columns(3).Delete

第三行删除用 Rows(3).Delete

例如

Sub删除空行()
DimllastrowAsLong,lrowAsLong
llastrow=Cells(Rows.Count,1).End(xlUp).Row
Forlrow=llastrowTo1Step-1
IfApplication.WorksheetFunction.CountA(Rows(lrow))=0Then
Rows(lrow).Delete
EndIf
Nextlrow
EndSub