尝试使用范围（（ActiveCell.Column）＆“2”）时的范围erorr。value =“...”

Question

我不断收到错误对象'_worksheet'的方法'范围'失败。在下面所示的行中。我试图编写一种方法来引用活动单元的位置，以将标题添加到该活动单元列的第2行中的列。我已经能够使用Range（“A”&（ActiveCell.Row））。Value = ....在我的代码之前没有问题，所以我会假设类似Range（（ActiveCell.Column）&“2” ）.value = ....将是有效的。这不是这种情况吗？

Dim found As Range 
Set found = wsAbv.Range("B1:C93").Find(What:=ActiveCell.Value, LookAt:=xlPart) 
    If Not found Is Nothing Then 
     For x = 1 To 93 
     If ActiveCell.Value = wsAbv.Range("B" & (x)).Value Then 
      ActiveCell.Value = wsAbv.Range("C" & (x)).Value 
     End If 
     Next 
    End If 
      ActiveCell.VerticalAlignment = xlCenter 
      ActiveCell.HorizontalAlignment = xlRight 

'Getting 400 error at line below (Method 'Range' of object '_worksheet' failed) 

      Range((ActiveCell.Column) & "2").ClearContents 
      Range((ActiveCell.Column) & "2").Value = "RIG" 
      Range((ActiveCell.Column) & "2").Interior.Color = RGB(183, 222, 232) 
      ActiveCell.Offset(0, 1).Select 
      Range((ActiveCell.Column) & "2").Value = "QTY" 
      Range((ActiveCell.Column) & "2").Interior.Color = RGB(216, 228, 188) 

Answer 1

ActiveCell.Column返回一个数字而不是列字母。改为使用R1C1样式。

Cells(2, ActiveCell.Column).ClearContents 

，而不是

Range((ActiveCell.Column) & "2").ClearContents