引用多个列删除列中的最后一个单元格
引用多个列删除列中的最后一个单元格
提问于 2020-01-18 04:57:00
我正在尝试删除两列中的最后一个单元格。我得到了对象不支持此方法的错误。以下是我尝试过的方法：
' Delete last cell of columns C and E
Worksheets("Sheet1").Columns ("C"), Columns("E").End(xlDown).Cells.Delete谢谢
Stack Overflow用户
发布于 2020-01-18 05:29:21
您可以使用以下函数清除列中的最后一个单元格
Function ClearLastCell(colLetter As String, Optional ws As Worksheet)
If ws Is Nothing Then
Set ws = ActiveSheet
End If
With ws
.Range(colLetter & .Rows.Count).End(xlUp).Clear
End With
End Function在C和E列的情况下
Sub ClearIt()
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
ClearLastCell "E", ws
ClearLastCell "C", ws
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/59794769
复制相关文章
相似问题
腾讯云开发者
