Question

我需要选择范围“ C6”，然后使用xlDown选择所有行，直到空白。然后，我需要将其与“ Y”列结合起来，然后清除这些内容。

例如，如果xlDown确定从“ C6”开始有25行数据，则需要创建范围“ C6：Y25”，以便可以使用selection.ClearContents删除记录。

Sub Delete_ALL()
Dim Warning As String
Dim lrow As Long

Warning = "Are you sure you want to delete your whole database of borrowers?"
Answer = MsgBox(Warning, vbQuestion + vbYesNo, "DELETE ALL???")
If Answer = vbNo Then
    Exit Sub
End If
Range("C6").Select
lrow = Range(Selection, Selection.End(xlDown)).Select
'Selection.ClearContents
End Sub

Answer 1

使用C列找到xlDown，然后偏移到Y列。

您可能想错误地控制xlDown是否会将您带到工作表的底部。

dim rng as range

'column Y is 22 columns to the right of column C
set rng = range(cells(6, "C"), cells(6, "C").end(xldown).offset(0, 22))

debug.print rng.address(0,0)

CtrlShftDown和定义的列以清除选择

1 个答案: