用range选中连续两个单元格

Question

Sub aa()
  Dim x As Integer
   For x = 1 To 1111
      If Cells(x + 1, 1) = "" Then
       Exit For
      Else
        Range(x1:x+1&1).Select
        If Cells(x + 1, 1).vlaue = Cells(x, 1).Value Then
         Selection.Merge
         x = x + 1
        Else
         x = x + 1
        End If
      End If
   Next x
End Sub这段代码中‘Range(x1:x+1&1).Select’部分应该怎么写？编译错误

Answer 1

Range(x1:x+1&1).Select
改成
Range("X1:" & Chr(x + Asc("A")) & "1").Select
'假设x为2，选中X1:C1区域
或者改成
Range(Cells(1,24),Cells(1,x+1)).Select
'假设x为2，选中X1:C1区域

Answer 2

想了想 你原本的意图可能是这样
选中 x行1列 与 x+1行1列
所以请无视上面的回复 改成这样
Range(Chr(x + Asc("A") - 1) & "1:" & Chr(x + Asc("A")) & "1").Select
 '假设x为2，选中X1:C1区域
 或者
Range(Cells(1, x), Cells(1, x + 1)).Select
 '假设x为2，选中X1:C1区域

Answer 3

上面的注释错了
Range(Chr(x + Asc("A") - 1) & "1:" & Chr(x + Asc("A")) & "1").Select
  '假设x为2，选中B1:C1区域
或者
Range(Cells(1, x), Cells(1, x + 1)).Select
  '假设x为2，选中B1:C1区域