0
A
回答
1
你可以试试这个:
Sub Main
Dim iCol As Long
With Worksheets("mySheetName").UsedRange '<--| change "mySheetName" to your actual sheet name
For iCol = .Columns.Count to 1 Step - 1
If WorksheetFunction.CountA(.Columns(iCol)) = 1 Then .Columns(iCol).EntireColumn.Delete
Next
End With
End Sub
0
Dim r As Range, rows As Long, i As Long
Set r = ActiveSheet.Range(Cells(1, 1), Cells(lastrow, lastcolumn))
rows = r.rows.Count
For i = rows To 1 Step (-1)
If WorksheetFunction.CountA(r.rows(i)) = 0 Then r.rows(i).Delete
Next
+0
-getting错误 - “运行时error'1004' :应用程序定义或对象定义的错误” –
相关问题
- 1. 删除空白(空)列Excel VBA
- 2. Excel VBA删除后删除空白行
- 3. 如何删除列表中的空白
- 4. 我如何删除空白?
- 5. 如何删除backBarButtonItem空白
- 6. 如何删除空白行?
- 7. VBA不删除空白单元
- 8. 删除行如果列K:R全包含空白VBA的Excel
- 9. Powerpoint VBA删除空列?
- 10. 删除空系列VBA
- 11. 删除空白
- 12. 删除空白
- 13. 空白不删除
- 14. NSRegularExpression删除空白
- 15. 删除空白Removechildnode
- 16. Smarty删除空白
- 17. 删除jQuery空白
- 18. 如何从下拉列表中删除水平空白空间?
- 19. MPDF如何删除空白页边
- 20. 如何删除空白区域?
- 21. slickjs如何删除边缘的空白
- 22. 如何删除白色的空间?
- 23. 如何删除空白数据?
- 24. 如何删除div之间的空白?
- 25. 如何删除路径中的空白?
- 26. 如何从mkdir中删除空白()
- 27. 如何删除空白表行在iReport
- 28. DynamicJasper:如何删除行时空白
- 29. 如何删除此空白区域?
- 30. 如何删除<textarea>空白
收到错误消息“需要的对象“ –
什么行引发该错误? – user3598756
请参阅编辑错字代码(WorsheetFunction - > WorksheetFunction)。让我知道。 – user3598756