Question

我正在尝试使用VBA在一个工作表中剪切和粘贴一系列单元格。我有一个变量范围。因此，对于示例，我想切割单元格C1:C40，其中"C1:C40"存储在名为WorkRangeVar的var中。我想将此范围缩小到应该是A1的第一列之前。这是我正在使用的代码。除了设置WorkRange范围对象外，一切正常。

colNumber = WorksheetFunction.Match("What", TmpRng, 0)
ConvertToLetter = ""

columnToLetter (colNumber)
WorkRngVar = ConvertToLetter & "1:" & (ConvertToLetter) & LastRow
Range(WorkRngVar).Copy
Set WorkRange = Range(WorkRngVar)
Range("A1").Select
ActiveSheet.Paste

Answer 1

根据建议，你可以使用单元格并使用你已经选择的数字：

colNumber = WorksheetFunction.Match("What", TmpRng, 0)

Range(cells(1, colnumber), cells(LastRow, colnumber)).Copy
Set WorkRange = Range(cells(1, colnumber), cells(LastRow, colnumber))
Range("A1").Select
ActiveSheet.Paste

使用VBA切割和粘贴细胞范围

1 个答案: