用range选中连续两个单元格
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’部分应该怎么写?编译错误
[解决办法]
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区域
[解决办法]
想了想 你原本的意图可能是这样
选中 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区域
[解决办法]
上面的注释错了
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区域