excel - VBA，从A列到J中清除选定行的内容

Question

我需要帮助创建一个宏，该宏将清除选定行的内容，但仅从 A 列到 J 列，我可以清除整行，但这不是很有用，因为我在该行上有多个表。

请帮忙

谢谢你！

标签： excelvba

Answer 1

一排：

Option Explicit

Sub test()

    Dim RowNo As Long

    With ThisWorkbook.Worksheets("Sheet1") '<- Change sheet name if needed

        RowNo = Selection.Row '<- Get row number

        .Range("A" & RowNo & ":J" & RowNo).ClearContents '<- Clear range A to J of the selected line

    End With

End Sub

多行：

Option Explicit

Sub test()

    Dim rng As Range

    With ThisWorkbook.Worksheets("Sheet1") '<- Change sheet name if needed

        For Each rng In Selection.Rows
            .Range("A" & rng.Row & ":J" & rng.Row).ClearContents
        Next

    End With

End Sub