如何編輯刪除列宏命令

⑴ 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