excel - 查找包含数据的最后一列，从右侧清除两列

Question

我有用于复制粘贴功能的 VBA。我希望透明细胞功能也一样。我想在第 10:31 行中找到包含右侧数据的最后一个单元格，并清除第 10:31 行中的最后两列。

我用 lastcolumn = Cells(1, Columns.Count).End(xlToRight).Column从右侧查找包含数据的最后一个单元格。

我如何设置行 10:31 并实现 ClearContents 来完成这项工作？

10 data data1 data2 data3 data4 data5 data6 data7 data8
11 data data1 data2 data3 data4 data5 data6 data7 data8
12 data data1 data2 data3 data4 data5 data6 data7 data8
13 data data1 data2 data3 data4 data5 data6 data7 data8
14 data data1 data2 data3 data4 data5 data6 data7 data8
...
31 data data1 data2 data3 data4 data5 data6 data7 data8

这个想法是，如果我单击按钮一次“data8 和 data7”将被清除，然后我再次单击按钮“data6 和 data5”将被清除。再次单击按钮“data4和data3”消失了，依此类推......
这是我的代码:

Sub Remove()
Application.ScreenUpdating = False
Dim lastcolumn As Integer
Dim lastrow As Long

'finds the last used column coming from the right
lastcolumn = Cells(1, Columns.Count).End(xlToRight).Column
Worksheets("Price calculation").Range("10:31").Offset(0, 1).ClearContents

Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Answer 1

如果您只想清除特定范围的单元格内容，请命名确切的范围，例如:

With Worksheets("Price calculation")
    lc = .cells(10,.columns.count).end(xltoleft).column
    .Range(.cells(10,lc-2),.cells(31,lc)).ClearContents
End with